{$R *.dfm}

uses ADODB;

//将Access中的表导入到另一个Access数据库中去

procedure TForm1.Button1Click(Sender: TObject);

var Conn:TADOConnection;

cSql:String;

List:TStrings;

begin

OpenDialog1.Filter:='Any Files(*.*)|*.*|Access(*.mdb)|*.mdb';

OpenDialog1.FilterIndex:=2; //序数从1开始

if OpenDialog1.Execute then

begin

Conn:=TADOConnection.Create(nil);

try

Conn.CommandTimeout:=0; //执行命令期间需等待的时间

Conn.Provider:='Microsoft.Jet.OleDB.4.0';

Conn.LoginPrompt:=False;

Conn.ConnectionString:='Provider=Microsoft.Jet.OleDB.4.0;'+

'PassWord=;'+

'Persist Security Info=False;'+ //ADO在连接成功后是否保存密码信息

'Data Source='+OpenDialog1.FileName;

List:=TStringList.Create;

Conn.GetTableNames(List,False);

if List.IndexOf('dhb')>-1 then Conn.Execute('Drop Table dhb');

List.Free;

cSql:='Select * into dhb from khzl In'+SysUtils.QuotedStr('f:\mcmygs.mdb')+' order by id';

Conn.Execute(cSql);

finally

Conn.Free;

end;

end;

end;

ADOConnection-CommandTimeOut相关推荐

  1. ado控件连接oracle,在Delphi 7中用ADOConnection控件连接Oracle 9i的问题

    我在本地机器上安装了oracle客户端,其中tnsnames.ora文件中的内容如下: dbtest_212.113.74.23 = (DESCRIPTION = (ADDRESS_LIST = (A ...

  2. Delphi:ADOConnection连接SQLServer自动断网问题解决

    =============================== 解决方法一:异常时关闭连接,WinXP,win7 32位大部分情况都是起作用的,不过在有些windows操作系统下(如家庭版)不起作用, ...

  3. Delphi使用ADOconnection连接mysql数据库时的Connectionstring问题

    补充本文关键字:"未发现数据源名称且未指定默认驱动程序"."驱动程序和应用程序之间的体系结构不匹配" 其实标题并不能点出这篇文的核心,这文真正的核心是:驱动兼容 ...

  4. 【Delphi】ADOConnection连接数据库、ADOQuery执行SQL语句、StringGrid填充数据集

    即:先用ADOConnection连接数据库,再用ADOQuery执行SQL语句,最后将返回的数据集填充到StringGrid 这样就获得了一张所需的数据表格. 一.环境 Windows10 RAD ...

  5. 关于CommandTimeOut

    指示在终止尝试和产生错误之前执行命令期间需等待的时间. 设置和返回值 设置或返回长整型值,该值指示等待命令执行的时间(单位为秒).默认值为 30. 说明 Connection 对象或Command 上 ...

  6. CommandTimeout

    1.程序调用存储过程或数据库对象时出现超时 2.提取存储过程或数据库对象单独在数据库里面运行正常 以上两种情况同时出现,应该考虑CommandTimeout超时的问题,应该扩大其秒数. 转载于:htt ...

  7. CommandTimeout / ConnectionTimeout /NHibernate ADO.NET

    SqlCommand.CommandTimeout          获取或设置在终止执行命令的尝试并生成错误之前的等待时间.          等待命令执行的时间(以秒为单位).默认为 30 秒. ...

  8. VB commandTimeout

    VB数据库中的connection对象的commandTimeout属性是什么意思? commandTimeout=15是代表多长的生命周期? 指的是命令咱应的超时时间,如果一个命令执行的时候大于你所 ...

  9. oracle commandtimeout,连接池和 Timeout expired异常解决方法

    连接池和 timeout expired异常解决方法 你需要保证你每次调用连接的同时都在使用过后通过close()或dispose()对其执行了关闭.最简单的办法就是使用using,将你的连接泄漏方法 ...

  10. Ibatis.Net执行Sql超时commandTimeout的一个坑

    项目中使用了Ibatis.Net,数据库是Mysql,在做一个批量Update的操作时,需要执行40几秒,在执行到30秒的时候,会抛出异常:Timeout expired , The timeout ...

最新文章

  1. 第五周项目一-三角形类雏形(5)
  2. 2011年第二届蓝桥杯决赛 —— C语言本科 —— 第一题
  3. 【机器视觉】 if算子
  4. HDU - 6625 three arrays (Trie+dfs)
  5. 缓存三大问题及解决方案
  6. 比亚迪:2月新能源汽车销量14429辆 同比增长73%
  7. 必须要掌握的七种谈话技巧
  8. Linux内核基础设施
  9. ORB-SLAM3学习笔记-基本概念
  10. Android 四大组件学习之Service四
  11. paip.python开发环境搭建
  12. BP神经网络代码和原理
  13. band math函数_波段运算(bandmath)工具中常用的函数
  14. Handler机制原理----全解
  15. 离散数学中Warshall算法简析
  16. 锐龙r5 5600h核显什么水平 r5 5600h属于什么级别
  17. Java程序员修炼之道 人民邮电出版社 吴海星译
  18. 获取域内所有DNS解析记录
  19. uniapp开发APP使用echart
  20. 烟台理工学校计算机专业,烟台理工学校都有哪些专业

热门文章

  1. 西太平洋最大金枪鱼供应商丰群水产通过海洋管理委员会认证
  2. 微博关注与粉丝业务场景分析
  3. 3Ds Max Design2009与PhotoshopCS4建筑设计经典案例指导视频教程
  4. 2019计算机一级考试题库及答案,2019年全国计算机一级考试题库及答案
  5. FreeForm和composite中插入子报表的区别
  6. 用python实现给人脸带圣诞帽子
  7. Angular-Rxjs
  8. HealthKit的使用
  9. 泰坦尼克之灾(逻辑回归应用)
  10. EasyUI Messager的defaults基本使用