ADO高手请看过来

jun 2000-07-05 11:30:00
在VC中用ADO调用 MS SQL Server的存储过程,代码如下:

CString str;
CoInitialize(NULL);
_RecordsetPtr pRecordset;
_ConnectionPtr pConn;
_ParameterPtr pParam;
ParametersPtr pParameters;

HRESULT hr;
hr = pConn.CreateInstance(__uuidof(Connection));
pConn->Open("DSN=test1;UID=sa;PWD=pwd;","sa","");
if (FAILED(hr))
{
AfxMessageBox("Cann't create connection object!");
return false;
}

_CommandPtr pComm;
hr = pComm.CreateInstance(__uuidof(Command));
if (FAILED(hr))
{
AfxMessageBox("create command object failled!");
return false;
}

pComm->ActiveConnection = pConn;
pComm->CommandText = "test1";
pComm->CommandType = adCmdStoredProc;
pParam = pComm->CreateParameter(_bstr_t("thecol1"),adInteger,adParamInput,sizeof(_variant_t),3L);
pParameters = pComm->Parameters;
pParameters->Append(pParam);

_variant_t theRows;
_variant_t vNull;
vNull.vt = VT_ERROR;
vNull.scode = DISP_E_PARAMNOTFOUND;
// pRecordset->CursorType = adOpenKeyset;
pRecordset = pComm->Execute(&theRows,&vNull,adCmdStoredProc);

// pRecordset->MoveFirst();
while(!pRecordset->ADOEOF)
{
int theid;
_variant_t vTemp;
theid = pRecordset->Fields->Item["col1"]->Value.intVal;
vTemp = pRecordset->Fields->Item["col2"]->Value;
str = vTemp.bstrVal;
pRecordset->MoveNext();
}
return true;
此段代码可以正常执行,检索的记录集有四条记录,但是如果在while语句前用了MoveFirst(),程序在执行MoveFirst()语句时出现 Runtime error!。我怀疑是游标不支持,于是又在前面加上 pRecordset->CursorType = adOpenKeyset; 但是程序执行该语句时也不行,同样出现 Runtime error!请教各位大侠,这到底怎么了?怎样用才正确?
...全文
204 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
halbert 2000-11-22
  • 打赏
  • 举报
回复
关于vc++ 的ado 编程
atdafx.h
#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename ("EOF", "adoEOF")

BOOL CGetemailApp::InitInstance()
{
// Initialize OLE libraries
if (!AfxOleInit())
{
AfxMessageBox("ole 出错");
return FALSE;
}
::CoInitialize( NULL );
}
int CGetemailApp::ExitInstance()
{
// TODO: Add your specialized code here and/or call the base class
::CoUninitialize();
return CWinApp::ExitInstance();
}

bool getrecordset()
{
char SqlStr[255],account[50];
char Error[500];
char putfilestr[300];
long recordnum;
m_pConnection = NULL;
m_pRecordset = NULL;
_variant_t TheEmail,ThePhone_office,TheAccount,TheUser_id;
char strEmail[50],strPhone_offiece[50],strAccount[50],strUser_id[50];
if(!OpenFileForReadWrite())
return ;
try{
m_pConnection.CreateInstance(__uuidof(Connection));
m_pRecordset.CreateInstance(__uuidof(Recordset));
recordnum=m_pConnection->Open("DSN=stat","test","test",-1);
sprintf(putfilestr,"%20s %30s %40s %30s\n","用户编码","用户帐号","用户Email","用户办公电话");
fwrite(putfilestr,strlen(putfilestr),1,fpout);
while(!feof(fpin))
{
fscanf(fpin,"%s",account);
//sprintf(SqlStr,"select a.user_id,a.account, b.email,b.phone_office from userbasicinfo a,usercontactinfo b where a.account='%s' and b.user_id=a.user_id",account);
strcpy(SqlStr,"select * from region");
recordnum=m_pRecordset->Open(SqlStr,m_pConnection.GetInterfacePtr(),adOpenKeyset,adLockOptimistic,adCmdText);
//用 recordnum=m_pRecordset->Open(SqlStr,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
// 也出错
recordnum=m_pRecordset->adoEOF;
//执行到此出错,为何。跳到catch(...)
if(!m_pRecordset->adoEOF)
{
TheUser_id=m_pRecordset->GetCollect("user_id");

TheAccount=m_pRecordset->GetCollect("account");
TheEmail=m_pRecordset->GetCollect("email");
ThePhone_office=m_pRecordset->GetCollect("phone_office");
sprintf(putfilestr,"%20s %30s %40s %30s\n",TheUser_id.bstrVal,TheAccount.bstrVal,TheEmail.bstrVal,ThePhone_office.bstrVal);
fwrite(putfilestr,strlen(putfilestr),1,fpout);
}//end if
m_pRecordset->Close();
}//end while
}//end try
catch(_com_error *e)
{

//CString Error = e->ErrorMessage();
//char Error[500];
strcpy(Error , (char*)e->Description());
AfxMessageBox(e->ErrorMessage());
}
catch(_com_error e)
{

//CString Error = e->ErrorMessage();
strcpy(Error , (char*)e.Description());
//AfxMessageBox(e->ErrorMessage());
AfxMessageBox(Error);
}
catch(...)
{
AfxMessageBox("ado 出错");
}

m_pRecordset->Close();;
m_pConnection->Close();
m_pConnection->Release();
CloseAllFile();
}
// 执行到recordnum=m_pRecordset->adoEOF; 出错 为何
// 请那位大侠指点

jun 2000-07-07
  • 打赏
  • 举报
回复
sp是没有问题的,他是一个简单的存储过程:

CREATE PROCEDURE test1
@thecol1 int
AS
select * from info1 where col1 = @thecol1

我在ASP中用VBSCRIPT通过ADO的Command调用该sp没有问题,当然也如wdf所说是
ForwordOnly,但是我可以为Recordset设置游标动态类型,
执行
rs.open pComm
使其支持MovePrevious,但是我在VC中就无法实现,这让我很迷惑,ADO是一个COM,
COM是语言无关的,但是怎么在不同的语言中实现起来差异如此之大,还有,在VC中
我是#import了msado10.dll,如果我用msado15.dll那么
pConn->Open("DSN=test1","sa","")一句就无法编译通过,错误为Open方法不止
这三个参数,但是编程过程中的Parameter info提示明明是这三个参数,查了msdn
也是这三个参数,但是我改成msado10.dll就没有问题了,我很奇怪,按道理com的
版本升级是不能修改他的接口的,难道他修改了?
solomon 2000-07-06
  • 打赏
  • 举报
回复
好像可以(用vb), 是不是你的sp的问题? 可不可以把SP贴上来?
VB 中
1. 注意:CursorLocation = Client, CursorType = Dynaset
2. 使用 Open("EXEC sp_name(....)") 或 adCmdStoreProcedure
3. sp is easy: create procedure sp_name as select * from mymaster
wdf 2000-07-05
  • 打赏
  • 举报
回复
_RecordsetPtr 无法调用 StoredProc,必须用 pCommand->Execute().

就是说由StoredProc得到的recordset一定是 ReadOnly ,ForwordOnly.

因此, 您的问题无解. 请另行考证.
jun 2000-07-05
  • 打赏
  • 举报
回复
recordset.Open(Source, ActiveConnection, CursorType, LockType, Options)
该方法好象是为Connection设计的,如果用pCommand调用存储过程,这个Open的参数
应该怎么写?
wdf 2000-07-05
  • 打赏
  • 举报
回复
以 pConnection->Execute() 和 pCommand->Execute() 打开的 _RecordsetPtr
都有 ReadOnly 和 ForwordOnly 特性, 只能用MoveNext().

可用 pRecordset->Open(...);

16,466

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • Web++
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧