Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

MORDOMO

Erro ao conectar ao BD

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.