Oi!
Estou precisando de uma linha de comando que que substitua esta RS.Open "SELECT * FROM tblClientes WHERE Codigo Like '%" & Text1.Text & "%'", CON, adOpenStatic, adLockOptimistic
Esta em ado e quero uma que faça o mesmo que esta so que em dao
Estou usando estes código para que quando eu digito as primeira letras ele relacione todos os arquivos com a letra digitada no MSFlexGrid1. e uma pesquisa
Num modulo tenho este código
Global banco As Database
Global rs As Recordset
Sub maio()
Dim wks As Workspace ' para abrir banco de dados com senha
Set wks = Workspaces(0) ' para abrir banco de dados com senha
diretorio = App.Path
Set banco = wks.OpenDatabase("C:Arquivos de programasscSistem moto.mdb", False, False, ";pwd=" & "sistem moto") ' para abrir banco de dados com senha
Set rs = banco.OpenRecordset("estoque")
End Sub
__________________________________________________________________________
No form
Private Sub Text1_Change()
Dim Selecao As String
If Text1.Text = "" Then
MSFlexGrid1.Enabled = False
vCodigo = ""
vNome = ""
vApelido = ""
vEndereco = ""
vTelefone = ""
Else
MSFlexGrid1.Enabled = True
End If
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And Text4.Text = "" Then
MSFlexGrid1.Rows = 2
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = ""
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = ""
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = ""
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = ""
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = ""
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = ""
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
Me.Caption = "Buscar Cliente"
Exit Sub
End If
MSFlexGrid1.Rows = 2
Call maio
Este codigo e o que eu quero substituir
RS.Open "SELECT * FROM tblClientes WHERE Codigo Like '%" & Text1.Text & "%'", CON, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = rs.Fields(0).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = rs.Fields(1).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = rs.Fields(2).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = rs.Fields(3).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = rs.Fields(4).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = rs.Fields(5).Value
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
rs.MoveNext
Loop
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
regContador = CStr(rs.RecordCount)
If MSFlexGrid1.Rows = 2 Then
Me.Caption = "Buscar Cliente - " & regContador & " clientes encontrados"
Else
Me.Caption = "Buscar Cliente - " & regContador & " clientes encontrados"
End If
rs.Close
banco.Close
End Sub
