利用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;