USAR FIREBIRD 2.0
estou usando o ACCESS, pois vou mudar pra Firebird 2.0, no caso das conxoes muda muita coisa,
no Módulo
estou usando
CnSql.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & [Ô]C:\Dados\CTR\CTR.mdb[Ô] & [Ô];Jet OLEDB:database Password=MasterDB[Ô]
alguem tem alguma dica. Grato
Nilton
no Módulo
estou usando
CnSql.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & [Ô]C:\Dados\CTR\CTR.mdb[Ô] & [Ô];Jet OLEDB:database Password=MasterDB[Ô]
alguem tem alguma dica. Grato
Nilton
No FireBird usa assim, mais é preciso instalar o provedor para poder ter acesso. Estou enviando o provedor para você SIBPRO2.dll e só registar
Dim caminho As String
caminho = App.Path + [Ô]\banco.gdb[Ô]
conexao = [Ô]Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=[Ô] & caminho & [Ô];User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & [Ô]masterkey[Ô]
Dim caminho As String
caminho = App.Path + [Ô]\banco.gdb[Ô]
conexao = [Ô]Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=[Ô] & caminho & [Ô];User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & [Ô]masterkey[Ô]
valeu jpaulo
eu tenho que deichar o FIREBORD estardado, quando for instalar pro meu cliente tenho que colocar o firebord OK..
Dim rsClientes As New ADODB.Recordset
rsClientes.Open [Ô]select ClienteID from Cad_CLiente[Ô], CnSql, adOpenStatic, adLockOptimistic
RS.Open [Ô]Select * From Cad_Cliente[Ô], CnSql, adOpenKeyset, adLockOptimistic, adCmdText
If Not rsClientes.EOF Then
End If
Me.Refresh
rsClientes.Close
Tópico encerrado , respostas não são mais permitidas