Delphi：ADOConnection连接SQLServer自动断网问题解决

于 2021-10-08 10:56:07 发布
阅读量277 收藏
点赞数
文章标签： Delphi
原文链接：https://www.javazxz.com/thread-4190-1-1.html
版权
小小菜鸟的小菜鸟
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
DELPHI 获取SQLSEVER服务器&断开数据库连接
f2378的专栏
01-30 1169
1、获取局域网中的数据库服务器 function CreateADOObject(const ClassID: TGUID): IUnknown; var   Status: HResult;   FPUControlWord: Word; begin   asm     FNSTCW  FPUControlWord   end;   Status := CoCreateInst
ADO断网重连
芒果儿
08-01 1428
在catch() {   }中断开con
Delphi使用ADO连接网络数据库，断网后重连问题
FantasyWind-奇风的悟道之地
09-16 5207
使用TADOConnection对象连接网络数据库（以MySQL为例），当本地网络断开时，连接对象的Connected属性不会发生变化，一直是True。 即使将连接对象的KeepConnection属性设置为false，若网络断开，在不尝试连接数据库的情况下，Connected属性也是true；在尝试连接数据库失败之后，Connected属性才变为false。 var ADOCon: T
单个adoconnection 因网络不稳定导致的物理连接断开问题
slindesen的专栏
01-15 2994
delphi应用程序我一般用ADO进行连接，这方面涉及到好几个现象：一、正常连接，程序启动后连接数据库，若连接条件都正常，软件很快就能连接成功。这个就不用说了；二、连接失败。这方面包括数据库服务器不正常、应用程序连接参数错误等等，在连接过程中，会造成界面假死的现象，而且持续时间较长（我设置超时时间好像不起作用，如AdoConn.ConnectionTimeout := 10;）。最后弹出对话框说连接错误，并返回错误信息；这是让我很头疼的问题；三、和数据库连接过程中，若物理连接断开，应用程序不会检测到，须手工
Delphi SQL Server数据库备份程序_delphi_SQL_ServerDelphi_sqlserver_
10-02
标题 "Delphi SQL Server数据库备份程序" 涉及到的是使用Delphi编程语言与Microsoft SQL Server数据库进行交互，特别是实现数据库的自动化备份功能。在IT领域，数据库备份是至关重要的，它保护了数据免受意外丢失或...
Delphi使用AdoConnection连接Excel数据源
03-08
使用Delphi的TAdoConnection控件连接Excel文件，直接对Excel中的数据进行查询和分析。很方便 和 大家共享。
Delphi连接SQL_Server_2000
05-02
【Delphi连接SQL Server 2000】的教程主要涉及如何在Delphi 7环境中配置和使用组件来与SQL Server 2000数据库进行交互。以下将详细阐述整个过程： 1. **连接设置**： 在Delphi 7中，我们可以使用ADO (ActiveX Data...
Delphi SQL连接 示例.rar
最新发布
02-18
在Delphi编程环境中，SQL（Structured Query Language）连接是开发者常用的一种技术，用于与数据库进行交互，例如查询、插入、更新或删除数据。本示例将深入探讨如何在Delphi中建立SQL连接，并通过实际的例子来说明...
Delphi读取ini，测试连接MSSQL+源码
04-28
Delphi提供了多种方式连接MSSQL数据库，包括ADO（ActiveX Data Objects）、BDE（Borland Database Engine）和DirectSQL等。这里我们以ADO为例，介绍如何进行数据库连接： 1. 添加ADODB组件到表单上，如...
delphi 本地连接定时连接与断开
02-07
本地连接定时连接与断开 这样就可以控制你的计算机可以在指定的时间内连接网络，断开网络 本软件升级建议QQ：592184252
delphi 防止断网小工具
07-16
delphi 防止断网小工具delphi 防止断网小工具delphi 防止断网小工具delphi 防止断网小工具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 ADOConnection连接
chinajobs的专栏
11-07 3280
unit Unit_DM; interface uses SysUtils, Classes, DB, ADODB,inifiles,windows,forms,controls; type TDM = class(TDataModule) ADOConn: TADOConnection; DS_BomFind: TDataSource; Qry_BomFind
adoconnection连接数据库，长时间不用，连接失败
ksrsoft的专栏
04-19 5725
程序打开，过一段时间不操作。好像是连接断开了一样，提示连接失败，要退出程序重进就好了。 为什么呢 同样的服务器，同样的网路，貌似VF开发的程序是好的！ ADOConnection的KeepConnection是true。表示一直连接状态。如果设为false，有query执行Open后close，那么connection就自动关闭了。下次open时会自动打开连接。 也就是没有处于Op
vb的程序，创建ADODB.Connection对象出错的解决办法
椰子itcoco的专栏
09-16 5100
最近写了个vb的小程序，打包好后，在有些xp的机器上运行不起来，日志记载的错误信息如下： ActiveX 部件不能创建对象;429;  和诸如 无效的 SQL语句；期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE' 等。
关于DelPhi断网重连问题
精彩人生的博客
08-08 1683
今年突然发现软件频繁报错，需要退出重连，更多人头疼的是客户输入很多单据后保存不了。这个问题必须解决，后来发现是断网频繁。不说了看代码： procedure TDM.GMTemp(SQLstr: string); begin   With ADOQ_Temp do     begin       Close;         SQL.Clear;       Filter :='';
用Delphi实现关闭、重启本地网络连接
jmlei的专栏---IBM, AS400, RPGLE, CLLE, Delphi, ASP...
11-11 1345
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, OleServer, Shell32_TLB, StdCtrls;const  connVerb = 启用;  discVer
delphi sqlserver导入sql文件代码
10-21
// 假设ADOConnection1是已连接到SQL Server的TADOConnection ImportSQLFile('C:\path\to\your\file.sql', ADOQuery1); ShowMessage('导入完成！'); end; ``` 这段代码将会导入指定的SQL文件，并执行其中的SQL...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值