BOTA PROCURAR

JRABELO 25/10/2011 08:55:58
#387663
ROBINHO,

[txt-size=2] Não deu certo !!! [/txt-size]
JRABELO 25/10/2011 09:03:43
#387664


[txt-size=2] ALVARO,
Não deu certo !!! [/txt-size]
JRABELO 25/10/2011 09:06:11
#387665
Os mesus textos ficou desconfigurado depois que fiz um teste Desculpem....
Não estou critando com nínguém!!
OMAR2011 25/10/2011 09:33:53
#387667
Você provavelmente não conectou seu Banco de Dados.

Private Sub Form_Load()
conecta
End Sub
Tente deste jeito.
OMAR2011 25/10/2011 09:35:30
#387668
Você não deve ter conectado o o banco.

Private Sub Form_Load()
conecta
End Sub
OMAR2011 25/10/2011 09:39:55
#387670
Conectar o Banco
Private Sub Form_Load()
conecta
End Sub
JRABELO 25/10/2011 09:56:30
#387673
BOTÃO PROCURAR

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

CONECTA


SQL = [Ô]select * from aluno where Nome like [ô][Ô] & txtNome2 & [Ô]%[ô][Ô]
cn.Execute SQL

adoConsAluno.Refresh

End Sub



MODULO DE CONECTAR

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
OMAR2011 25/10/2011 10:46:11
#387677
Conecta.

Private Sub Form_Load()
conecta
End Sub
OMAR2011 25/10/2011 10:48:05
#387679
Private Sub Form_Load()
conecta
End Sub
OMAR2011 25/10/2011 10:50:03
#387680

Private Sub Form_Load()
conecta
End Sub
Página 3 de 5 [44 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar