如何在PB中动态创建数据源，使程序自动化？

[skypaladin]

如题。好象是在注册表中，忘记了。谢谢指教！

[地狱余烬]

哇你的分太夸张了吧，才 1 分 ，哇栲！：
string ls_keyname
string ls_valuename
string ls_value

ls_keyname="HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources"
ls_valuename="name"
ls_value="Microsoft Access Driver (*.mdb)"
f_register(ls_keyname,ls_valuename,ls_value)
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\name","","")

ls_keyname="HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\name"
ls_valuename="AutoStop"
ls_value="yes"
f_register(ls_keyname,ls_valuename,ls_value)

RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jkda_xz",'Engines','')
//RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jkda_sc\Engines",'Jet','')
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jkda_sc\Engines\Jet",'ImplicitCommitSync',RegString!, '')
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jkda_sc\Engines\Jet",'MaxBufferSize',RegBinary!, '800')
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jkda_sc\Engines\Jet",'PageTimeout',RegBinary!, '5')
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jkda_sc\Engines\Jet",'Threads',RegBinary!, '3')
RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jkda_sc\Engines\Jet",'UserCommitSync',RegString!, 'Yes')

//get current Directory
String ls_curdir

ls_curdir=Space(256)
GetCurrentDirectoryA(256,ls_curdir)

// set DBQ
ls_valuename="DatabaseFile"
ls_value=ls_curdir + ""


ls_valuename="DatabaseName"
ls_value="jkda_xz"
f_register(ls_keyname,ls_valuename,ls_value)
ls_valuename="Description"
ls_value="database source,2002!"
f_register(ls_keyname,ls_valuename,ls_value)
ls_valuename="Driver"
ls_value="C:\WINNT\System32\odbcjt32.dll"
f_register(ls_keyname,ls_valuename,ls_value)