PB连接sybase anywhere数据库

/*********************************************************************************
*函数名称:f_reg_db
*参数列表:无
*返回值:0-失败,1-成功
*作者:李永结
*函数功能:注册数据库(sybase anywhere)
*创建时间:2011/10/03
*说明:需要文件:dbodbc9.dll,dbeng9.exe
*********************************************************************************/


string ls_dbfile,ls_driver
string ls_dbodbc_dll,ls_dbeng_dll
string ls_db_path,ls_db_name,ls_ds_name
String ls_start
string ls_location
long ll_rtn
string ls_dbms


//设置数据库路径及文件名
ls_db_path = gs_rootpath +"\modeldb.db" 
//设置数据库名称
ls_db_name = "modeldb" 
//设置ODBC数据源名称
ls_ds_name = "modeldb"


//如果连接数据库方式不是ODBC,则不需要注册数据库
ls_dbms = trim(profilestring("system.ini","database","DBMS","ODBC"))
if upper(ls_dbms) <> "ODBC" then
f_log("连接数据库方式不是ODBC,不需注册数据库")
return 1
end if


//检查数据库是否已经注册
ll_rtn=RegistryGet("HKEY_current_user\Software\ODBC\ODBC.INI\ODBC Data Sources","modeldb",RegString!,ls_driver)
IF ll_rtn=1 THEN
f_log(ls_db_name+"数据库已经注册")
RETURN 2
ELSE
f_log(ls_db_name+"数据库没有注册,准备注册")
END IF


ll_rtn = RegistryGet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Adaptive Server Anywhere 9.0","Driver", RegString!, ls_driver)
if ll_rtn =  1 then
f_log("已经设置好ODBC驱动")
else
f_log("ODBC驱动没有设置")
end if


ll_rtn = Registr