oFB = NEWOBJECT('firebird', 'firebird.prg') oFB.client_dll="C:\Program Files\Firebird\Firebird_1_5\bin\fbclient.dll" IF !oFB.SrvAttach(.T.) MESSAGEBOX('Firebird server not running'+ CHR(13)+ ofb.output ) RETURN .f. ENDIF IF !FILE('c:\demo.fdb') AND !oFB.CreateDB('c:\demo.fdb') MESSAGEBOX('Database creation failed '+ CHR(13)+ ofb.output ) RETURN .f. ENDIF RELEASE oFB SQLSETPROP(0,"DispLogin",3) cConnStr= "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey; " + ; "DBNAME=localhost:c:\demo.fdb" lnConnHandle = sqlstringconnect( cconnstr ) IF lnConnHandle <= 0 AERROR( laerror ) _cliptext = laerror[1,2] MESSAGEBOX( laerror[1,2] ) RETURN .f. ENDIF