BOTA PROCURAR
Por favor, alguém poderia em orientar?
O que estou fazendo de errado para procurar um nome no Banco de dados(Mysql).
Private Sub cmdProcurar_Click(Index As Integer)
If txtNome2 = [Ô][Ô] Then
MsgBox [Ô]Favor informar o Nome do Aluno![Ô], vbInformation, [Ô]Escola Caminho Suave[Ô]
txtNome2.SetFocus
Exit Sub
End If
SQL = [Ô]select* from Aluno where Nome like [ô][Ô] & txtNome2 & [Ô]%[ô][Ô]
cn.Execute SQL
datgConAluno.Refresh
End Sub
Gera os dois erros abaixo!
O que estou fazendo de errado para procurar um nome no Banco de dados(Mysql).
Private Sub cmdProcurar_Click(Index As Integer)
If txtNome2 = [Ô][Ô] Then
MsgBox [Ô]Favor informar o Nome do Aluno![Ô], vbInformation, [Ô]Escola Caminho Suave[Ô]
txtNome2.SetFocus
Exit Sub
End If
SQL = [Ô]select* from Aluno where Nome like [ô][Ô] & txtNome2 & [Ô]%[ô][Ô]
cn.Execute SQL
datgConAluno.Refresh
End Sub
Gera os dois erros abaixo!
Acompanha o Erro anterior!!!
Cira uma recordeset e seta ela com este comando cm.execute SQL
Dim RsAux as new ADODB.Recordset
set RsAux = cn.execute SQL
todos os campos de seu select estará no recordset!
acho que isso resolve.
Bom Trabalho!
Dim RsAux as new ADODB.Recordset
set RsAux = cn.execute SQL
todos os campos de seu select estará no recordset!
acho que isso resolve.
Bom Trabalho!
JRabelo esta faltando o seu conecta, igual no botão editar
Nada deu certo!
Não entendi Alvaro.
como está declarada a variável [Ô]cn[Ô]?
ela é do tipo connection?
ela é do tipo connection?
Sim!
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub conecta()
Set cn = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
cn.Open [Ô]Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=Banco;User=root;Password=123;Option=3;[Ô]
End Sub
Public Sub desconecta()
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub conecta()
Set cn = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
cn.Open [Ô]Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=Banco;User=root;Password=123;Option=3;[Ô]
End Sub
Public Sub desconecta()
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
o erro que vc informou é como se o frm não está enxergando a variável [Ô]cn[Ô].
outra coisa o seu select está errado.
select* from
o asterisco está sem o espaço!
Select * from
outra coisa o seu select está errado.
select* from
o asterisco está sem o espaço!
Select * from
Separei o asteristico do select * e continua com erro.
Acompanha o erro anterior!
Tópico encerrado , respostas não são mais permitidas