教你混分----后续技巧逐步贴出

把下面代码复制到一个记事本文件中,只要有人为"事务"相关的问题,立马贴出,保证能得分.实在没人问可以每周注册个小号,每周只倒腾100分,一年下来就是5200分.

private sub command1_click()

dim rs as new adodb.recordset

on error goto errhandle

    conn.begintrans    '开始事务

     '判断订单号是否存在

     if rs.state<>adstateclosed then rs.close

    rs.open "select 订单号 from 表名 where 订单号='"& 订单号变量 &"'",conn,adopenkeyset,adlockreadonly

    if rs.recordcount>0 then

        msgbox "订单号已经存在！",48,"提示"

        rs.close 

        conn.rollbacktrans    '回滚事务

         exit sub

    else

        '订单号不存在则新增

         conn.execute "insert into 表名(...) values(...)"

    end if

    rs.close

    conn.committrans    '保存后提交事务

    msgbox "保存成功！",vbokonly,"提示"

    exit sub

'错误处理

ErrHandle:

    conn.rollbacktrans    '错误，回滚事务

     msgbox "保存失败，错误原因为：" & err.description,vbexclamation,"提示"

    exit sub

end sub

--------------------编程问答--------------------

锅说分对锅木有鸭梨……因为锅就是神马，本身就是浮云 --------------------编程问答--------------------

--------------------编程问答-------------------- 本版某版主就是这么混的 --------------------编程问答-------------------- 神马浮云？？ --------------------编程问答-------------------- 本版某版主就是这么混的，见过多次
当俺把这代码复制下来后照猫画虎地贴出来时
某版主大恨！ --------------------编程问答-------------------- 本版某版主就是这么混的，见过多次
当俺把这代码复制下来后照猫画虎地贴出来时
某版主大恨！ --------------------编程问答--------------------

引用 2 楼 myjian 的回复:

--------------------编程问答--------------------

引用 3 楼 zx092z 的回复:

本版某版主就是这么混的

母版主神码！

--------------------编程问答-------------------- 是不是真的？ --------------------编程问答-------------------- 阿弥陀佛 --------------------编程问答-------------------- 楼主,你说那些不重要,你先把1分给我再说. --------------------编程问答-------------------- 新人表示鸭梨很大，这也可以情何以堪 --------------------编程问答-------------------- 楼主被封了,等解封后给你这一分就是
这里的分P用都没有

引用 11 楼 aisac 的回复:

楼主,你说那些不重要,你先把1分给我再说.

--------------------编程问答-------------------- 浮云哦浮云 --------------------编程问答-------------------- 本版某版主就是这么混的，见过多次
当俺把这代码复制下来后照猫画虎地贴出来时
某版主大恨！

补充：VB ,  非技术类