亲哥们，高手都在说把连接数据源写到程序里，菜鸟都在找，能给个例子吗？
MYSQL连PB 不用用户配置数据源 装了驱动运行直接连库 看高手们说能通过在程序里写代码或者写注册表实现
能给个例子吗，估计需要的人不少 我用完帮着传播一下 普及下基础知识吧！！
连上给分 (*^__^*) 嘻嘻……
[解决办法]
[b]我自己寫的一個列子，建議先了解odbc的工作流程，以及系統注冊表屬性的意思！[/b]
//用程式注冊 ODBC連接
integer li_ispass//是否執行函數成功
string ls_databasefile_current//當前系統注冊表中的databasefile屬性值
string ls_db_path//記錄當前target application所在的路徑
string ls_dsn//odbc別名
string ls_IsRegistry//是否重新注冊odbc
string ls_databaseFile//資料庫文件名稱
string ls_driverName//ODBC驅動程式名稱(系統回自動根據此名稱去找相關的驅動)
string ls_driver//ODBC驅動
string ls_uid//登陸帳號
string ls_pwd//登陸密碼
ls_db_path = GetCurrentDirectory()//獲得當前 target application所在的路徑
//從ini文件中讀取DSN
ls_IsRegistry = profilestring(ls_db_path + '\database\sys.ini','CreateODBC','IsRegistry','yes')
ls_dsn = profilestring(ls_db_path + '\database\sys.ini','CreateODBC','DatasourceName','billdb')
ls_databaseFile = profilestring(ls_db_path + '\database\sys.ini','CreateODBC','DatabaseFile','billdb.db')
ls_driverName = profilestring(ls_db_path + '\database\sys.ini','CreateODBC','DriverName','Adaptive Server Anywhere 7.0')
ls_driver = profilestring(ls_db_path + '\database\sys.ini','CreateODBC','Driver','dbodbc7.dll')
ls_uid = profilestring(ls_db_path + '\database\sys.ini','CreateODBC','Uid','dba')
ls_pwd = profilestring(ls_db_path + '\database\sys.ini','CreateODBC','pwd','sql')
/*
以下用于從系統注冊表中的odbc數據源節中取出key值為billdb的value
billdb：指要從系統注冊表中取出值的key名稱，這里也表示ODBC名稱
RegString! 是registryRegStrin類型的枚舉，表示取出 以空字符結束的字符串
*/
if ls_IsRegistry = "yes" then//ini文件設定要重新注冊odbc時
//以下 先注冊odbc的名稱再注冊相關的屬性
if registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\odbc data sources", ls_dsn ,regstring!, ls_driverName) > 0 then
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + ls_dsn ,"AutoStop",regstring!,"yes")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + ls_dsn ,"Driver",regstring!, ls_db_path + "\database\" + ls_driver)
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + ls_dsn ,"pwd",regstring!, ls_pwd)
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + ls_dsn ,"uid",regstring!, ls_uid)
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + ls_dsn ,"Integrated",regstring!,"no")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\" + ls_dsn ,"DatabaseFile",regstring!, ls_db_path + "\database\" + ls_databaseFile)
else
messagebox('提示','注冊ODBC失敗！')
halt close
end if
end if
return ls_dsn
[解决办法]
转一个access，应该都差不多
powerbuilder 自动注册odbc用户数据源(使用access数据库)2008-03-21 09:15/* powerbuilder开发程序一般需要在客户的"裸机"上注册odbc数据源(如果使用odbc数据源链接数据库)。此时不能让客户手动管理工具-->odbc数据源，这些操作应该对客户是透明的，所以需要程序中自动注册odbc数据源。本程序参考了网络上的一些自动注册odbc数据源的程序，自己观察了手动建立odbc数据源前后注册表表项的变化情况，然后利用查看和更改注册表的2个函数对注册表的相关条目进行操作，成功自动注册odbc数据源。程序给出了较清晰的注解，希望方便以后需要的朋友。
程序中可变的部分也相应以可变给出标记。*/
//自动注册odbc数据源(对access数据库)
string dsn //odbc数据源名
string database //access数据库
string currentPath //当前路径
string odbcDriver //odbc驱动
string myOdbc //程序目录中包含odbcjt32.dll驱动
currentPath = getCurrentDirectory()
if right(currentPath, 1) <> "\" then
currentPath = currentPath + "\"
end if
dsn = "autohardware" //数据源名可变
database = currentPath + "autoHardWare.mdb" //数据库文件可变
myOdbc = currentPath + "odbcjt32.dll" //提前把odbcjt32.dll放在程序目录中
/*此处可以添加一段程序:检查系统目录是否包含odbcjt32.dll,如果没有包含把
提前准备好的odbcjt32.dll拷贝到系统目录下
否则,程序认为用户的操作系统目录下包含odbcjt32.dll
*/ //此处请完美者添加，在pb中调用windows api得到系统目录，目前程序默认windows系统安装在C盘
//odbc驱动文件必须放在系统目录下
odbcDriver = "c:\windows\system32\odbcjt32.dll"
//检查用户机子上是否已经安装了本程序所需的数据源(名为autohardware)
int ret
string result
string regEditKey
regEditKey = "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" +dsn
string regOdbcSources
regOdbcSources = "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources"
//registryget(key, 数据，数据类型, 存放结果)
ret = registryget(regEditKey, "DBQ", RegString!, result)
if ret = 1 then
goto label //label标记，连接数据库，打开窗口，自己可以改动
else
//注册用户数据源
//registrySet(key, 数据，数据类型，值)
registrySet(regEditKey, "DBQ", RegString!, database)
registrySet(regEditKey, "Driver", RegString!, odbcDriver)
registrySet(regEditKey, "DriverId", ReguLong!, 25)
registrySet(regEditKey, "FIL", RegString!, "MS Access")
registrySet(regEditKey, "UID", RegString!, "") //用户名可以自己设置，此处设置为空
registrySet(regEditKey, "PWD", RegString!, "") //密码可以自己设置，此处设置为空
registrySet(regEditKey, "SafeTransactions", ReguLong!, 0)
//下面这行程序把该用户dsn添加到odbc dsn列表中，即管理工具添加数据源的"可见性"
registrySet(regOdbcSources, dsn, RegString!, "Microsoft Access Driver(*.mdb)")
goto label //label标记，连接数据库，打开窗口，自己可以改动
end if
