{$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. ”该证书已被签发机构吊销“错误解决方案
  2. jquery 沟选项获取点击添加和删除的数据
  3. 2、leetcode1001 最大连续1的个数
  4. 健康管理-健康的概念和健康管理目标特点
  5. OpenStack 镜像密码修改办法
  6. pdo连接mysql数据库(简洁明了)
  7. APP营销案例分析------从西柚姨妈神庙看西柚经期助手的公关传播
  8. 全国职业院校技能竞赛网络安全竞赛数据取证与分析思路分析
  9. (孔乙己茴香豆的的“茴”字有几种写法)三栏布局两边固定中间自适应
  10. FPGA作为电力电子设备控制器的实践
  11. 顶尖量化私募“分家产”!学霸基金经理离职,代码产权归属成看点
  12. 微信新规定!好友之间转账超五千元或将收取手续费,望周知
  13. 《徐卓-心理咨询师校园报告 》--心得
  14. 1230k倍区间,关于cnt[0]赋值为1的解释
  15. Linux 入门第一节
  16. bootstrapCDN地址
  17. drawio,程序员最好用的在线画图软件!!!
  18. python学习 day013打卡 内置函数
  19. 10-3 德扑,股票演绎法,练习量是个要命的问题
  20. 《大明王朝1566》观后感

热门文章

  1. 私有化部署的即时通讯平台,为企业移动业务安全保驾护航
  2. (测试有效)Windows10开机自动打开空白word、excel、PowerPoint问题的解决办法
  3. Python精讲:在Python中添加和删除集合元素详解
  4. 反思 大班 快乐的机器人_大班音乐游戏:快乐的机器人
  5. 关于跨境项目UTC时间与PST时间转换
  6. Godot3游戏引擎入门之十二:Godot碰撞理论以及KinematicBody2D的两个方法
  7. HTTP请求生命周期
  8. 用python写注册登录_如何用python 写注册,登录功能的测试
  9. WordPress 5.9.2 官方版发布
  10. 6 15种对抗攻击的防御方法