各位，請教一個弱智問題：pb 9 如何與asa通過專用介面連接？能給個代碼不？謝謝各位大俠。
uj5u.com熱心網友回復：
好像沒有直連,可以看看以下內容 ODBC無DSNhttp://bbs.csdn.net/topics/390456326
uj5u.com熱心網友回復：
這個是用ole db的吧？？
uj5u.com熱心網友回復：
哪位能給段代碼看看？？uj5u.com熱心網友回復：
是ODBC
uj5u.com熱心網友回復：
是用注冊函式注冊asa驅動的吧
uj5u.com熱心網友回復：
驅動是和客戶端一起安裝上的
uj5u.com熱心網友回復：
繼續盼望著......uj5u.com熱心網友回復：
我給你現成的代碼吧//通過編輯注冊表自動配置ODBC
Integer li_FileNum, loops, i,i_database
Long flen, bytes_read, new_pos
Blob b, tot_b
ULong ul_num
Int Answer,Answer1,Answer2,Answer3,Answer4,Answer5,Answer6,Answer7,Answer8,Answer9,ansApp
String ls_driver,ls_start,ls_driver_yy,ls_start_yy,ls_driver_xt,ls_start_xt,ls_driver_test
String ls_location,apppath,db_path,db_name,ODBCStr,ds_name,ls_dir,ls_dbfile
RegistryGet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Adaptive Server Anywhere 8.0","Driver", RegString!, ls_driver_test)
i_database = RegistryGet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ggzb","DatabaseFile", RegString!, ls_dbfile)
//IF Mid(ls_driver_test,(Len(ls_driver_test) - 10),11) = 'dbodbc8.dll' And i_database = 1 and ls_dbfile=gs_locpath+'\ggzb.db' THEN //設定好驅動了
// IF FileExists(ls_driver_test) And FileExists(ls_dbfile) THEN
// RETURN True
// END IF
//END IF
ls_location = gs_locpath + "\" //獲得該應用的目錄
ls_driver_yy = ls_location + "dbodbc8.dll"
ls_start_yy = ls_location + "dbeng8.exe"
ls_driver_xt = windir + "\" + "dbodbc8.dll"
ls_start_xt = windir + "\" + "dbeng8.exe"
IF Not ( ( FileExists(ls_driver_yy) And FileExists(ls_start_yy) ) Or (FileExists(ls_driver_xt) And FileExists(ls_start_xt) ) ) THEN
MessageBox("引擎錯誤1","系統中沒有資料庫驅動引擎和元件！~r~n系統將終止運行!",StopSign!)
RETURN False
END IF
IF FileExists(ls_driver_xt) And FileExists(ls_start_xt) THEN
ls_driver = ls_driver_xt
ls_start = ls_start_xt
ELSE
ls_driver = ls_driver_yy
ls_start = ls_start_yy
END IF
Answer = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\ODBC Drivers","Adaptive Server Anywhere 8.0",RegString!,"Installed")
IF Answer = -1 THEN
MessageBox("ODBC驅動錯誤2","系統設定Adaptive Server Anywhere 8的驅動出現錯誤",Information!)
RETURN False
END IF
//設定ODBC\ODBCINST.INI
Answer1 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Adaptive Server Anywhere 8.0","CPTimeout",RegString!,"not pooled")
Answer2 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Adaptive Server Anywhere 8.0","Driver",RegString!,ls_driver)
Answer3 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Adaptive Server Anywhere 8.0","Setup",RegString!,ls_driver)
IF Answer1 = -1 Or Answer2 = -1 Or Answer3 = -1 THEN
MessageBox("錯誤3","系統設定注冊表ODBC\ODBCINST錯誤!~r~n系統將終止運行!",Information!)
RETURN False
END IF
db_path = gs_locpath +"\ggzb.db" //設定資料庫路徑及檔案名
db_name = "ggzb" //設定資料庫名稱
ds_name = "ggzb" //設定ODBC資料源名稱
Answer = RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBCINST.INI\ODBC Data Sources",ds_name,RegString!,"Adaptiver Server Anywhere 8.0")
IF Answer = -1 THEN
MessageBox("設定資料源錯誤4","系統設定ODBC資料源錯誤!~r~n系統將終止運行!",Information!)
RETURN False
END IF
//設定ODBC.INI的細節
ls_start = ls_start+" -d -Q -c20m"
RegistryDelete("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\"+ds_name,"CommLinks")
Answer1 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.ini\"+ds_name,"driver",RegString!,ls_driver)
Answer2 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.ini\"+ds_name,"start",RegString!,ls_start)
Answer3 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\"+ds_name,"autostop",RegString!,"yes")
Answer4 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\"+ds_name,"DataBaseFile",RegString!,db_path)
Answer5 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\"+ds_name,"DataBaseName",RegString!,db_name)
Answer6 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\"+ds_name,"UID",RegString!,"dba")
Answer7 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\"+ds_name,"PWD",RegString!,"sql")
Answer8 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\"+ds_name,"EngineName",RegString!,ds_name)
Answer9 = RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\"+ds_name,"Compress",RegString!,"YES")
IF Answer1 = -1 Or Answer2 = -1 Or Answer3 = -1 Or Answer4 = -1 Or Answer5 = -1 Or Answer6 = -1 Or Answer7 = -1 Or Answer8 = -1 THEN
MessageBox("錯誤5","系統設定ODBC錯誤!~r~n系統將終止運行!",Information!)
RETURN False
END IF
RETURN True
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/52541.html
標籤：數據庫相關