ERRO AO EXECUTAR CONSULTA NO ADODB ACCESS - ADO

USUARIO.EXCLUIDOS 22/09/2006 12:50:37
#173108


Bom vamos lá! Abaixo o código

-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Dim BD As New adodb.Connection
Dim TBServices As New adodb.Recordset

BD.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Pasta\Banco.mdb;"
BD.Open

TBservices.CursorLocation = adUseClient
TBservices.CursorType = adOpenDynamic
TBservices.Open "Select CódServ, ODS, Pedido, Serviço From CadServ", BD, adOpenStatic, adLockOptimistic

Private Sub CmdBuscar_Click()

If CboTipo.Text = "Nº Pedido" Then
    TBservices.Open "SELECT * FROM CadServ WHERE Pedido LIKE '" & Text1.Text & "%' ORDER BY Pedido, BD, adOpenDynamic, adLockOptimistic"

Else

     Msgbox  bla bla bla

End If

End Sub

-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

O problema é:
Qdo aperto o Botão Buscar..dá o seguinte erro:

"Operação não permitida quando o objeto esta aberto"

Como faço pra executar essa busca da forma correta pois esse código
tem as seguintes finalidades:

1 - Atualizar um DbGrid na ordem desejada de acordo com o tipo de filtro (cbotipo)
2 - Filtrar os dados, de acordo com o texto digitado no Text1
3 - Posicionar o cursor no registro desejado para mostrar somente seus dados


Valew a todos!!
USUARIO.EXCLUIDOS 22/09/2006 13:18:45
#173115 Resposta escolhida
aliás, faltou também tirar no final da String de conexão o caractere ;

está

BD.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Pasta\Banco.mdb;"

seria

BD.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Pasta\Banco.mdb"

senão o VB entende que mais parametros.
USUARIO.EXCLUIDOS 05/10/2006 06:50:22
#175704
Como pontuar?
USUARIO.EXCLUIDOS 05/10/2006 08:12:13
#175708
bom dia Sinkertec,

na verdade pontuar, e quando vc encerra o tópico e escolha a pessoa que melhor respondeu sua pergunta.

então quando vc clicar em Encerrar tópico lá em cima na pergunta,vai aparecer a lista de quem participou de sua dúvida aí vc seleciona quem vc quiser.
falow?

Abraço,
Valdecyr
Tópico encerrado , respostas não são mais permitidas
Voltar