//***********************************************
// 函数名: of_setodbc_sqlserver
// 功能: 完成SQL Server ODBC数据源的注册功能
// 输入参数:
// as_database 数据库名
// as_user 数据库用户
// as_pwd 密码
// as_server 数据库服务器名称或ip
// 返回值:
// true 表示自动配置成功
// false 表示自动配置失败
// 设计者: 魏远旺
// 完成时间: 2005年6月
//***************************************************
integer li_rtn
string ls_dsnname,ls_dbfullname,ls_driver,temp,ls_version
string ls_syspath,ls_root,ls_root_dsn
integer rtn
ls_syspath = Space( 255 )
//获得操作系统的目录
GetSystemDirectoryA(ls_syspath,255)
//
ls_driver = ls_syspath + "/sqlsrv32.dll"
ls_dsnname = as_dsn
ls_root = "HKEY_LOCAL_MACHINE/software/odbc/odbc.ini"
ls_root_dsn = ls_root + "/" + ls_dsnname
//注册数据源的名字
li_rtn = registryset(ls_root,ls_dsnname,regstring!,"")
if li_rtn= - 1 then
return false
end if
//注册数据库库名称
li_rtn = registryset(ls_root_dsn,"Database",regstring!,as_database)
if li_rtn= - 1 then
return false
end if
//注册数据库驱动程序
li_rtn = registryset(ls_root_dsn,"Driver",regstring!,ls_driver)
if li_rtn= - 1 then
return false
end if
//注册数据库用户
li_rtn = registryset(ls_root_dsn,"LastUser",regstring!,as_user)
if li_rtn= - 1 then
return false
end if
//注册数据库服务器
li_rtn = registryset(ls_root_dsn,"Server",regstring!,as_server)
if li_rtn= - 1 then
return false
end if
return true