Modifica il messaggio d'errore con:
....
else
Beep
MsgBox "The database couldn't be opened." + EndOfLine + db.ErrorMessage
cosi almeno si può sapere con certezza cosa c'è che non va ;-)
--
Marco Bambini
REAL Software, Inc.
http://www.realsoftware.com
On Jun 19, 2007, at 12:42 PM, Enrico a Libero wrote:
Salve a tutti, ho fatto un piccolo programma per catalogare dei
libri, sotto win e mac nessun problema ad accedre all'archivo,
sotto linux non riesco a connetere il db.
Ho utilizzato il RealSqlDatabase per praticità di trasporto ed
installazione (1 file eseguibile ed un file per il db)
La connessione è sempre la stessa o dove cambiare qualche cosa?
Codice:
//INIZIALIZZAZIONE RB-SQLDATABASE
Dim dbFile as FolderItem
Dim db as REALSQLdatabase
dim rec as DatabaseRecord
dim rs as RecordSet
dim i as integer
dim v as String
db= New REALSQLdatabase
dbFile = GetFolderItem("Taberna")
db.DatabaseFile=dbFile
rec=new DatabaseRecord
If db.Connect() then
//proceed with database operations here..
else
Beep
MsgBox "The database couldn't be opened."
end if
//FINE INIZIALIZZAZIONE RB-SQLDATABASE
Grazie sempre a tutti.
Un saluto
Enrico
|