Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia,
Tenho um sistema em VB6, que está dando erro ao tentar abrí-lo pelo VB. O erro se dá no banco de dados. Aparece a seguinte mensagem:
Rum-time error '-2147217843 (80040e4d)
SQLCode: -82
IBErrorCode: 335544379
wrong or obsolete version
unsurpported on-disk structure for file C:\AUTOCOM\GWORKS.GDB;
found 11.2, support 11.1
Quando clico no debug, aparece o local do erro:
Public Function CONECTA(ByVal Valor As Boolean)
If Valor = True Then
Set CNN = New ADODB.Connection
BANCODEDADOS = ReadINIString("BANCODEDADOS", "CAMINHO", App.Path & "\Config.ini")
IDENTIDADE = ReadINIString("BANCODEDADOS", "IDENTIDADE", App.Path & "\Config.ini")
CONEXAO = "Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=" & BANCODEDADOS & ";User ID=" & "SYSDBA" & ";Password=" & IDENTIDADE & ""
CNN.Open CONEXAO
CNN.CursorLocation = adUseClient
Else
CNN.Close
Set CNN = Nothing
End If
End Function
Desde já informo que sou aprendiz no VB, portanto, não sei como corrigi-lo.
Conto com a ajuda e compreensão de todos.
Abraços.
Carregando comentários...