Question

PB中怎么给SQLCA自定义方法?比如我的方法为beginTran(),然后这么调用SQLCA.beginTran()?请各位大侠帮忙

Answer 1

定义SQLCA的参数，然后使用CONNECT USING SQLCA连接。
CONNECT这句就相当于你的BEGIN TRANS的意思了。
例如你可以定义一个begintran的函数，给你举个例子，数据库是ORACLE10G
// Profile 数据库
SQLCA.DBMS = "O10 Oracle10g (10.1.0)"
SQLCA.LogPass = '连接密码'
SQLCA.ServerName = "数据库实例名"
SQLCA.LogId = "用户"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect using sqlca;
return sqlca.sqlcode

这个函数返回的类型是整型，即返回连接后的sqlcode。
使用的时候，类似于begin tran()
你这里就直接调用函数，判断如果返回值是0，那么连接正常，sqlca就可以使用了。
如果要断开的时候，使用disconnect using sqlca。

这里要注意一下，每次重新连接的时候，如果sqlca没有断开，函数是会报错的。

追问

小弟是个菜鸟，还是不明白您的意思，我给您一张图吧！这个dbhandle()方法，我在别人的程序中看到的，不知道他是怎么定义的，希望您给小弟能明白的答案，谢谢！

追答

DBHANDLE是PB提供的，你如果要自定义，不需要使用这个。
其实你要的原理很简单，比如begintran这个方法，就是指启用SQLCA连接，既然启用，首先要定义好SQLCA的参数，定义好了之后，一个connect就可以了。
具体的做法就是你可以自己定义一个函数function，可以是全局函数，然后函数中设置SQLCA的参数，最后使用connect连接就可以了。
其实我不太知道你自定义这个函数的用处是什么，我只是根据名字猜的，如果有其他的意义，你说说看，反正你这个，使用 自定义的函数肯定可以搞定的。

追问

beginTran()的内容是用来开始事务的一个函数，这是我在一个His系统当中看到的，调用的时候就直接用sqlca.beginTran()，这个函数是自定义的吗？您能帮小弟写个小小的程序吗？谢谢

追答

哦，你是要仿造这个来做么？
如果要但是启用事务的话，没必要仿造这个做，其实还是我说的，定义好了事务的参数，直接connect就可以启用事务了。
这个HIS系统很可能是自定义了SQLCA这个事务，自己定义了一个TRANSACTION的对象，在里面封装了begintran的方法，而这个BEGINTRAN的原理肯定还是和我上面说的一样，在里面设置参数连接，所以你只需要掌握这所谓的“设置SQLCA参数并连接”这个核心的意义就可以了。
如果你只是一般的开发，而不是在这个HIS系统上开发，是完全没有必要这么定义的。
直接复制PB的DB PROFILE里面的那段话就行。
这段话：
SQLCA.DBMS = "O10 Oracle10g (10.1.0)"
SQLCA.LogPass = "密码"
SQLCA.ServerName = "实例"
SQLCA.LogId = "用户"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""

CONNECT USING SQLCA;// 这个是必须的，否则并没有启用。