Sou iniciante em VB6, e não estou conseguindo conectar o banco de dados. Quando tento abrir o sistema pelo VB6, aparece a seguinte mensagem de erro:
Rum-Time error '3706' Provedor não encontrado. É possível que ele não esteja instalado corretamente.
O erro aparece nesta parte:
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
Pergunta
Fera1000
Boa tarde pessoal,
Sou iniciante em VB6, e não estou conseguindo conectar o banco de dados. Quando tento abrir o sistema pelo VB6, aparece a seguinte mensagem de erro:
Rum-Time error '3706'
Provedor não encontrado. É possível que ele não esteja instalado corretamente.
O erro aparece nesta parte:
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
------------------------------------------------------------------------------------------------------------------------------------
Este provedor é executável ou .dll? Onde baixo? como conecto a ele?
Alguém pode me ajudar?
Desde já agradeço.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.