Faltando Algo ?

[Bob Esponja]

Olá pessoal.....

estou tendo problemas com uma função de consulta....

o vb está dando erro na linha em negrito de parâmetro insuficiente..... alguém pode me dar um help ?

Public Function Consultar(ByVal nome_busca As String) As Variant

Dim url_conexao As String
Dim SQL
url_conexao = App.Path & "\banco.mdb"
Set conexao = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set rs = New ADODB.Recordset
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & url_conexao & ""
SQL = "select * from PRESTIMOB where nome = " & nome_busca & ""
[B]conexao.Execute ("select * from PRESTIMOB where nome = " & nome_busca & ""), SQL[/B]

If rs.RecordCount = 0 Then
MsgBox "Código Inválido", vbExclamation, "Erro"
Else
Form1.txtfinanciamento = IIf(IsNull("rs!valor_finan"), Empty, ("rs!valor_finan"))
Form1.txtrenda = IIf(IsNull(rs!renda), Empty, rs!renda)
Form1.txtjuros = IIf(IsNull(rs!juros), Empty, rs!juros)
End If
rs.Close

End Function

Se alguém puder me ajudar, posta ai....

abraço!

[Graymalkin]

Falta as aspas simples. Assim como no VB precisamos delimitar as strings com aspas duplas, em uma instrução SQL precisamos delimitá-las com aspas simples (ou duplas). Além disso, só é necessário passar o primeiro parâmetro para Execute (aliás, nem lembro se existe mais do que isso ou para quê servem). Portanto, o corrreto seria:

conexao.Execute "select * from PRESTIMOB where nome = '" & nome_busca & "'"

Abraços,

Graymalkin

[Bob Esponja]

Valeu Graymalkin !! Modifiquei as aspas e depois deu um monte de erros.... mas no final ficou tudo bem após algumas modificações!

Dim url_conexao As String
Dim SQL
url_conexao = App.Path & "\banco.mdb"
Set conexao = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set rs = New ADODB.Recordset
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & url_conexao & ""
rs.Open "select * from PRESTIMOB where nome='" & nome_busca & "'", conexao, adOpenKeyset, adLockOptimistic

If rs.RecordCount = 0 Then
MsgBox "Nome não cadastrado!", vbExclamation, "Erro"
Else
Form1.txtfinanciamento = IIf(IsNull(rs!valor_finan), Empty, (rs!valor_finan))
Form1.txtrenda = IIf(IsNull(rs!renda), Empty, (rs!renda))
Form1.txtjuros = IIf(IsNull(rs!juros), Empty, (rs!juros))
End If
rs.Close
End Function

Valeu a ajuda...

Abraço!