Jump to content
joaodemelo

datagrid do vb 6.0

Recommended Posts

joaodemelo

ola, estou a iniciar o desenvolvimento em vb6 e estou com problemas na visualização do datagrid

num ficheiro com 10 registos, mostra-me o 4º, sem qualquer motivo

não consigo carregar os registos para o datagrid, para processá-los. envio o código em anexo.

obrigado desde já pela ajuda, espero que me possa auxiliar. abraço amigo

Joao de Melo

Private Sub Form_Load()
    Dim Ligacao As ADODB.Connection
    Dim RsSelecao As ADODB.Recordset

    Dim FicheiroBDados As String
    FicheiroBDados = "curbigestnova.mdb"

    Set Ligacao = New ADODB.Connection
    With Ligacao
        .Provider = "Microsoft.Jet.OLEDB.4.0;"
        .ConnectionString = "Data Source=" & App.Path & "\PROJECTOS\EXEMPLOS\" & FicheiroBDados & ";"
        .Open
              
    End With
    Set RsSelecao = New ADODB.Recordset
    
    With RsSelecao
        .CursorLocation = adUseClient
        .Open "SELECT MovimentosProcessos_RefProcesso,MovimentosProcessos_NomeEntidade FROM MovimentosProcessos", Ligacao, adOpenDynamic, adLockOptimistic
    End With
    
    Set DataGrid1.DataSource = RsSelecao
    
    With RsSelecao
        If Not .EOF Then
            Me.txt_refprocesso.Text = .Fields("MovimentosProcessos_RefProcesso")
            Me.txt_nomeentidade.Text = .Fields("MovimentosProcessos_NomeEntidade")
        End If
    End With
    
    'fechar
    Ligacao.Close
    Set Ligacao = Nothing
   
    Set RsSelecao = Nothing
    
End Sub

Share this post


Link to post
Share on other sites
jpaulino

ola, estou a iniciar o desenvolvimento em vb6 e estou com problemas na visualização do datagrid

Olá,

Em primeiro lugar bem vindo à comunidade.

Começar em VB6 por opção ou por obrigação? Não faz muito sentido iniciar numa linguagem já não suportada e com várias novas versões disponíveis.

Share this post


Link to post
Share on other sites
vbtipo

Vais às propriedades da datagrid e é lá que a configuras conforme aquilo que queres fazer.


Lema: Se eu não saber de alguma coisa não se preocupem porque tento sempre ajudar alguma coisita, nem que seja, por palpites/sugestões.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.