DATAGRID NAO EXIBE DADOS
Olá, galera, to com um problema aki com o meu datagrid do vba
eu faço a conexão certinho e ele não está exibindo os dados
tenho um tabela com tres registros e qdo quero exibir esses registros no datagrid aparece apenas tres linhas em branco, sem os registros,
eis o código q estou usando
Private Sub Form_Load()
Dim dados As String
[ô] pega o caminho do banco de dados
dados = App.Path
If Right$(dados, 1) <> [Ô]\[Ô] Then dados = dados & [Ô]\[Ô]
dados = dados & [Ô]ICICI.mdb[Ô]
[ô] Conecta o controle ADODC com o banco de dados
Adodc1.ConnectionString = [Ô]PROVIDER=Microsoft.Jet.OLEDB.4.0;[Ô] & [Ô]Data Source=[Ô] & dados & [Ô];[Ô]
Adodc1.RecordSource = [Ô]SELECT * FROM requisitantes ORDER BY Nome[Ô]
[ô] vincula o adodc ao datagrid
Set DataGrid1.DataSource = Adodc1
End Sub
eu faço a conexão certinho e ele não está exibindo os dados
tenho um tabela com tres registros e qdo quero exibir esses registros no datagrid aparece apenas tres linhas em branco, sem os registros,
eis o código q estou usando
Private Sub Form_Load()
Dim dados As String
[ô] pega o caminho do banco de dados
dados = App.Path
If Right$(dados, 1) <> [Ô]\[Ô] Then dados = dados & [Ô]\[Ô]
dados = dados & [Ô]ICICI.mdb[Ô]
[ô] Conecta o controle ADODC com o banco de dados
Adodc1.ConnectionString = [Ô]PROVIDER=Microsoft.Jet.OLEDB.4.0;[Ô] & [Ô]Data Source=[Ô] & dados & [Ô];[Ô]
Adodc1.RecordSource = [Ô]SELECT * FROM requisitantes ORDER BY Nome[Ô]
[ô] vincula o adodc ao datagrid
Set DataGrid1.DataSource = Adodc1
End Sub
Geovanildo.
Verifique se todos os campos da sua consulta ou tabela estão exatamente iguais as parametrizadas no campo Datafield da GRID.
Abaixo segue um exmplo que utilizom com SQL.
Dim rsTemp As New ADODB.Recordset
Dim wsql As String
wsql = Empty
wsql = [Ô] SELECT * FROM CARROS[Ô]
wsql = wsql & [Ô] ORDER BY PLACA[Ô]
With rsTemp
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.CacheSize = 50
.Source = wsql
Call Conecta_Banco
.ActiveConnection = cConn.ConnectionString
Call Fecha_Banco
.Open
Adodc1.ConnectionString = cConn.ConnectionString
Adodc1.RecordSource = wsql
Adodc1.Refresh
Set DataGrid1.DataSource = FRM_Consulta_Carro.Adodc1
DataGrid1.Refresh
End With
Se não conseguir avise..
Verifique se todos os campos da sua consulta ou tabela estão exatamente iguais as parametrizadas no campo Datafield da GRID.
Abaixo segue um exmplo que utilizom com SQL.
Dim rsTemp As New ADODB.Recordset
Dim wsql As String
wsql = Empty
wsql = [Ô] SELECT * FROM CARROS[Ô]
wsql = wsql & [Ô] ORDER BY PLACA[Ô]
With rsTemp
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.CacheSize = 50
.Source = wsql
Call Conecta_Banco
.ActiveConnection = cConn.ConnectionString
Call Fecha_Banco
.Open
Adodc1.ConnectionString = cConn.ConnectionString
Adodc1.RecordSource = wsql
Adodc1.Refresh
Set DataGrid1.DataSource = FRM_Consulta_Carro.Adodc1
DataGrid1.Refresh
End With
Se não conseguir avise..
é, nao aconteceu nada mesmo 
pelo q parece ele tá fazendo a conexão, tanto q tres linhas dos tres registros aparecem no datagrid, mas as linhas aparecem em branco, não aparece os registros
ah, e outra coisa, qdo eu tento conectar sem os códigos, la na hora de nomear as colunas e escolher o campo da tabela, não aparece nada no datafield
ah, e outra coisa, qdo eu tento conectar sem os códigos, la na hora de nomear as colunas e escolher o campo da tabela, não aparece nada no datafield
aaahhhhhh, eu conseguiiiii, woohoo, hehe
então, vlw pela ajuda MARCIOFERREIRA
não tava conseguindo ligar os datafiels, mas consegui, era probleminha na hora da conexão aki, resolvido
mas quero aproveitar e acrescentar outra duvida
eu quero inserir os campos visualizados no datagrid a textbox de outro formulário, tipo, clicando sobre um registro, este registro vai para textboxs de outros formularios
então, vlw pela ajuda MARCIOFERREIRA
não tava conseguindo ligar os datafiels, mas consegui, era probleminha na hora da conexão aki, resolvido
mas quero aproveitar e acrescentar outra duvida
eu quero inserir os campos visualizados no datagrid a textbox de outro formulário, tipo, clicando sobre um registro, este registro vai para textboxs de outros formularios
Eu utilizo desta forma.
FRM_Carros.txt_Cod_Carro = Adodc1.Recordset![CD_CARRO]
FRM_Carros.txt_Cod_Carro = Formulario e nome do box que você quer alimentar
Adodc1.Recordset![CD_CARRO] aqui é o nome do do ADODC que vc utilizou onde o [CDCARRO] é o nome do campo na sua consulta sql, exemplo se a sua consulta tivesse dois campos.
Select Placa, Modelo
From Carros
Seu formulário tivesse dos texts box ( txt_placa e txt_modelo)
Ficaria assim.
FRM_Carros.txt_placa = Adodc1.Recordse![Placa]
FRM_Carros.txt_modelo = Adodc1.Recordset![modelo]
FRM_Carros.txt_Cod_Carro = Adodc1.Recordset![CD_CARRO]
FRM_Carros.txt_Cod_Carro = Formulario e nome do box que você quer alimentar
Adodc1.Recordset![CD_CARRO] aqui é o nome do do ADODC que vc utilizou onde o [CDCARRO] é o nome do campo na sua consulta sql, exemplo se a sua consulta tivesse dois campos.
Select Placa, Modelo
From Carros
Seu formulário tivesse dos texts box ( txt_placa e txt_modelo)
Ficaria assim.
FRM_Carros.txt_placa = Adodc1.Recordse![Placa]
FRM_Carros.txt_modelo = Adodc1.Recordset![modelo]
sim, sim
consegui pessoal
vlw pela ajuda
consegui pessoal
vlw pela ajuda
Amigo, não esqueça de encerrar o tópcio !!!
Tópico encerrado , respostas não são mais permitidas