两个库的表结构相同,
adoczbz:=Tadoquery.Create(nil);
adoczbz.Connection := datacon.ADOConnection1 ;
with adoczbz do
begin
close;
sql.Clear ;
ysql:='insert into ":adoconnnection1:kjqj"+
' SELECT * FROM ":adoconnnection12:kjqj" where '+
' 人员编号 ='''+czpbh+'''';
sql.Add(ysql) ;
execsql;
end;
end;我怎么用不了?
adoczbz:=Tadoquery.Create(nil);
adoczbz.Connection := datacon.ADOConnection1 ;
with adoczbz do
begin
close;
sql.Clear ;
ysql:='insert into ":adoconnnection1:kjqj"+
' SELECT * FROM ":adoconnnection12:kjqj" where '+
' 人员编号 ='''+czpbh+'''';
sql.Add(ysql) ;
execsql;
end;
end;我怎么用不了?
你说该怎么写,
我是用ADO动态连接两个库,我要将一个表中的记录写入论一个表中?
大哥,帮个忙,该怎么写?
'insert into kjqj '+
'SELECT * FROM '+adoconnnection2.DefaultDatabase+'.dba.kjqj where '+
' 人员编号 ='''+czpbh+'''';
t1:string;//数据库加表名
T2:string//数据库加表名
begin
T1:=‘DATABASE1..KJJS’
T2:=‘DATABASE2..KJJS'adoczbz:=Tadoquery.Create(nil);
adoczbz.Connection := datacon.ADOConnection1 ;
with adoczbz do
begin
close;
sql.Clear ;
ysql:='insert into '+t1+
' SELECT * FROM '+T2+' where 人员编号 ='''+czpbh+'''';
sql.Add(ysql) ;
execsql;
end;
end;
你这怎么行不通,怎么回事啊?
我用的是ADOCONNECTION连的,没有别名?
DATABASE 是数据库名 KJJS是表名
我没有用过BDE,你能不能举个列啊?
我等你得消息?
'文件名1.mdb.表1 SELECT * FROM '+adoconnnection2.DefaultDatabase+
'文件名1.mdb.表2 where 人员编号 ='''+czpbh+'''';我帮调试过一了
一切OK:)
有事给我发短消息