(Resolvido) erro 3251

[tito13]

Bom dia

Esta me retornando erro 3251 ( O provedor atual não oferece suporte para a interface necessaria a funcionalidade do indice) na sub abaixo

Private Sub LocalizarRegistro()
Dim ProcuraCodigo As String
    ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado")
    rsSelecao.Seek "=", ProcuraCodigo
    If rsSelecao.EOF = True Then
        MsgBox "Registro não Encontrado", vbExclamation
        rsSelecao.MovePrevious
    End If
Mostrar
End Sub

alguém poderia me dizer onde estou errando??

Uso Access 2003

Ado 2.8

vb6

[gabrieldb]

Esta me retornando erro 3251 ( O provedor atual não oferece suporte para a interface necessaria a funcionalidade do indice) na sub abaixo

Esse erro pode ser na conexão como seu BD poste o código ai pra gente dar uma olhada.

[tito13]

Gabrieldb, valeu a dica.

o erro ta sinalizando na linha

rsSelecao.Seek "=", ProcuraCodigo

e o acesso não deve ser porque todas as outras subs estao funcionando, mas la vai:

Private Sub Form_Load()
Dim cod As Long
    rsSelecao.Open "Select * From Clientes", cnnOleopl, 1, 2
    If rsSelecao.RecordCount = 0 Then
        cod = "00001"
    Else
        rsSelecao.MoveLast
        cod = rsSelecao("Numero_OS") + 1
    End If
    TxtNumOS.Text = cod
End Sub

Fico no aguardo

[kuroi]

troque a linha:

rsSelecao.Open "Select * From Clientes", cnnOleopl, 1, 2

por

Set rsSelecao = cnnOleopl.Execute("Select * From Clientes")

EDITADO: o seek não seria assim??

rsSelecao.Seek "Nome_do_campo = " & ProcuraCodigo

Editado Agosto 3, 2009 por kuroi

[tito13]

Kuroi

não deu certo com sua dica, retorna mesma resposta. Então tentei assim:

Private Sub LocalizarRegistro()
Dim ProcuraCodigo As String
    With cnnComando
            .ActiveConnection = cnnOleopl
            .CommandType = adCmdText
            'cria o modulo sql
            .CommandText = "Select * From Clientes"
            .Execute
    End With
    ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado")
    rsSelecao.Seek "Numero_Os = " & ProcuraCodigo
    If rsSelecao.EOF = True Then
        MsgBox "Registro não Encontrado", vbExclamation
        rsSelecao.MovePrevious
    End If
    Mostrar
End Sub

Mas infelizmente retornou mesma resposta

Vou tentando

[kuroi]

antes de abrir a conexao, tenta por então esse codigo:

cnnOleopl.CursorLocation = adUseClient

EDITADO: ou e nesse seu codigo ai você nem associou o recordset ao command. acho q você teria q fazer:

Set rsSelecao = .Execute

mas vai dar o mesmo efeito do codigo q passei.

Editado Agosto 3, 2009 por kuroi

[tito13]

tentei dessa forma:

Private Sub LocalizarRegistro()
Dim ProcuraCodigo As String
    With cnnComando
            .ActiveConnection = cnnOleopl
            .CommandType = adCmdText
            'cria o modulo sql
            .CommandText = "Select * From Clientes where Numero_OS = " & TxtNumOS.Text & ";"
            Set rsSelecao = .Execute
    End With
    ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado")
    rsSelecao.Seek "Numero_OS=", ProcuraCodigo
    If rsSelecao.EOF = True Then
        MsgBox "Registro não Encontrado", vbExclamation
        rsSelecao.MovePrevious
    End If
    Mostrar
End Sub

e assim:

Private Sub LocalizarRegistro()
Dim ProcuraCodigo As String
    cnnOleopl.CursorLocation = adUseClient
    Set rsSelecao = cnnOleopl.Execute("Select * From Clientes")
    ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado")
    rsSelecao.Seek "Numero_OS=", ProcuraCodigo
    If rsSelecao.EOF = True Then
        MsgBox "Registro não Encontrado", vbExclamation
        rsSelecao.MovePrevious
    End If
    Mostrar
End Sub

e o retono e o mesmo.

não desisto, espero que voce tambem não

[kuroi]

então. mas esse codigo aqui:

cnnOleopl.CursorLocation = adUseClient

não é pra por nessa sub. é pra por antes de abrir a conexao. tipo, deve ter algum lugar no programa q você usa esse codigo pra abrir a conexao:

cnnOleopl.Open

é antes dessa linha q você tem q por aquela otra q passei acima. e quanto ao seek:

rsSelecao.Seek "Numero_OS=", ProcuraCodigo

não é pra por essa virgula. o segundo parametro serve pra passar o sentido da busca. você teria q concatenar a string:

rsSelecao.Seek "Numero_OS=" & ProcuraCodigo

de qualquer forma, não costumo usar o Seek, se você tiver otros problemas com ele, use o Find q é garantido, sempre faco assim:

rsSelecao.Find "Numero_OS = " & ProcuraCodigo

[tito13]

Kuroi

muito obrigado!!

usei o metodo Find e funcionou beleza. o codigo ficou assim:

Private Sub LocalizarRegistro()
Dim ProcuraCodigo As String
    Set rsSelecao = cnnOleoPl.Execute("Select * From Clientes")

    ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado")
    rsSelecao.Find "Numero_OS = " & ProcuraCodigo
    If rsSelecao.EOF = True Then
        MsgBox "Registro não Encontrado", vbExclamation
        rsSelecao.MovePrevious
    End If
    Mostrar
End Sub

Valeu

t+