FirebirdSQL/問答篇/Firebird Embedded Server and VFP

出自VFP Wiki

VFP與 FirebirdSQL 美好演出，透過ODBC是種美妙舞曲，若是需要了解API屈就於使用FirebirdSQL ，對於VFP迷來說是種折磨，也等於扼殺了FireBirdSQL 簡單與方便的美名．不是嗎？

如何使用Embedded server步驟如下：

1. Embedded server安裝說明
2. 確定FirebirdSQL ODBC Driver是否有安裝，沒有補上去．
3. 建立ODBC的使用來源，供應用程式使用
4. 測試資料庫是否能使用

&&原作者：dorin_vas@yahoo.com 提共此函數 &&建立ODBC使用來源 PROCEDURE setDSN LPARAMETERS cDSN,cServerName,cDBName, cDLLPath, cRole *cDSN entry in ODBC DSN *cServerName server, name or IP *cDBName database *cDLLPath path to DLLs folder *cRole user role

#DEFINE HKEY_CURRENT_USER -2147483647 #DEFINE SUB_KEY 'Software\ODBC\ODBC.INI\'

IF TYPE('cRole') <> 'C' cRole = 'appuser' ENDIF

oReg = NEWOBJECT('registry','registry.prg')

WITH oReg &&AS registry OF registry.prg .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN, 'Driver',cDLLPath+'OdbcJdbc.dll' ,.T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN, 'Dbname',cDBName, .T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN, 'Role','appuser', .T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN,'CharacterSet','NONE',.T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN, 'Client',cDLLPath + 'fbclient.dll' ,.T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN,'JdbcDriver','IscDbc',.T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN,'ReadOnly','N', .T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN, 'NoWait','Y', .T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN, 'Dialect','3', .T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN,'QuotedIdentifier','N',.T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN, 'User', 'SYSDBA',.T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN, 'Password','masterkey',.T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN,'SensitiveIdentifier','Y',.T.) .writeRegistryString(HKEY_CURRENT_USER, SUB_KEY + cDSN,'AutoQuotedIdentifier','N',.T.) ENDWITH ENDPROC && setDSN

檔案下載

1. Firebird-VFP & Embedded server安裝/使用說明/範例程式
2. Firebird RDBMS Downloads

相關文章

1. 蜉蝣小品之文件管理0.1