|
发表于 2004-3-3 01:41:02
|
显示全部楼层
自己多看一看PB的例子,会有很大帮助的. 基本步骤如下:
1. In Application:
//主窗口名
open(w_main)
2. 在w_main的Open事件中,连数据库
// Connect to database using ProfileString
// 注意D:\CE\ce.ini的内容要设置好
SQLCA.DBMS = ProfileString("d:\CE\ce.ini", "xstest", "DBMS", "")
SQLCA.DbParm = ProfileString("d:\CE\ce.ini", "xstest", "DbParm", "ConnectString='DSN=xstest;UID=;PWD=")
SQLCA.LogId = ProfileString("d:\CE\ce.ini", "xstest", "LogId", " ")
SQLCA.LogPass = ProfileString("d:\CE\ce.ini", "xstest", "LogPassword", " ")
SQLCA.ServerName = ProfileString("d:\CE\ce.ini", "xstest", "ServerName", " ")
SQLCA.UserId = ProfileString("d:\CE\ce.ini", "xstest", "UserId", " ")
SQLCA.DBPass = ProfileString("d:\CE\ce.ini", "xstest", "DatabasePassword", " ")
SQLCA.lock = ProfileString("d:\CE\ce.ini", "xstest", "lock", " ")
CONNECT
// 测试连接是否成功
IF Instance_Trans_Software.SQLCode <> 0 THEN
MessageBox("连接错误", &
"不能连到数据库 " &
+ SQLCA.SQLErrText)
RETURN
END IF
3 创建一个带参数name的数据窗口d_name
4. 创建一个数据窗口控件dw_name:
dw_name.SetTransObject(SQLCA)
//如果模糊查询, 加一些代码在这里
string name
name = sle_name.txt + '*'
// 查询
dw_name.Retrieve(name)
4. 如果浏览, 将name设置成*
name = '*'
dw_name.retrieve(name)
5. 结束
Disconnect;
Close(Parent) |
|