FIREBIRD 2.5 VB6
No módulo...
Public CNN AS NEW ADODB.CONNECTION
Public BancoDeDados As String
Public Conexão As String
Public Function Conectar ()
Set CNN = New ADODB.Connection
BANCODEDADOS = c:/pasta/bancodedados.gdb [ô](ou fdb)
CONEXAO = [Ô]Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=[Ô] & BANCODEDADOS & [Ô];User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=masterkey[Ô]
CNN.Open CONEXAO
CNN.CursorLocation = adUseClient
End Function
Public CNN AS NEW ADODB.CONNECTION
Public BancoDeDados As String
Public Conexão As String
Public Function Conectar ()
Set CNN = New ADODB.Connection
BANCODEDADOS = c:/pasta/bancodedados.gdb [ô](ou fdb)
CONEXAO = [Ô]Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=[Ô] & BANCODEDADOS & [Ô];User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=masterkey[Ô]
CNN.Open CONEXAO
CNN.CursorLocation = adUseClient
End Function
Alguem tem a string de conexão que funcione pra rodar o provider?
Desculpe estar intrometendo, mas eu utilizo essa string de conexão com o SIBpro
With NOME_BANCO
.CursorLocation = adUseClient
[ô].Open [Ô]Provider=SIBProvider.2;Data Source=[Ô] & App.Path & [Ô]
ome_do_banco.FDB;SIB:Character Set=ascii;User Id=SYSDBA; Password=masterkey;[Ô]
End With
With NOME_BANCO
.CursorLocation = adUseClient
[ô].Open [Ô]Provider=SIBProvider.2;Data Source=[Ô] & App.Path & [Ô]
ome_do_banco.FDB;SIB:Character Set=ascii;User Id=SYSDBA; Password=masterkey;[Ô]
End With
Pessoal o que posso estar fazendo de errado? Consigo a conexão com o banco, no entando quando vou examinar uma tabela, da erro. Examinem o código abaixo:
Dim Db As ADODB.Connection
Dim Tb As ADODB.Recordset
Set Db = New ADODB.Connection
Db.Open [Ô]Provider=SIBProvider.2;Data Source=k:\sisfacil.FDB;SIB:Character Set=ascii;User Id=SYSDBA;Password=masterkey;[Ô]
Set Tb = New ADODB.Recordset
Tb.ActiveConnection = Db
Tb.Open [Ô]select * from perfiluser[Ô] [ô], , adOpenKeyset, adLockOptimistic
Ao tentar abrir a tabela da o seguinte erro:
Conexão falhou!
-2147217900 - SQLCode: -24
IBErrorCode: 335544569
can[ô]t format message 13:796 -- message system code -4
Dynamic SQL Error
SQL error code = -204
Table unknown
PERFILUSER
At line 1, column 15
obs: A tabela perfiluser existe no banco de dados.
Me ajudem por favor!
Dim Db As ADODB.Connection
Dim Tb As ADODB.Recordset
Set Db = New ADODB.Connection
Db.Open [Ô]Provider=SIBProvider.2;Data Source=k:\sisfacil.FDB;SIB:Character Set=ascii;User Id=SYSDBA;Password=masterkey;[Ô]
Set Tb = New ADODB.Recordset
Tb.ActiveConnection = Db
Tb.Open [Ô]select * from perfiluser[Ô] [ô], , adOpenKeyset, adLockOptimistic
Ao tentar abrir a tabela da o seguinte erro:
Conexão falhou!
-2147217900 - SQLCode: -24
IBErrorCode: 335544569
can[ô]t format message 13:796 -- message system code -4
Dynamic SQL Error
SQL error code = -204
Table unknown
PERFILUSER
At line 1, column 15
obs: A tabela perfiluser existe no banco de dados.
Me ajudem por favor!
Faltou as aspas [Ô] [Ô]
Db.Open [Ô][Ô]Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=[Ô]k:\sisfacil.FDB[Ô];User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=masterkey[Ô]
Db.Open [Ô][Ô]Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=[Ô]k:\sisfacil.FDB[Ô];User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=masterkey[Ô]
Colocando as aspas continua dando o mesmo erro:
Conexão falhou!
-2147217900 - SQLCode: -24
IBErrorCode: 335544569
can[ô]t format message 13:796 -- message system code -4
Dynamic SQL Error
SQL error code = -204
Table unknown
PERFILUSER
At line 1, column 15
Conexão falhou!
-2147217900 - SQLCode: -24
IBErrorCode: 335544569
can[ô]t format message 13:796 -- message system code -4
Dynamic SQL Error
SQL error code = -204
Table unknown
PERFILUSER
At line 1, column 15
olha o que vc colocou a mais. veja se não é isso
Tb.Open [Ô]select * from perfiluser[Ô]
[ô], , adOpenKeyset, adLockOptimistic
Também não é isso!!! Pessoal a versão do Firebird que estou usando é a 2.5 ok!
windows xp?
windows xp e windows 7 todos 2 dão o mesmo problema!
Tópico encerrado , respostas não são mais permitidas