有没有人做过Pb ＋ mysql？

KittyWang 2002-06-20 09:03:45

有没有人做过Pb ＋ mysql？

...全文

45 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

killerdanny 2002-07-12

打赏
举报

本机连接配置MYSQL的ODBC：注意本机要有myodbc.dll
如下：
////********************************************************************************
//注册MYSQL-ODBC
//string ls_servername
//RegistryGet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
// "EngineName",RegString!,ls_servername)
//
//if (isnull(ls_servername) or trim(ls_servername)="") then

RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\ODBC Data Sources",&
"mysql_emotor",RegString!,"MySQL")

//RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
// "Database",RegString!,"myemotor")

//
RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
"Driver",RegString!,is_path+"dbeng\myodbc.dll")
RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
"Server",RegString!,"202.101.165.82")
RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
"Database",RegString!,"myemotor")
// //
//RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\emotor",&
// "EngineName",RegString!,"myemotor")

//RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
// "Database",RegString!,"myemotor")

//
//RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
// "Driver",RegString!,"C:\myodbc.dll")
//
// RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\emotor",&
// "EngineName",RegString!,"server2")

//end if
//********************************************************************************
/////////////////////////////////////////

DBTrans = CREATE transaction
/////////////////////
DBTrans.DBMS = "ODBC"
DBTrans.database = ""
DBTrans.servername = ""
DBTrans.AutoCommit = False
DBTrans.DBParm = "ConnectString='DSN=mysql_emotor;UID=emosearch;PWD=emotorsearch;'"

connect USING DBTrans;
if dbtrans.sqlcode = 0 then
RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
"Server",RegString!,"")
RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\mysql_emotor",&
"Database",RegString!,"")
else

messagebox("信息窗口","数据库连接不上：~n请判断是否已经连上INTERNET"+string(dbtrans.sqlcode))
return
end if

KittyWang 2002-07-12