SQL Server 2008 R2——VC++ ADO 操作 事务

==================================声明==================================

本文原创，转载在正文中显要的注明作者和出处，并保证文章的完整性。

未经作者同意请勿修改（包括本声明），保留法律追究的权利。

未经作者同意请勿用于出版、印刷或学术引用。

本文不定期修正完善，为保证内容正确，建议移步原文处阅读。

本文链接：http://www.cnblogs.com/wlsandwho/p/4361950.html

=======================================================================

文中使用到的TESTHR函数，并非本人所写，摘自中文版chm格式的《microsoft ado 2.5 程序员参考》。

 inline void TESTHR(HRESULT x) {if FAILED(x) _com_issue_error(x);}

=======================================================================

错误处理跟优雅退出肯定写的不好，凑合下吧。

=======================================================================

本例的目的/效果：以事务的方式从表testtable中删除并插入到testtable2中。

=======================================================================

用于测试的数据库

testdb

用于测试的登录名和密码

testdev

123456

用于测试的sqlserver_ed.udl文件内容

 [oledb]
 ; Everything after this line is an OLE DB initstring
 Provider=SQLOLEDB.1;Password=HTSQL;Persist Security Info=True;User ID=sa;Initial Catalog=testdb;Data Source=192.168.0.14\SQLEXPRESS

用于测试的表

CREATE TABLE  testtable(
    id   int NULL,
    val int NULL
)

CREATE TABLE  testtable2(
    id   int NULL,
    val int NULL
)

表中初始数据

testtable中

10086，10010

testtable2中

无

用于测试的存储过程

（不要吐槽我为什么用存储过程了，我就是练一下，简单功能用普通的参数化语句就行了。）

（PS：据说数据库会编译存储过程，这样下次运行会更快。我不是专业数据库人员，详细的还是看手册吧。）

 CREATE PROC proc_DeleteSomething @id INT, @val INT
 AS
     BEGIN
         DELETE    FROM dbo.testtable
         WHERE    id = @id AND val=@val
     END

 GO

 CREATE PROC proc_InsertSomething @id INT, @val INT
 AS
     BEGIN
         INSERT INTO dbo.testtable2
                 ( id, val )
         VALUES    ( @id, -- id - int
                   @val  -- val - int
                   )
     END

 GO

记得要给用户授予执行权限。

=======================================================================

VC++测试代码

     if (FAILED(::CoInitialize(NULL)))
     {
         MessageBox(TEXT("初始化失败"));

         return;
     }

     int nID=;
     int nVal=;

     _ConnectionPtr    pConn;
     _CommandPtr       pCmd;
     _ParameterPtr     pParam1;
     _ParameterPtr     pParam2;

     int nTransLevel=;

     HRESULT  hr = S_OK;

     try
     {
         TESTHR(pConn.CreateInstance(TEXT("ADODB.Connection")));

         pConn->ConnectionString=TEXT("File Name=sqlserver_ed.udl");
         pConn->CommandTimeout=;
         pConn->CursorLocation=adUseClient;
         pConn->Mode=adModeUnknown;
         pConn->Open(TEXT(""),TEXT(""),TEXT(""),adConnectUnspecified);

         TESTHR(pCmd.CreateInstance(TEXT("ADODB.Command")));

         pCmd->ActiveConnection=pConn;
         pCmd->CommandType=adCmdStoredProc;

         TESTHR(pParam1.CreateInstance(TEXT("ADODB.Parameter")));

         pParam1=pCmd->CreateParameter(TEXT("id"),adInteger,adParamInput,sizeof(int));
         pParam1->Value=_variant_t(nID);
         pCmd->Parameters->Append(pParam1);

         TESTHR(pParam2.CreateInstance(TEXT("ADODB.Parameter")));

         pParam2=pCmd->CreateParameter(TEXT("val"),adInteger,adParamInput,sizeof(int));
         pParam2->Value=_variant_t(nVal);
         pCmd->Parameters->Append(pParam2);

         nTransLevel=pConn->BeginTrans();
             pCmd->CommandText=_bstr_t(TEXT("proc_DeleteSomething"));
             pCmd->Execute(NULL,NULL,adCmdStoredProc);

             pCmd->CommandText=_bstr_t(TEXT("proc_InsertSomething"));
             pCmd->Execute(NULL,NULL,adCmdStoredProc);
         pConn->CommitTrans();
     }
     catch (_com_error &e)
     {
         if (nTransLevel==)
         {
             pConn->RollbackTrans();
         }
     }
     catch (CException* e)
     {
     }

     CoUninitialize();

在代码中制造错误的时候，可以将第二个存储过程名写错。

=================================写给自己=================================

软件开发这种实践性很强的东西，不自己亲手实验，又怎能解除困惑？