检查order info是否存入DB中

wslss007

对flight 4a程序，插入订单后我想检查order info是否成功插入DB中，想用画面上的order num和库中的order num是否相等为条件，但还不知道数据库检查点如何用?哪位朋友可否指点下？

风过无息

参考下帮助,里面有比较详细的说明,此外我习惯自己写个方法,把SQL传进去,这样一劳永逸.

wslss007

原帖由 风过无息 于 2008-3-7 18:34 发表
参考下帮助,里面有比较详细的说明,此外我习惯自己写个方法,把SQL传进去,这样一劳永逸.

能否给个例子参考下，刚刚接触数据库检查点这个方面的东西。

wslss007

看来确实看帖的多，回帖的少。

sunqiang1024

写你的SQL，和列的名字，如果取到就是存储成功，否则就是失败
' *********************************************************************************************
' 函数说明：传入相应的sql和列的名称 ，取到相应列的值；
' 参数说明：
'                                  （1）sql：查询语句；
'                               （2）colname：取得列的名称；
' 返回结果：
'          （1）：取到列的值  ；
' 调用方法:
'           var= DB (sql,colname)
'修改时间：2008年1月22日17:31:31
' *********************************************************************************************
Public  Function DB (sql,colname)
Dim res,cmd
Set res=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
Cmd.activeconnection="Driver={Microsoft ODBC for Oracle};Server=oradb10;Uid=bpm611_testwd=bpmtest;"
Cmd.CommandType = 1
'msgbox sql
Cmd.CommandText = sql
Set res = Cmd.Execute()
'msgbox  res(colname)
DB=res(colname)
res.close
Set res=nothing
Set Cmd.activeconnection=nothing
Set cmd=nothing
End Function