AJUDA EM PESQUISA SQL
boa tarde galera estou com problema para pesquisa dentro de um banco do acess tenho que pesquisar pelo campo auto numerio
db_file = App.path
If Right$(db_file, 1) <> [Ô]\[Ô] Then db_file = db_file & [Ô]\[Ô]
db_file = db_file & [Ô]\dados\dados.mdb[Ô]
Set conn = New ADODB.Connection
conn.ConnectionString = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & db_file & [Ô];[Ô] & _
[Ô]Persist Security Info=False[Ô]
conn.Open
Set RS = conn.Execute([Ô]SELECT * FROM OSENTRA WHERE Código =[ô][Ô] & Text1.Text & [Ô][ô][Ô], , adCmdText)
db_file = App.path
If Right$(db_file, 1) <> [Ô]\[Ô] Then db_file = db_file & [Ô]\[Ô]
db_file = db_file & [Ô]\dados\dados.mdb[Ô]
Set conn = New ADODB.Connection
conn.ConnectionString = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & db_file & [Ô];[Ô] & _
[Ô]Persist Security Info=False[Ô]
conn.Open
Set RS = conn.Execute([Ô]SELECT * FROM OSENTRA WHERE Código =[ô][Ô] & Text1.Text & [Ô][ô][Ô], , adCmdText)
Caro FABRICIOWEB
Deixe sua TExtBox de consulta que aceite somente números..............
Private Sub BUSCA_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKey0 To vbKey9
Case vbKeyBack, vbKeyClear, vbKeyDelete
Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Consulta com cláusula where campo numérico......................
Set RS = conn.Execute([Ô]SELECT TOP 1 * FROM OSENTRA WHERE Código = [Ô] & BUSCA.Text & [Ô] [Ô], , adCmdText)
Boa Sorte
Deixe sua TExtBox de consulta que aceite somente números..............
Private Sub BUSCA_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKey0 To vbKey9
Case vbKeyBack, vbKeyClear, vbKeyDelete
Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Consulta com cláusula where campo numérico......................
Set RS = conn.Execute([Ô]SELECT TOP 1 * FROM OSENTRA WHERE Código = [Ô] & BUSCA.Text & [Ô] [Ô], , adCmdText)
Boa Sorte
Tópico encerrado , respostas não são mais permitidas