
Originariamente inviato da
ROCMAN
Qualsiasi prova faccia mi compare il messaggio "Errore di runtime 80004005 - Microsoft Driver Manager ODBC Nome origine dati non trovato e driver predefinito non specificato. Il driver di Firebird dovrebbe esserci perchè sul pc dove lavoro c'è installato il software che utilizza quel database.
Non è detto, se il programma è fatto con un altro linguaggio, ad esempio Delphi, il driver potrebbe non essere installato (ed in genere non lo è).
Sicuramente hai installato il Server.
Per il client devi controllare nel Pannello di Controllo di Window, nell'applet Installazione programmi in cui deve apparire:
FirebirdClient xxxxx (ove xxxxx è la versione del driver)
Se no c'è, devi installarlo.

Originariamente inviato da
ROCMAN
Le stringhe che ho provato sono queste:
Prima di analizzare la stringa di connessione, controlla se hai il client.
Anche perchè il percorso del DB non mi pare esattamente uguale in tutte le stringhe
Comunque, questa è la stringa di connessione che uso io, e funziona senza problemi:
Pubbli Function OpenFirebirdDB () As Boolean
Dim sDBName As String
Dim CN As ADODB.Connection
Dim sUser As String
Dim sPwd As String
sDBName = <....>
If Dir(sDBName) = "" Then
MsgBox "Database non trovato.", vbExclamation
Exit Function
End If
sUser = <....>
sPwd = <....>
Set CN = New ADODB.Connection
With CN
.ConnectionString = "Driver=Firebird/InterBase(r) driver;UID=" & sUser & ";PWD=" & sPwd & ";DBNAME=" & sDBName & ";"
.CursorLocation = adUseClient
.Mode = adModeRead
.Open
End With
OpenFirebirdDB = True

Originariamente inviato da
ROCMAN
In VB ho messo i riferimenti Microsoft ActiveX Data Objects 2.7 Library e Microsoft Data Binding Collection
Sarebbe meglio ADO 2.8, che è quella pre-installata da Windows XP in poi.
La seconda non serve a niente, a meno che tu non abbia la pessima idea di usare il binding dei controlli.