Question

pb 如何连接ACCESS

我是一个菜鸟才学PB
现在我有一个ACCESS数据库我想练习用SQL语句查询所以就安装了PB6.5
假如我的ACCESS数据库名字叫 db.mdb 我在ODBC配置中应该选择什么！
在PB 6.5 中 又如何设置 （我知道在PB中选择 db prof 选择ODBC 然后点 new 命令新建 可我不会设置 profile name - data source - user id--password）谁知道请回答以下

Answer 1

你说的profile name - data source - user id--password
是数据源里的参数
acc<->odbc<->pb
有这三种

方式一：

SQLCA.DBMS = "ODBC"

SQLCA.AutoCommit = False

SQLCA.DBParm = "ConnectString='driver=Microsoft Access Driver (*.mdb);DBQ=c:\foodmart.mdb'"

CONNECT;

IF SQLCA.SQLCode <> 0 THEN

MessageBox("数据库连接失败","请与管理员联系。错误号:" + String(SQLCA.SQLCode) + "~r~n错误原因:" + SQLCA.SQLErrText)

RETURN

else

MessageBox("数据库连接成功","现在进入系统... ...")

end if

方式二：

SQLCA.DBMS = "OLE DB"

SQLCA.AutoCommit = False

SQLCA.DBParm = "PROVIDER='Microsoft.Jet.OLEDB.4.0',DATASOURCE='C:\foodmart.mdb'"

CONNECT;

方式三：

建立DSN，通过ODBC连接。这个就不用多说了。

例如:

// Profile my_ass

SQLCA.DBMS = "ODBC"

SQLCA.AutoCommit = False

SQLCA.DBParm = "ConnectString='DSN=my_ass'"

Answer 2

Ulong ul_num
Int answer,answer1,answer2,answer3,answer4,answer5,answer6,answer7
String ls_driver,db_path,dqml
dqml=GetCurrentDirectory ( )
//取得数据库驱动程序的路径
answer=RegistryGet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\Microsoft Access Driver (*.mdb)","driver",RegString!,ls_driver)
IF answer=-1 THEN
Messagebox("错误","应用程序无法获取Windows的系统目录，系统统将终止运行！",Stopsign!)
RETURN
END IF
//添加gw数据源
answer=RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\ODBC Data Sources','dlcl',RegString!,'Microsoft Access Driver (*.mdb)')
IF answer=-1 THEN
Messagebox('错误','应用程序无法设置ODBC DATA SOURCE名称，系统将终止运行',StopSign!)
RETURN
END IF
db_path=dqml+'\dianlicl.mdb'
//设置ODBC.INI的细节
answer1=RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\dianlicl","driver",RegString!,ls_driver)
answer2=RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\dianlicl","dbq",RegString!,db_path)
answer3=RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\dianlicl","fil",RegString!,'ms access')
RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\dianlicl","uid",RegString!,'')
Registryset("HKEY_current_user\Software\ODBC\odbc.ini\dianlicl","driverid",RegULong!, 25)
Registryset("HKEY_current_user\Software\ODBC\odbc.ini\dianlicl","safetransactions",RegULong!, 0)
//设置ODBC.INI\engines子健的细节
answer4=RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\dianlicl','engines',RegString!,'')
answer5=RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\dianlicl\engines\jet','implicitcommitsync',RegString!,'')
RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\dianlicl\engines\jet','usercommitsync',RegString!,'yes')
RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\dianlicl\engines\jet','maxbuffersize',regulong!,2048)
RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\dianlicl\engines\jet','pagetimeout',regulong!,5)
RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\dianlicl\engines\jet','threads',regulong!,3)
IF answer1=-1 or answer4=-1 or answer5=-1 THEN
Messagebox('错误','应用程序无法设置odbc.ini，系统将终止运行',StopSign!)
RETURN
END IF
//连接数据源
sqlca.dbms='odbc'
sqlca.dbparm="connectstring='dsn=dianlicl'"
connect using sqlca;
if sqlca.sqlcode <> 0 then
MessageBox ("错误信息","数据连接失败!!~r1.检查网络是否连接~r2.请网管员来处理")
HALT CLOSE
return
else
open(w_main_x)
end if