boa tarde garela....

eu estou usando assim pra eu abrir o meu banco de dado

 

Private Sub Conecta()
    On Error GoTo ErroConecta
    Desconecta
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source = " & App.Path & "atletismo.MDB"
    cnn.Open
    Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.Open "SELECT * FROM Cliente ORDER BY bd_nom", cnn, adOpenDynamic, adLockOptimistic
    Exit Sub
ErroConecta:
    MsgBox "Erro ao Conectar com o Banco de Dados:" & vbCrLf & vbCrLf & "Erro: " & Err.Number & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Atenção"
    End
   
End Sub

ele esta abrindo normal so que eu não estou consequindo fazer consulta por nome

 

eu tenho este exemplo do que esta usa data1+ não deu certo

 

    'SQL = "SELECT Codigo, iif(Entrada,'Sim','Não') as campo1, iif(PagtoUnico,'Sim','Não')
    'SQL = "SELECT * FROM Cadastro WHERE bd_nome LIKE " & criterio & "ORDER BY bd_nome"
    'original SELECT * FROM  Cadastro WHERE bd_Status= 'Orçamento' And bd_nome LIKE" & criterio & "' ORDER BY bd_Nome"
    Dim SQL As String
    Dim criterio As String
    criterio = Chr$(39) & Text1.Text & "*" & Chr(39)
    SQL = "SELECT * FROM  Cadastro WHERE NOT bd_Status= 'Concluito' And bd_nome LIKE" & criterio & "ORDER BY bd_Nome"
    Data1.RecordSource = SQL
    Data1.Refresh

 

Tenta por

 

Data1.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source = " & App.Path & "atletismo.MDB"

 

poe isso antes do SELECT... talvez funcione... eu nao trabalho com controle DATA portanto nao tenho certeza...

 

Flw!

Olá,

 

Pessoal, temos duas tecnologias sendo usadas aqui... DAO (Data1 - DataControl) e ADO (ADODB.Connection). Não tentes misturar as duas que não vai dar certo. VocÊ até pode ter um DataControl e um ADODB.Connection abrindo o mesmo banco no mesmo programa, mas um não vai pesquisar no outro.

Tente isso no seu SQL (para o ADODB.Recordset):

 

SELECT * FROM  Cadastro WHERE ((bd_Status= 'Orçamento') And (bd_nome LIKE '" & criterio & "%' ORDER BY bd_Nome"

 

um abraço,

Sandro.

ele dar erro "3705"

"operação solicidado pelo aplicativo não permitido se objeto estiver aberto"