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

来源:百度文库 编辑:中科新闻网 时间:2024/05/14 06:11:53
利用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;