利用delphi复制一个空mdb文件,以adoquery3.fieldbyname('代号').astring命名

利用delphi复制一个空mdb文件，以adoquery3.fieldbyname('代号').astring命名查找源数据中单位编码为adoquery3.fieldbyname('代号).astring的数据往该数据库文件中填写数据；

var

DBName:string;

begin

DBName:=Adoquery3.FieldByName('代号').AsString;

FileCopy('空mdb文件名','路径'+DBName+'.mdb');

AdoConnection1.Close;

AdoConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DBName+';Persist Security Info=False';

AdoConnection.Open;

//然后就能对新数据库进操作了

end;

• ·赢在中国2006 的片尾曲是什么?
• ·请各位大虾帮帮忙，有什么好方法学习注册表呀。
• ·BIOS弄乱了显示器没画面了咋办
• ·成都出租车计费方式
• ·我刚买了一台电脑，可以说还是个新手，所以有好多
• ·脚丫子上面起了几个大水疱，怎摸办啊？
• ·怎么给别人发送病毒
• ·白金英雄坛说读书写字
• ·海宁曾经出过哪些文化名人？请你去查阅相关资料，
• ·谁能为我推荐学习Dreamweaver+ASP