Firebird embedded

[Rafael dos Santos Bernardo]

Olá glr.

Sou novo aqui no fórum, mas sempre acompanho vocês =D

Venho pedir uma pequena ajuda para realizar a conexao com o firebird embedded

Não tenho consigo me conectar ele usando o vba do excel.

 

último código q tentei foi esse:

Private Sub Conectar()
Dim cn, cmd, rs, i
Set cn = CreateObject("ADODB.Connection")
 
cn.Open "Provider=LCPI.IBProvider;" & _
        "Data Source=C:\DB\teste.fdb; " & _
        "User Id=SYSDBA;" & _
        "password=masterkey;" & _
        "ctype=win1251;" & _
        "auto_commit=true"
 
Set rs = cn.Execute("select * from MON$ATTACHMENTS")
 
Do While Not rs.EOF
 
   For i = 0 To rs.Fields.Count - 1
       wscript.echo rs(i).Name & "=" & rs(i).Value
   Next
 
   rs.MoveNext
Loop
 
rs.Close
cn.Close
End Sub

Aparece um código de erro dizendo que o provedor não foi encontrado.

 

Mas já tentei outros também q não deu certo.

 

Nâo preciso usar necessariamente o Firebird, mas tem q ser um banco de dados embarcado, que não haja a necessidade de nenhuma instalação. 

Se alguem puder me ajudar, agradeço.