ADOStoredProc如何调用Oracle的存储过程？

[wuxking]

ADOStoredProc如何调用Oracle的存储过程？

我有一个Oracle的存储过程 Pro_test(p1 in varchar2,p2 in varchar2, p3 out varchar2)
请问用ADOStoredProc如何调用？
我写的是
ADOStoredProc1->ProcedureName="ERP.PRO_GETONEBOM";
ADOStoredProc1->Prepared;
ADOStoredProc1->Parameters->ParamByName("p1")->Value="abc";
ADOStoredProc1->Parameters->ParamByName("p2")->Value="test"
ADOStoredProc1->ExecProc();
String s_flag=ADOStoredProc1->Parameters->ParamByName("p3")->Value;
编译通过，运行时说 参数"p1" not found
如何调用oracle的存储过程？用ADO的连接。谢谢！

[xu_xinyu]

在调用之前要创建参数。
ADOStoredProc1->AddParameter;
PCount = ADOStoredProc1->Parameters->Count - 1;
ADOStoredProc1->Parameters[PCount]->DataType = ftString;
ADOStoredProc1->Parameters[PCount]->Direction = pdInput;

ADOStoredProc1->Parameters[PCount]->Value = "malathion";

[xu_xinyu]

你可以试一下adosp->Parameters->Refresh();
如果不能得到参数信息的话就只有一个一个添加了，
每个参数需要设置参数的类型，输入输出方向，字符串类型还要设置长度。
要和数据库中的一样。多试几次吧。

[wuxking]

那我有很多个参数怎么办？
帮忙给出说明，每一步都是什么意思？我没有用过这个控件。谢谢。

[wuxking]

老大，能不能给出具体的代码，我搞不定啊。

[xu_xinyu]

//设置存储过程名称，刷新参数
frmData->adoSp->Close();
frmData->adoSp->ProcedureName = "InsTabBrchWatBase";
frmData->adoSp->Parameters->Clear();
frmData->adoSp->Parameters->Refresh();

//设置参数
frmData->adoSp->Parameters->ParamByName(cBaseId)->Value =
leBaseId->Text.ToInt();
frmData->adoSp->Parameters->ParamByName(cDistrict)->Value =
mcbbDistrict->Datas->Strings[mcbbDistrict->ItemIndex];
frmData->adoSp->Parameters->ParamByName(cPwrSupType)->Value =
mcbbPwrSupType->Datas->Strings[mcbbPwrSupType->ItemIndex];
frmData->adoSp->Parameters->ParamByName(cOwner)->Value =
leOwner->Text;
...
//执行存储过程
frmData->adoSp->Prepared;
frmData->adoSp->ExecProc();

如果刷新不能得到存储过程的参数的话，就只有手工添加了，代码见第一个回复。

[liangqihui999]

不会呀简单使用没什么问题的，对了，你册参是pl（L小写）还是p1（一）会不会拼错？

[wuxking]

反正我觉得还是没有BDE的好用。
试过的，不行哦。
我的数据库是Oracle9i
反正还是抱错。
总是说 参数 没有找到。为什么啊？！！！

[GSdeng]

我也碰到同样的问题