|
|
Postada em 18/10/2006 16:10 hs
boa terde gente
eu estou fazend assim mais da erro Private Sub Text1_Change()
If RS.State = 1 Then RS.Close
RS.Open "SELECT * FROM clientes where bd_nom= " & Text1.Text & " like '" & "%' order by bd_nom", cnn, adOpenDynamic, adLockOptimistic
CarregaListView
End Sub
|
|
|
|
|
|
|
|
Postada em 18/10/2006 16:43 hs
eu não entendi o q vc quer fazer mas a sintaxe correta seria assim: RS.Open "SELECT * FROM clientes where bd_nom LIKE '" & Text1.Text & "%' order by bd_nom", cnn, adOpenDynamic, adLockOptimistic No caso seleciono os registros se bd_nom tiver o começo igual a text1.text |
|
|
|
|
|
Postada em 18/10/2006 17:02 hs
deu certo obrigado, ghost |
|
|
|
