==================================声明==================================
本文原创，转载在正文中显要的注明作者和出处，并保证文章的完整性。
未经作者同意请勿修改（包括本声明），保留法律追究的权利。
未经作者同意请勿用于出版、印刷或学术引用。
本文不定期修正完善，为保证内容正确，建议移步原文处阅读。
本文链接：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();
在代码中制造错误的时候，可以将第二个存储过程名写错。
=================================写给自己=================================
软件开发这种实践性很强的东西，不自己亲手实验，又怎能解除困惑？