-

- 加为好友
- 发送私信
- 在线聊天
pcwe2002
- 等级:

- 可用分等级:
- 总技术分:
- 总技术分排名:
|
| 发表于:2008-08-24 10:25:432楼 得分:0 |
string ls_sys[] ls_sys[1]="HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\ODBC DRIVERS" ls_sys[2]="HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI" ls_sys[3]="HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources" ls_sys[4]="HKEY_CURRENT_USER\Software\ODBC\ODBC.INI" string ls_install RegistryGet(ls_sys[1], "Microsoft Access Driver (*.mdb)", RegString!,ls_install) if trim(ls_install) "Installed" then messagebox("error","Microsoft Access Driver does not setup!") halt end if string ls_dsn //ls_dsn=profileString("kjs.ini","ini","dsn_def","") //if len(trim(ls_dsn))=0 then // messagebox("error","ini file error!") // halt //end if ls_dsn = fs_dsn RegistrySet(ls_sys[3], ls_dsn,RegString!,"Microsoft Access Driver (*.mdb)") RegistrySet(ls_sys[4]+"\"+ls_dsn,"DBQ",RegString!,gs_current_directory+"\db\kjs.mdb") RegistrySet(ls_sys[4]+"\"+ls_dsn,"Driver",RegString!,"C:\WINDOWS\SYSTEM\odbcjt32.dll") RegistrySet(ls_sys[4]+"\"+ls_dsn,"FIL",RegString!,"MS Access;") RegistrySet(ls_sys[4]+"\"+ls_dsn,"PWD",RegString!,"sql") RegistrySet(ls_sys[4]+"\"+ls_dsn,"UID",RegString!,"dba") ulong lu_driverid,lu_SafeTransactions lu_driverid=25 lu_SafeTransactions=0 RegistrySet(ls_sys[4]+"\"+ls_dsn,"DriverId",Regulong!,lu_driverid) RegistrySet(ls_sys[4]+"\"+ls_dsn,"SafeTransactions",Regulong!,lu_SafeTransactions) | | |
修改
删除
举报
引用
回复
| |