gs_curpath = space(100)
GetCurrentDirectoryA(100,gs_curpath)//获得程序路径
gs_curpath = trim(gs_curpath)
if right(gs_curpath,1)<>'\' then
gs_curpath = gs_curpath+"\"
end if
RegistryDelete ("HKEY_CURRENT_USER\software\odbc\odbc.ini\odbc data sources", dsn_name )
RegistryDelete ("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name, "" )
//如果没有此句,odbc中无此数据源名称,但可以用
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\odbc data sources",dsn_name,regstring!,"Adaptive Server Anywhere 8.0")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"AutoStop",regstring!,"Yes")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"DatabaseFile",regstring!,gs_curpath + db_filename)//db_filename为你数据库名字
// registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"Debug",regstring!,"NO")
// registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"DisableMultiRowFetch",regstring!,"NO")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"Driver",regstring!,gs_curpath+"dbodbc8.dll")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"Integrated",regstring!,"NO")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"PWD",regstring!,"sql")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"UID",regstring!,"dba")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"Start",regstring!,gs_curpath+"dbeng8.exe -q -cl 32m")
// registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"Start",regstring!,gs_curpath+"dbeng8.exe -d -qp -cl 8m")
//registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"ServerName",regstring!,gs_curpath+"dbsrv8.exe")
//registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"DataBaseName",regstring!,"HTCTS1.0")
// registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + dsn_name,"Start",regstring!,gs_curpath+"dbeng8.exe -Q ")
//用户名和口令不注册,以保安全,下面连接时输入正确的用户名和口令即可。end if
SQLCA.DBMS = "ODBC"
SQLCA.DBParm = "ConnectString='DSN=" + dsn_name + "UID=dbaPWD=sql'"
SQLCA.AutoCommit = False
connect
//还需要一些文件 你从网上down就行了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)