自动注册SQL Server ODBC数据源
来源:互联网 发布:java获取当前时间毫秒 编辑:程序博客网 时间:2024/05/16 06:09
//***********************************************
// 函数名: 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
- 自动注册SQL Server ODBC数据源
- 自动注册数据源,odbc
- 自动注册数据源,odbc
- 自动注册ODBC数据源
- MFC-ODBC自动注册数据源
- 自动创建ODBC数据源(Access,Sql Server,DB2
- 自动创建ODBC数据源(Access,Sql Server,DB2
- 配置SQL Server ODBC数据源
- pb6.5下自动注册odbc数据源
- PB2007.10.12 自动注册ODBC数据源
- pb自动注册ODBC的sqlanywhere数据源
- pb自动注册ODBC的sqlanywhere数据源
- 在PB中自动注册Adaptive Server Anywhere 8.0 ODBC数据源
- PowerBuilder10自动注册OLE DB数据源(sql server 2000)
- SQL Server 2005 ODBC 数据源配置
- 配置SQL Server的ODBC数据源
- odbc数据源配置sql server出错 14
- ODBC注册数据源
- ORACLE密码字典暴力猜测破解方法
- ME
- 拜读强帖
- EXTJS 中Ajax 应用示例
- 医改法案使美国走向有特色的资本主义
- 自动注册SQL Server ODBC数据源
- 从 Shell32.dll 中载入图标
- [百度分享]dictmatch及多模算法串讲 -- 简介(转)
- 验证码中随机汉字的产生方法
- 处理DB2 数据COMMIT和ROLLBACK语句和事务边界
- 宽带升级
- SQL判断是否存在
- 够学习一辈子的生活经典
- Distracted