BOTA PROCURAR

ALVAROVB2009 26/10/2011 08:43:10
#387760

JRabelo nos seus códigos eu não vi aonde vc iniciou o RS, então tente apenas executar o comando na busca
cn.execute(sSql)

Se mesmo assim falhar coloque onde esta dando o erro e a mensagem, ok

JRABELO 26/10/2011 10:40:26
#387788

Não deu certo!!!

MARCELO.TREZE 26/10/2011 12:28:20
#387799

Olha joão ja vou dizer logo, pelo que vi emseus códigos vc está fazendo uma lambança

se não me engano vc esta usando ado em alguns lugares, e também o componente adodatacontrol, envia projeto para que eu possa verificar.

JRABELO 26/10/2011 12:34:49
#387800

Já resolvi !!!

Private Sub cmdProcurar_Click(Index As Integer)

If txtNome2 = [Ô][Ô] Then
MsgBox [Ô]Favor informar o Nome do Aluno![Ô], vbInformation, [Ô]Escola Caminho Suave[Ô]
txtNome2.SetFocus

Else
adoConsAluno.RecordSource = [Ô]select * from Aluno where Nome like [ô][Ô] & txtNome2 & [Ô]%[ô][Ô]

adoConsAluno.Refresh

End If


End Sub

Agradeço a todo!!!

Encerrado.........