TADOStoredProc返回多个数据集

最新推荐文章于 2025-10-29 14:04:49 发布
原创 最新推荐文章于 2025-10-29 14:04:49 发布 · 1.2k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

博客指出，若要让nexrecordset返回多个数据集，可使用nextrecordset方法。

要想中的nexrecordset返回多个数据集，用nextrecordset方法就可以了。

获取 Recordset 对象中的记录数
至尊宝宝 的专栏
04-15 1万+
在 ADO 中，用 Recordset  对象的 Open 方法打开记录集后，就可以用 GetRecordCount 方法获取记录数。代码如下：    CString strSQL = "SELECT * FROM authors";         _RecordsetPtr pRs = NULL;     pRs.CreateInstance("ADODB.Recordset");
delphi ADO数据库应用程序
qq_43404969的博客
05-07 855
ADO 组件面板工提供了 7 个组件 分别是 TADOConnection TADODataSet，TADOTable ，TADOQuery ，TADOStoredProc ，TADOCommand 和 RDSConnection 其中后面的 6 个组件可以直接连接到数据库 也可以通过 TADOConnection 组件连接到数据库 这些组件的作用如下： TADOConnection 该组件用于建立数据库的连接 ADO 的数据源组件和命令组件可以通过该连接组件运行命令及从数据库中提取数据等。 TADODat
如何在Delphi中调用oracle的存储过程返回数据集
Eric For Study
10-16 1349
如何在Delphi中调用oracle的存储过程返回数据集 【delphi+oracle报表解决方案(一)】delphi中调用oracle的存储过程(分带返回游标，不返回值两种) 关键字: delphi ,oracle存储过程，游标,返回数据集,报表 注：delphi 6+ oracle 8.1.6 一.创建包与包体 1.附：建表aaclass为下面作测试用 create ta
为过程或函数 ** 指定了过多的参数
flyaim的专栏
05-13 5741
C#在执行参数化SQL语句的时候，如果你的参数添加，执行了多次，第2次时就会重复添加，此时触发：为过程或函数 ** 指定了过多的参数 的异常。 解决方法一：参数只在第一次添加，其他时候只赋值和取返回值。即第一次时，Parameters.Add("@a", SqlDbType.Int)；其他时候，Parameters["@a"].Value = 20; 解决方法二：每次执行添加参
在delphi中调用结果集的办法
java开发指南博客 【转载】
07-24 179
create or replace package mypk as type t_cursor is ref cursor; function func(a number) return t_cursor; procedure proc(name varchar2,c out t_cursor,a number); end; / create or replace package b...
Package之Delphi调用（TADOStoredProc）
xiaoziteng的专栏
07-26 2602
<br />unit UnitDemo; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type FrmDemo = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure Fo
Delphi、MS SQL Server开发环境下带事务存储过程的应用.pdf
09-19
此存储过程包含一个输入参数`@dw`，返回一个数据集。 2. **使用Delphi控件动态创建**：利用Delphi的控件，如TQuery、TADOQuery，通过SQL语句在运行时动态地创建存储过程。例如，使用TADOQuery创建存储过程的示例...
Delphi与SQL Server存储过程编程详解
03-20
- 事务控制：如果多个操作需要原子性，可以使用`TADOTransaction`组件来包裹这些操作，确保数据的一致性。 - 结果集处理：某些存储过程可能会返回结果集，可以通过`ADOStoredProc`的`Fields`属性访问这些结果，并...
C++ Builder的ADO组件：高效数据库访问技术
这些组件可与DataSource配合，允许多个数据集共享一个数据库连接，简化数据库应用的开发。" 在C++Builder中，ADO（ActiveX Data Objects）组件是一组强大的工具，用于高效地与各种数据库进行交互。它们作为ActiveX...
27、跨平台数据库与应用开发指南
最新发布
ii567的博客
10-29 8
本文详细介绍了基于dbExpress的跨平台数据库与应用开发指南，涵盖dbExpress的核心特性、组件级差异、跨平台应用程序开发流程、数据更新处理机制以及包和组件的使用方法。重点阐述了如何将Windows数据库应用移植到Linux环境，并提供了数据库连接、更新缓存、用户界面适配等关键环节的解决方案。结合mermaid流程图和表格，系统化展示了移植步骤与技术要点，适用于使用Kylix和CLX进行跨平台开发的Delphi开发者。
Delphi使用ADO连接池(存储过程示例)
03-26
一个使用ADO连接池的示例,演示了TADOStoredProc动态参数的使用，带重连机制 =================== unit UnitDemo; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; //数据库服务器 gDBServer: String = '127.0.0.1'; //数据库名称 gDBName: String = 'master'; //数据库用户名 gDBUser: String = 'sa'; //密码 gDBPass: String = '2001'; implementation {$R *.dfm} uses ADODB, UnitADOConnectionPool; const CreateSQL = 'create procedure TestMyPool (@type sysname) '#13#10+ 'as'#13#10+ 'select * from sysobjects where xtype=@type'#13#10+ 'return @@rowcount'; DeleteSQL = 'if Exists(select 1 from sysobjects where xtype=N''P'' and name=N''TestMyPool'')'#13#10+ ' drop procedure TestMyPool'; var gPoolMan: TADOConnPoolMan = Nil; procedure TForm2.Button1Click(Sender: TObject); var ADOObject:TADOConnPoolObject; ADOStoredProc:TADOStoredProc; Running :Integer; I: Integer; begin //取得一个存储过程资源（含一数据库有效连接） ADOObject := gPoolMan.CreateSP('TestMyPool'); if ADOObject = Nil then //取得资源失败 Exit; try ADOStoredProc := ADOObject.ExecObject as TADOStoredProc; Running := 2;//允许重试(两次)操作，以便在操作失败之后达到重连 while Running>0 do begin Dec(Running); if ADOObject.NeedRefresh then begin//判断是否有重连标志（比如数据库断开等，可能需要进行重连） if Not ADOObject.Reconnect then Exit; ADOObject.NeedRefresh := Not ADOStoredProc.Parameters.Refresh; if ADOObject.NeedRefresh then Exit; end; for I := 1(*Zero is the *Result* Parameter*) to ADOStoredProc.Parameters.Count - 1 do begin //========================= //传递参数 ADOStoredProc.Parameters.Items[I].Value := 'U'; //========================= end; if Running 0 then try //执行存储过程 ADOStoredProc.Open; //执行存储过程成功，退出循环进入后续的数据处理 break; except On E:Exception do begin //执行失败非程序级的异常通常有两种可能： //1.数据库连接断开 //2.自适合的参数传递当中可能存储过程已更新，参与不一致 //设置重连标志 ADOObject.NeedRefresh := True; //=================== //这里记录数据库操作失败日志 //=================== end; end; Exit; end; //========================== //从ADOStoredProc当中读取记录 ShowMessage(IntToStr(ADOStoredProc.Parameters.ParamByName('Result').Value)); //========================== //关闭存储对象的资源 ADOStoredProc.Close; finally //调用结束，释放资源 ADOObject.Free; end; end; procedure TForm2.FormCreate(Sender: TObject); var ADOConn:TADOConnection; begin (****************BEGIN*******************) (*注：仅为测试准备 *) //初始化测试环境 ADOConn := Nil; if Not TADOConnPoolMan.ConnectADO( gDBServer,gDBUser,gDBPass,gDBName,true,ADOConn) then Exit; try ADOConn.Execute(DeleteSQL); ADOConn.Execute(CreateSQL); finally try ADOConn.Close; except end; ADOConn.Free; end; (*****************END********************) //初始化连接池 gPoolMan := TADOConnPoolMan.Create(gDBServer,gDBUser,gDBPass,gDBName,true); end; procedure TForm2.FormDestroy(Sender: TObject); var ADOConn:TADOConnection; begin //释放连接池 if Assigned(gPoolMan) then gPoolMan.Free; (****************BEGIN*******************) (*注：仅为测试准备 *) //清理测试环境 ADOConn := Nil; if Not TADOConnPoolMan.ConnectADO( gDBServer,gDBUser,gDBPass,gDBName,true,ADOConn) then Exit; try ADOConn.Execute(DeleteSQL); finally try ADOConn.Close; except end; ADOConn.Free; end; (*****************END********************) end; end.
delphi中的XML解析控件TXMLDocument的用法.doc
06-11
delphi中的XML解析控件TXMLDocument的用法.doc
ADOStoredProc的详细解
niochen的专栏
01-17 1984
首先,打开sql server管理器,在pubs数据库中建一个测试表,表名为test,字段有id,name,和desc,全部为字符型,如果你不知道建表,那么打开sql查询分析器,贴上以下的代码,然后按执行,就会自动生成test表. use pubs if exists (select * from dbo.sysobjects where id = object_id(N[dbo].[test]
delphi用TAdoStoredProc调用存储过程，兼容sql2005、2008、2014的远程事务问题
weixin_30383279的博客
01-13 290
delphi7写的程序，在sql2000里没问题，调用sql2008、2014里的存储过程时，如果存储过程里操作了大量数据，很容易会莫名其妙的自己撤销掉，但是程序还识别不到，认为还在正常执行。今天尝试换了个控件：TAdoStoredProc，专门调用存储过程的，问题解决了，贴图如下： 代码： //****************************************...
C++Builder之数据库ADO组件-TADOStoredProc学习
我的博客
08-02 481
前言：C++Builder的资料相对较少，查了很多都是Delphi的，最终还是查资料摸索出来了，完整记录在此，共享给需要的人。 String __fastcall TForm1::GetModelNumber(String SN) { //数据库连接字符串 String StrConnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Root;Password=888;Initial Catalog=Test_Prod;D
Delphi7 ADOStoredProc使用NextRecordset(i)后出现: RecordSet is not open
blue_morning的专栏
06-16 4809
ADOStoredProc调用一个返回多个结果集的存储过程，存储过程代码大概是这样： select * from  insert into select * from select * from 然后使用如下的Delphi代码 ADOQuery1.RecordSet = ADOStoredProc.RecordSet; ADOQuery2.RecordSet = AD
delphi mysql函数_delphi如何用TADOStoredProc调用mysql的存储过程？
weixin_39851008的博客
01-19 368
CREATE procedure add_new(p_id in number,p_name in varchar2,p_addr in varchar2)isbegininsert into liudzh.liu_table values(p_id,p_name,p_addr);commit;end;with StoredProc1 dofor i := StrToInt(Edit1.text)...
ADO 中处理多个返回结果集
9807146wang的专栏
09-11 1759
 在使用 SQL 语句时，常常会有多个结果集被返回的情况，比如 EXEC sp_helpconstraint [TableName] 就返回了两个结果集。如果我们需要处理多个结果集时。可用ADO的 NextRecordSet 方法。用法如下：var  R: integerbegin  with ADOQuery do  begin    Close;    SQL.Text := EXEC 
ADO连接池和TADOStoreProc动态参数调用
dongyonggan的专栏
09-11 992
一个使用ADO连接池的示例,演示了TADOStoredProc动态参数的使用，带重连机制===================unit UnitDemo;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm2 = class
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值