使用TFDStoredProc没填入存储过程名的一些坑

最新推荐文章于 2022-10-24 18:28:20 发布
最新推荐文章于 2022-10-24 18:28:20 发布
阅读量1.2k 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： Delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/lsl221/article/details/54691926
本文记录了一次使用TFDStoredProc进行批量上传时遇到的问题。主要问题在于未正确设置存储过程名称导致的参数类型转换错误及参数范围异常。通过排查及修正，最终解决了问题。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

今天写个批量上传的，使用TFDStoredProc操作存储过程来处理数据，忘记对StoredProcName给值了，ExecProc时报一个参数不能将 ftinteger 转换成 ftstring, 后隐藏存储过程中的参数， 只保留一个输出型参数 nvarchar, 又报 不能将 ftwidestring 转换成 ftwidestring, 接着隐藏存储过程中所有参数，这些换了另一个错误： class EArgumentOutOfRangeException with message 'Argument out of range'， 疯狂查网上及官网， 一无所获，几近瘨时， 无意中看到没给上执行当前存储过程的名称 ， 可能上次存储过程执行后没清掉存储过程名引起，填上后， 执行成功， KAO， 给自己两巴子，犯这种错
delphi 中调用存储过程
shuiyuanfengxing的专栏
09-03 6785
由于需要，需要在Delphi中调用sql server中写好的存储过程，这里翻看了一些代码，同时也查看了一些网上的例子，在这里算是自己的一个小结。         在Delphi中提供两种方式进行存储过程的调用，一种是ADO的TADOStoredProc，另一种则是BDE的TStoredProc。         在Delphi的DBTable单元中存在类TStoredProc，该类自身具有的
firedac的TFDStoredProc动态创建并调用存储过程
weixin_30872671的博客
10-28 395
1）中间件执行存储过程 sp.Close; sp.StoredProcName := procName; sp.Prepare; // 生成存储过程的参数列表，无任何OUTPUT的存储过程，也会自动生成一个@ReturnValue的返回值参数 params := TFDParams.Create; try UnpackFDParams(inPar...
FireDAC之TFDStoredProc
weixin_33973600的博客
11-24 1018
2019独角兽企业重金招聘Python工程师标准>>> ...
FDStoredProc 存储过程控件 强
weixin_34326429的博客
02-03 870
//FireDAC FDStoredProc1->StoredProcName = "myReport1"; FDStoredProc1->Prepare(); FDStoredProc1->Params->ParamByName("@dt1")->Value = "2001-01-01"; FDStoredProc1-&g..
TFDStoredProc创建了参数执行时却报参数不存在
Wicher
01-04 1766
FDSP.Close ;   FDSP.Params.Clear ;   mParam := FDSP.Params.Add ;   with mParam do   begin     Name := '@T1' ;     DataType := ftString ;     //FDDataType := dtString ;     ParamType := ptInput
TFDStoredProc执行sql server的部分存储过程报错，有的是好的。
weixin_34400525的博客
05-25 300
TFDStoredProc执行sql server的部分存储过程报错，有的是好的。 Invalid character value for cast specification   暂时无解。用fdquery执行存储过程exec pp,p1,p2是好的不报错。 时间紧张先这样吧。     find reason： TFDStoredProc执行存储过程，当结果集更换了列，第一次返回10个列，第二次...
delphi中使用FDConnection连接Firebird数据库时提示错误：firedac phys fb invalid connection string cannot transliterate character between character sets
07-07
如何在Delphi中使用Firedac执行Firebird存储过程并获取返回值？</think>### 解决 Delphi FDConnection Firebird 字符集转换错误 在 Delphi 中使用 `TFDConnection` 连接 Firebird 数据库时出现 `cannot ...
基于FireDAC开发DataSnap三层数据库应用(1).docx
07-07
客户端通过TFDConnection组件连接到服务器，并使用TFDStoredProc组件调用服务器API。为了处理数据异动，客户端和服务器端需分别使用TFDTableAdapter和TFDSchemaAdapter组件来同步数据更新。此外，还涉及到数据流的...
delphi memtabel变更数据保存到数据库
03-21
MemTable通常是TClientDataSet或类似的组件，用于在内存中存储数据，支持编辑、插入、删除等操作。用户的问题是如何将这些更改保存回数据库，这通常涉及数据集的更新和事务处理。 接下来，我需要考虑用户可能的场景...
#include <Bde.DBTables.hpp> not found in Rad studio 12
最新发布
07-25
| `TStoredProc` | `TFDStoredProc` | `<FireDAC.Comp.Client.hpp>` | | `TBatchMove` | `TFDBatchMove` | `<FireDAC.BatchMove.hpp>` | ### 3. 迁移步骤示例 ```cpp // 旧版 BDE 代码 (已弃用) #include ...
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.
MIDAS 框架下 Firebird 自增字段 ClientDataSet 里面的处理方法
pcplayer的博客
09-09 610
虽然 Delphi 新推出了 DataSnap 模式的跨网络多层数据库框架，但我还是喜欢原来的基于 MIDAS 的多层数据库框架。如果要运行在 Internet 上，我更倾向于采用 WebService 架构下使用 MIDAS，这样比较少写代码。 进入正题。 MIDAS 框架下，从数据库到客户端是这样构成的： 1. FDConnection1 连接数据库； 2. FDQuery1 执行 select 语句获得表数据； 3. DataSetProvider1 连接 FDQuery1 4. C.
delphi 调用带有返回值的sql SERver 2008 存储过程
qq457565758的博客
01-03 712
存储过程内容如下： SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -- ============================================= -- Author: Author,,Name -- Create date: Create Date,, -- Description: Descriptio...
delphi用TAdoStoredProc调用存储过程，兼容sql2005、2008、2014的远程事务问题
weixin_30383279的博客
01-13 269
delphi7写的程序，在sql2000里没问题，调用sql2008、2014里的存储过程时，如果存储过程里操作了大量数据，很容易会莫名其妙的自己撤销掉，但是程序还识别不到，认为还在正常执行。今天尝试换了个控件：TAdoStoredProc，专门调用存储过程的，问题解决了，贴图如下： 代码： //****************************************...
解决 'Could not convert variant of type (NULL) into type (String)'
热门推荐
Pipi0714的专栏
09-11 3万+
使用Delphi6的朋友开发数据库的时候可能遇到下面的情况:使用TADOTable打开表的时候当表为空时出现文章标题的错误信息很是烦人。当表有数据就不会出现这个错误了,经过多方磨难终于找到解决方法:(delphi想说爱你不容易,最近找到很多Bug)解决方法:1、在Object TreeView中找到你的数据连接然找到你的TAdoTable选项2、找到Fields项，点击鼠标右键
delphi调用存储过程
lclbc的专栏
01-17 1025
{统计数据}     with MyStoredProc1 do     begin       StoredProcName := 'report_1';       Params.ParamByName('timebegin').Value := datetimebegin;       Params.ParamByName('timeend').Value := datetimee
Delphi TFDCustomSchemaAdapter TFDTableAdapter 主从表 集中式更新总结
10-24 1777
DBMS identifier. So, if the application is connected to this DBMS, then the Y text will be substituted into command. 因此，如果应用程序连接到这个 DBMS，那么 Y 文本将被替换为命令。Time constant. must be specified in 'hh24:mi:ss' format. 时间常数。在某些情况下，应用程序需要指定另一个 DB 表名，更新将发布到该表。
DELPHI 存储过程结构示例
wozengcong的专栏
11-19 1152
ADOStoredProc := TADOStoredProc.Create(nil);    ADOStoredProc.Connection := ADOConnection;    ADOStoredProc.ProcedureName := '存储过程1';   //设定存储过程 ADOStoredProc.Parameters.CreateParameter(...);   //设
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值