DATA COMBO

USUARIO.EXCLUIDOS 30/05/2007 10:44:18
#218844
Gente tenho um problema e gostaria de uma ajudinha.

é o seguinte:

Tenho um form onde tenho um Data Combo onde eu seleciono um registro cadastrado no banco de dados.

Gostaria que assim que eu selecionasse o registro no Data Combo os outros registros aparecessem automaticamente nas text's do form.

Alguem me ajude por favor.
USUARIO.EXCLUIDOS 30/05/2007 11:09:41
#218849
Da uma força pra mim ai gente
USUARIO.EXCLUIDOS 30/05/2007 11:16:21
#218852 Resposta escolhida
vc usa conexao ADO? se for faça o seguinte:

 dim SQL as string
if cmbcombo.text = "" then Exit Sub

SQL = "select * from nome_tabela where campo_banco = '" & cmbcombo & "' "
RS.Open SQL, banco, adOpenForwardOnly, adLockReadOnly

campos_do_form = RS!campo_banco
campos_do_form = RS!campo_banco
campos_do_form = RS!campo_banco

RS.close
banco.close
set banco = nothing

USUARIO.EXCLUIDOS 30/05/2007 11:40:35
#218858
Ta dando o seguinte erro:

Tipo de dados incompatível na expressão de critério.
USUARIO.EXCLUIDOS 30/05/2007 11:47:07
#218862
Citação:

Ta dando o seguinte erro:

Tipo de dados incompatível na expressão de critério.



Blemer poste seu codigo, assim fica mais facil de ajudar
USUARIO.EXCLUIDOS 30/05/2007 11:48:21
#218863
Em qual evento do Data Combo vc sugere que eu coloque esse codigo.

Pq eu coloquei no Change deu esse erro que eu falei acima.
USUARIO.EXCLUIDOS 30/05/2007 11:49:16
#218864 
   Dim SQL As String
 
 Set conexao = New ADODB.Connection
 Set rscodigo = New ADODB.Recordset
 
 If dtcodigo.Text = "" Then Exit Sub
 
 conexao.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\bddenso.mdb"
 SQL = "Select * from tblfiat where codcli ='" & dtcodigo & "'"
 rscodigo.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
 
 txtvoltagem.Text = rscodigo!volequ
 
 rscodigo.Close
 conexao.Close
 Set conexao = Nothing

USUARIO.EXCLUIDOS 30/05/2007 11:55:23
#218869
Coloque o envento Click do combo, por qdo vc escolher o registro ele fara a busca
USUARIO.EXCLUIDOS 30/05/2007 12:00:07
#218870
Continua dando o mesmo erro.

Lembrando que eu estou usando um Data Combo.
USUARIO.EXCLUIDOS 30/05/2007 12:21:34
#218875
E quando da esse erro que eu disse acima.

ele marca a seguinte linha:

rscodigo.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly

USUARIO.EXCLUIDOS 30/05/2007 12:51:19
#218883
Mais alguma sugestão?
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar