DATA COMBO

USUARIO.EXCLUIDOS 30/05/2007 13:35:23
#218901
Blemer axo q da esse erro eh pq nao tem nada dentro do seu combo qdo faz a busca, ai ele acontece esse erro: Tipo de dados incompatível na expressão de critério, eu testei aki, vc vai ter q fazer uma consulta pra preencher o combo, um exemplo apenas:

Sub preenchecombo()
SQL ="select distinct campo_banco from nome_tabela order by campo_banco")
While Not a.EOF = True
seu_Combo.AddItem (Trim(RS!campo_banco))
RS.MoveNext
Wend
End Sub


chame a funcao preenchecombo
depois jogue seu codigo dentro do keypress

    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 14:10:37
#218908
Citação:

While Not a.EOF = True



A variável "a" é de que tipo??
USUARIO.EXCLUIDOS 30/05/2007 14:26:58
#218910
putz foi mal... é While Not RS.EOF = true
USUARIO.EXCLUIDOS 30/05/2007 14:38:40
#218911
Mesmo com a rotina de preenchimento continua dando erro no mesmo lugar na mesma linha.
USUARIO.EXCLUIDOS 30/05/2007 14:43:03
#218913
blemer é o seguinte, seu codigo no banco deve ser numero e vc ta passando string com as aspas simples faça assim

SQL = "Select * from tblfiat where codcli =" & dtcodigo

sem aspas simples
USUARIO.EXCLUIDOS 30/05/2007 14:45:45
#218915
Agora Funcionou era sem aspas simples mesmo
Obrigado
USUARIO.EXCLUIDOS 30/05/2007 14:58:10
#218918
tenta o seguinte, na linha dessa consulta, coloque do desse jeito:

SQL = "Select * from tblfiat where codcli = " & dtcodigo
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar