bom dia!
Primeiramente gostaria de dizer que não entendo quase nada de Visual Basic e que tudo que aprendi até agora foi na raça em fóruns. Então se isso for muito simples de resolver, me perdoem.
Agora ao problema. Eu tinha uma planilha em Excel, onde eu cadastrava os cartões de benefícios recebidos na empresa. Então eu resolvi criar um formulário para facilitar a inclusão das informações. Além disso eu peguei essa planilha e migrei os dados para um banco de dados criado no Access. Já consegui criar o Formulário:
Agora o que eu quero é criar uma consulta (SELECT *FROM) e um UPDATE (caso algum dado seja digitado erroneamente).
Entretanto eu empaquei na criação da consulta.
Seguem abaixo os códigos que usei.
Aqui eu crio a conexão com o Banco de Dados:
Public enderecoDB As String
Public SQL As String
Public rs As ADODB.Recordset
Public mConn As ADODB.Connection
Public Sub SU_Conectadb()
On Error GoTo erro
enderecoDB = ThisWorkbook.Path & "\database\controlecartoes.mdb"
Set mConn = New ADODB.Connection
mConn.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & enderecoDB & ";Jet OLEDB:Database"
mConn.Open
Set rs = New ADODB.Recordset
Exit Sub
erro:
MsgBox "Erro! Não Foi Possível Conectar ao Banco De Dados" & vbNewLine & vbNewLine & Err.Number & Err.Description, vbCritical
Set mConn = Nothing
Exit Sub
End Sub
Public Sub Desconectabd()
On Error Resume Next
mConn.Close
Set mConn = Nothing
On Error GoTo 0
End Sub
Aqui eu insiro as informações do formulário na planilha:
Private Sub btn_incluir_Click()
SQL = ""
SQL = "INSERT INTO controle (TP_BENEFICIO, BP, CPF, NOME, DTADM, FILIAL, NRCARTAO, SOLICPOR, DTRECEBE,"
SQL = SQL & " DTENVIOBS, ENVIADORETIRADO, NMMINUTA)"
SQL = SQL & "VALUES ("
SQL = SQL & "'" & controlectform.frmsegndvia.modalidadebox.Value & "', "
SQL = SQL & "'" & controlectform.frmcolabor.boxbp.Value & "',"
SQL = SQL & "'" & controlectform.frmcolabor.cpfbox.Value & "',"
SQL = SQL & "'" & controlectform.frmcolabor.boxnome.Value & "',"
SQL = SQL & "'" & controlectform.frmcolabor.dtadmbox.Value & "',"
SQL = SQL & "'" & controlectform.frmcolabor.filialbox.Value & "',"
SQL = SQL & "'" & controlectform.frmsegndvia.nmcartaobox.Value & "',"
SQL = SQL & "'" & controlectform.frmsegndvia.soliciporbox.Value & "',"
SQL = SQL & "'" & controlectform.frmsegndvia.dtrecebebox.Value & "',"
SQL = SQL & "'" & controlectform.frmsegndvia.dtenviobsbox.Value & "',"
SQL = SQL & "'" & controlectform.frmsegndvia.enviadoretiradobox.Value & "',"
SQL = SQL & "'" & controlectform.frmsegndvia.nmminutabox.Value & "' "
SQL = SQL & ")"
mConn.Execute SQL
MsgBox "Inclusão realizada com sucesso!"
End Sub
E essa foi minha tentativa de retornar os dados de volta ao formulário:
Private Sub btn_consulta_Click()
SQL = "SELECT [controle$].NOME FROM [controle$] WHERE [controle$].BP =" & controlectform.dadoscolaborpgconsulta.nmbpbox.Value
DoCmd.RunSQL "SQL"
controlectform.dadoscolaborpgconsulta.nomecolaboradorbox.Value = SQL
End Sub
Só que ao clicar no botão consulta é apresentado esse erro:
Eu já tentei fazer a consulta de várias formas e sempre obtive esse erro.
Basicamente o que eu quero fazer é:
informar o BP ou CPF e ao clicar em consultar os dados retornam no formulário.
Se alguém puder me dar uma luz de como executar a consulta eu agradeço.
ps.: testei a consulta direto no access e funcionou.