USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ADO com access - erro de operação OLE DB
Teresa
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 13/09/2005 17:04 hs         
Está dando uma mengagem de erro: Run-time error '2147217887'
Operação OLE DB de várias etapas gerou erros. Verifique cada valor de status OLE DB.
Nada foi Executado. E então fecha o programa.
 
 
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 13/09/2005 17:52 hs            
Vc poderia passar o código em q ocorre o erro indicando a linha em q acontece isso por favor?
 
t+
   
TheXeriffe
não registrado
ENUNCIADA !
Postada em 01/09/2009 16:51 hs   
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80020009)
Operação OLE DB de várias etapas gerou erros. Verifique cada valor de status OLE DB. Nada foi executado.


Esse erro acontece comigo em um lup do while, ele entra no while faz tudo e quando vai execultar o while pela segunda vez dar essa mensagem, sem falar em qual linha.
   
Jkarlosra
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 05/10/2010 10:10 hs            
Seria interesante ver o codigo desse do while loop para ver onde esta o erro;
   
Marcus Salles
não registrado
Postada em 26/03/2015 23:09 hs   
Eu encontro o mesmo erro quando especifico a conexão ADO, vide abaixo:

Private Sub Command1_Click()
Dim adoRS As ADODB.Recordset
    Set adoRS = New ADODB.Recordset
    Dim a As MSXML2.DSOControl26
    
    ' Set up the Connection
    adoRS.ActiveConnection = "Provider=MSDAOSP; Data Source=MSXML2.DSOControl26;"
    
    ' Open the XML source
     adoRS.Open "G:Sistema InterativaSistema MySQLNFS-eAccess Solution/portfolio.xml"
    On Error GoTo RecError
    printtbl adoRS, 0
    
    GoTo Bye
    
RecError:
    Debug.Print Err.Number & ": " & Err.Description
    If adoRS.State = adStateOpen Then
        For Each Col In adoRS.Fields
            Debug.Print Col.Name & ": " & Col.Status  '  Error Status
        Next Col
    End If
    
Bye:
    If adoRS.State = adStateOpen Then
        adoRS.Close
    End If
    Set adoRS = Nothing
End Sub
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página