ERRO EM CONEXAO

ERIVELTONVGA 05/06/2010 19:27:55
#344007

boa noite snniffer

onde que esta dando este erro? posta o codigo ai beleza!

SNNIFFER 05/06/2010 19:37:05
#344008

A questão é meia complicada, tipo estou usando o Banco de Dados chamado Banco e o Mensalidades, ao clicar num Listview é acessado o banco Mensalidades, so qua a listview exibi dados do banco Banco, ai que ta o erro, quando vou para o Textbox para filtrar os dados na Listview, da o erro.

O erro acontece na linha, prs.open.

[txt-color=#e80000]Private Sub txtProcurar_Change()

Set prs = New ADODB.Recordset
Dim cod As String
cod = txtProcurar.Text

prs.Open [Ô]Select * from alunos where nome like[ô][Ô] & cod & [Ô]%[ô][Ô]
ListaAlunos.ListItems.Clear
If prs.RecordCount = 0 Then Exit Sub

While Not prs.EOF
Set lst = ListaAlunos.ListItems.Add(, , prs(0))

For i = 1 To 1
lst.SubItems(i) = prs(i)
Next i
prs.MoveNext

txtMatricula.Text = ListaAlunos.SelectedItem.Text
Wend

txtPago_GotFocus


End Sub[/txt-color]

Vlw

EDERMIR 05/06/2010 19:53:49
#344011 Resposta escolhida

Falta você definir a CONEXÃO utilizada.

prs.Open [Ô]Select * from alunos where nome like[ô][Ô] & cod & [Ô]%[ô][Ô],<CONEXÃO>, adOpenStatic, adLockReadOnly

SNNIFFER 05/06/2010 20:00:33
#344014

Caro Edemir Funcionou beleza, era isso mesmo que faltava. valeu mesmo cara.
ErivelTonvga, o cod é uma variavel está definida no inicio do código, valeu cara.