以下函数是用来在PB中自动注册Adaptive Server Anywhere 8.0 ODBC的数据源
//====================================================================
// 函数: of_reganywhereodbc()
//--------------------------------------------------------------------
// 说明: 注册Adaptive Server Anywhere 8.0 ODBC数据源
//--------------------------------------------------------------------
// 参数:
// value string as_DatabaseFile
// value string as_databasename
//--------------------------------------------------------------------
// 返回值: integer
//--------------------------------------------------------------------
// 设计人: EVEREST 日期: 2005.10.28
//--------------------------------------------------------------------
// 历史修改:
//====================================================================
width="468" height="60" frameborder="0" align="middle" border="0" marginheight="1" marginwidth="1" src="http://b199.cn/blog_ads/Google_468_60.htm" name="I1">
If as_DatabaseFile = "" Or IsNull(as_DatabaseFile) Or as_databasename = "" Or IsNull(as_databasename) Then Return -1
String ls_isregister,ls_currentdir
ls_currentdir = GetCurrentDirectory()
RegistryGet("HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI/ODBC Drivers","Adaptive Server Anywhere 8.0", ls_isregister)
//If ls_isregister = '' Or IsNull(ls_isregister) Then //注册数据驱动
RegistrySet("HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI/ODBC Drivers","Adaptive Server Anywhere 8.0","Installed")
RegistrySet("HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI/Adaptive Server Anywhere 8.0", "Driver",ls_currentdir + "/sqlanywhere/drv/dbodbc8.dll")
RegistrySet("HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI/Adaptive Server Anywhere 8.0", "Setup",ls_currentdir + "/sqlanywhere/drv/dbodbc8.dll")
RegistrySet("HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI/Adaptive Server Anywhere 8.0 Translator","Driver" ,ls_currentdir + "/sqlanywhere/drv/dblgen8.dll")
RegistrySet("HKEY_LOCAL_MACHINE/Software/ODBC/ODBCINST.INI/Adaptive Server Anywhere 8.0 Translator","Setup" ,ls_currentdir + "/sqlanywhere/drv/dblgen8.dll")
//End If
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">; </script>
SetNull(ls_isregister)
RegistryGet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/ODBC Data Sources", as_databasename,ls_isregister)
//If ls_isregister = '' Or IsNull(ls_isregister) Then //注册数据源
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/ODBC Data Sources", as_databasename,'Adaptive Server Anywhere 8.0')
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/"+as_databasename,"AutoStop",'yes')
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/"+as_databasename,"DatabaseFile", as_databasefile)
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/"+as_databasename,"DatabaseName", as_databasename)
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/"+as_databasename,"Description", as_databasename)
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/"+as_databasename,"Driver",ls_currentdir + '/sqlanywhere/drv/dbodbc8.dll')
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/"+as_databasename,"PWD", 'sql')
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/"+as_databasename,"Start", ls_currentdir + '/sqlanywhere/drv/dbeng8.exe -c 8m -m')
RegistrySet("HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/"+as_databasename,"UID", 'dba')
//End If
Return 1
width="468" height="60" frameborder="0" align="middle" border="0" marginheight="1" marginwidth="1" src="http://b199.cn/blog_ads/Google_468_60.htm" name="I1">