启动pb7.0,创建一个不可视的用户对象"uo_customer",新建"object",选择"custom class"
类型,点击"ok"。
在新创建的用户对象中编写如下程序:
1.声明实例变量"instance variables",对于com中不支持的类型,请声明为protected类型。protected:
datastore ds_datastore
2.新建三个成员函数:
int uf_connect()//用于连结数据库与创建datastore对象。
代码:
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=false
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
connect using sqlca;
ds_datastore =create datastore
if sqlca.sqlcode=0 t...[ 查看全文 ]