olá a todos preciso de ajuda na conexao do datagrid via codigo já tentei o codigo abaixo mas ele so apresenta o cabecalho da base de dados...
Private Sub Command2_Click()
abrir
Dim i As Integer
DataGrid1.Columns.Add (0)
For i = 0 To rs.Fields.Count - 1
DataGrid1.Columns(i).Caption = rs.Fields(i).Name
Next
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set rs = Nothing
db.Close: Set db = Nothing
End Sub
Pergunta
John_Blut
olá a todos preciso de ajuda na conexao do datagrid via codigo já tentei o codigo abaixo mas ele so apresenta o cabecalho da base de dados...
Private Sub Command2_Click()
abrir
Dim i As Integer
DataGrid1.Columns.Add (0)
For i = 0 To rs.Fields.Count - 1
DataGrid1.Columns(i).Caption = rs.Fields(i).Name
Next
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set rs = Nothing
db.Close: Set db = Nothing
End Sub
Agradeço a vossa atenção...
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.