1、建立 Workspace 对象
2、建立 Application 对象
3、建立 Window 对象 mywin
4、建立 DataWindow 对象 mydata
5、在 Application 对象的 OPEN 方法中添加一句:open(mywin)
6、在 Window 对象上添加 DataWindow 控件 dw_1,控件的 DataObject 属性设为 mydata
7、在 Window 对象的 OPEN 方法中添加下列语句实现数据库查询(前三条语句内容参照 PB 数据库 一节)
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False SQLCA.DBParm = "ConnectString='DSN=price;UID=root;PWD='" connect using SQLCA; if SQLCA.SQLCODE = -1 then messagebox("Can't connect","") end if
dw_1.retrieve()
DISCONNECT USING SQLCA; |