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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Erro na conexao firebird
delSF
SANTO ANDRÉ
SP - BRASIL
Postada em 06/04/2005 11:54 hs         
Oi pessoal, estou com um erro ao abrir as tabelas na conexao interbase/firebird, estou usando o 'OLE DB Provider for interbase' ele conecta no banco, mas ao abrir alguma tabela aparece a seguinte mensagem: 'O provedor atual não oferece suporte para registros de conjuntos em esquema'.
 
o que pode ser?
     
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 08/04/2005 13:46 hs            
Não é a resposta exata para sua pergunta mas pode te ajudar.
 
 
     
Maxcim
GUARULHOS
SP - BRASIL
Postada em 08/04/2005 15:13 hs            
poste, com fez a conexao, e veremos onde ocorre o erro...
     
delSF
SANTO ANDRÉ
SP - BRASIL
Postada em 12/04/2005 12:29 hs         
Fiz a conexao assim:
 
Provider=LCPI.IBProvider.1;Password=masterkey;Persist Security Info=True;User ID=SYSDBA;Data Source=C:DELCIOBD.GDB
     
Maxcim
GUARULHOS
SP - BRASIL
Postada em 12/04/2005 17:52 hs            
eu uso uma funcao assim...
Public Function Abrir_BAse_Dados_FB() As Boolean
On Error GoTo erro
Dim conex_str As String
Dim bancodedados$, Server$, Porta$, User$, Senha$, PROVEDOR$
User = "SYSDBA"
Senha = "masterkey"
Server = "127.0.0.1" ' ou localhost"
DatabasePath = "C:Documents and SettingsBig PiscinaMeus documentosBig PiscinaProgramaçãoFireBirdBD_FB_FABRICA_01.FDB"
PROVEDOR = "Provider=IbOleDb.1"
With Conexao
    .ConnectionString = PROVEDOR _
     & ";Location=" & Server _
     & ";Data Source=" & DatabasePath _
     & ";User ID=" & User _
     & ";Password=" & Senha _
     & ";Extended Properties=character set=WIN1252;SQL Dialect=1;Extended Properties=Character Set=ISO8859_1;Persist Security Info=True"
    Debug.Print .ConnectionString
    .Open
End With

If Conexao.State = 1 Then
    Abrir_BAse_Dados_FB = True
Else
    Abrir_BAse_Dados_FB = False
End If
Exit Function
erro:
MsgBox Err.Number & " " & Err.Description
End Function
 
espero que ajude
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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