原生ADO(Recordset,Command)执行存储过程(100分)

ygw531 · 2008-07-08

Recordset在执行存储过程的时候如果这个存储过程有创建临时表，插入，更新等操作的时候在返回数据的时候提示：“recordset is not open”。 如果该存储过程只是一些select语句的时候就没有问题。recordset打开数据集的方法：  try     ConnectionPools.CreateInstance(vConnection);     try       aRecordset:= CoRecordset.Create;       aRecordset.CursorLocation := adUseClient;       aRecordset.Open(SSQL,vConnection,adOpenForwardOnly,adLockReadOnly,adCmdText);     except       aRecordSet := nil;     end;   finally     if vConnection <> nil then       ConnectionPools.ReleaseInstance(vConnection);   end; 用command对象，command对象没用过，不知道怎么用，不知道参数怎么拼合 ,command的方法：command.execute(aRecordsAffected,Parameters,option);执行完后返回的数据集怎么赋给recordset。 注：存储过程最后都会有一个select返回一个数据集。 说明：要求只需要用原生对象处理，不想用显性的ado控件，存在必有道理这个不要问为什么。我想知道是原生对象怎么处理这类情况。网上找了很多资料都没找到合适的。

fhli · 2008-07-08

换一种试试从 _COMMAND中返回看看    u_CommandAll:_Command;                     //命令执行器   u_CommandAll.Parameters.Delete(0);   u_CommandAll.CommandText:=SQLStatement;   Recordset:=u_CommandAll.Execute(RecordsAffected, EmptyParam, 0);   Recordset.Set_ActiveConnection(nil);

vvyang · 2008-07-10

1、//存储过程参数结构，只定义了常用的部分，如果需要自己加吧 type   TParameter_ = record     Name: WideString;     Type_: LongWord;     Direction: LongWord;     Size: Longint;     Value: OleVariant;   end;   TParameters_ = array of TParameter_; //cnn 是 Connection对象，cmd 是 Command 对象，rst 是 Recordset 对象，prc 是存储过程命令行，prms 是参数集合 function ExecProc(cnn, cmd, rst: OleVariant; const prc: string; prms: TParameters_): Boolean; var   i: Longint; begin   Result := not (VarIsEmpty(cnn) or VarIsEmpty(cmd)) and (cnn.State = adStateOpen);   if Result then   begin     try       cmd.CommandText := prc;       cmd.CommandType := adCmdStoredProc;       cmd.ActiveConnection := cnn;       //之前，将我们自己的参数集合中的输入参数添入 Command 参数集合       for i := Low(prms) to High(prms) do         case prms.Direction of           //未知类型的参数（adParamUnknown）既不算作输入参数也不算作输出参数           adParamInput, adParamInputOutput:             cmd.Parameters[prms.Name].Value := prms.Value;         end;       rst := cmd.Execute;       //之后，将输出参数从 Command 参数集合读取到我们自己的参数集合       for i := Low(prms) to High(prms) do         case prms.Direction of           //未知类型的参数（adParamUnknown）既不算作输入参数也不算作输出参数           adParamOutput, adParamInputOutput:             prms.Value := cmd.Parameters[prms.Name].Value;           adParamReturnValue:             prms.Value := cmd.Parameters[0].Value;         end;     except       Result := False;     end;   end; end; 2、下面是一个例子： //执行存储过程 (* CREATE PROCEDURE GetProductName     @ProductID int,     @ProductName varchar(50) OUTPUT AS SELECT @ProductName = ProductName FROM Products WHERE ProductID = @ProductID RETURN @ProductID *) procedure TForm1.Button3Click(Sender: TObject); var   prms: TParameters_; begin   SetLength(prms, 3);   //参数 0 接收返回值；Name 取什么都行，但 Direction 必须标明为adParamReturnValue   prms[0].Name := '@RETURN_VALUE';   prms[0].Direction := adParamReturnValue;   //参数 1 作为输入参数，Name 必须与实际参数名相同，Direction 标明 adParamInput   prms[1].Name := '@ProductID';   prms[1].Direction := adParamInput;   prms[1].Value := 8;   //参数 2 作为输出参数，Name 必须与实际参数名相同，Direction 标明 adParamOutput   prms[2].Name := '@ProductName';   prms[2].Direction := adParamOutput;   //执行存储过程；如果不需要 Recordset 对象接收返回的数据集，就把它置空   ExecProc(cnn, cmd, Null, 'GetProductName', prms);   ShowMessage(prms[0].Value);   ShowMessage(prms[2].Value); end; 3、更多更具体的见我的文章，里面说的很清楚。以后要多看 vvyang 的文章，谢谢！ http://www.delphibbs.com/delphibbs/dispq.asp?lid=3047846

ygw531 · 2008-07-10

VVyang的文章我看过，感觉拼参数太麻烦，所以没有采用。fhli的我已经试过。但是那个参数怎么处理。

ygw531 · 2008-07-10

fhli返回的recordset我用的是_Recordset接收，但是输出来的时候提示说是关闭的对象

ygw531 · 2008-07-10

function ExecSQLData(StoredProcName: WideString; var aRecordset: _Recordset): Boolean; var   vConnection: ADODB_TLB._Connection;   aCommand:_Command;   aRff:OleVariant; begin   Result := False;   try     ConnectionPools.CreateInstance(vConnection);     try       aCommand:= CoCommand.Create;       aRecordset:= CoRecordset.Create;       aCommand.Set_ActiveConnection(vConnection);       aRecordset.Set_ActiveConnection(vConnection);       acommand.CommandText:=StoredProcName;       acommand.CommandType := adCmdStoredProc;       aRecordset:= aCommand.Execute(aRff,EmptyParam,0);     except       aRecordSet := nil;     end;   finally     if vConnection <> nil then       ConnectionPools.ReleaseInstance(vConnection);   end; end;

lcmlhs · 2008-07-10

顺便发个交流群：delphi天堂群：4654765，不去是你的损失  ,长期不发言者勿入

vvyang · 2008-07-11

To ygw531：   原生 ADO 存储过程的参数就是这么传递的，另外我写的是通用过程，程序是死的人是活的，您可以针对自己的情况用静态数组直接把参数集合声明出来。 给你两个建议： 1、如果您不需要参数，可以把 prms: TParameters_ 置为 Null，甚至可以直接把拼参数的代码去掉。依您的水平这点应该能看出来。 2、无参数的存储过程 Recordset 也能胜任，不一定非要 Command。至于怎么做我不想跟您浪费口舌了。 3、我实在看不出来 fhli 和您自己写的程序哪里能传递参数、哪里能返回参数？我很想知道您是如何做到参数传递和接收的，谢谢！如果您根本不想返回参数，请参照第1、2条，谢谢！ 4、如果以上三条均不能理解，请及时补充脑白金，谢谢！！

原生ADO(Recordset,Command)执行存储过程(100分)

ygw531

Unregistered / Unconfirmed

fhli

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

ygw531

Unregistered / Unconfirmed

ygw531

Unregistered / Unconfirmed

ygw531

Unregistered / Unconfirmed

lcmlhs

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

Similar threads