M
myjane
Unregistered / Unconfirmed
GUEST, unregistred user!
现有:
一个FOXPRO的表:(是用ODBC连接的)
一个ACCESS的表:xiao(用ADO连接的)
因为是两个不同的数据源,
错误提示:查询值的数目与目标字段中的数目不同。
代码如下:
procedure TForm1.BitBtn3Click(Sender: TObject);
var d1,e1:string;
begin
d1:=bdate.text;
e1:=edate.text;
with adoquery2 do
begin
close;
sql.Clear;
SQL.ADD('insert into xiao(khdm,mc,ono,odate,ckdm,dm,osl.odanj,ozhk,wzdj) in """odbc;dsn=awfi"');
sql.add('SELECT KH.DM,KH.MC,MM.O_NO,MM.O_DATE,MM.CKDM,YY.DM,MM.O_SL,MM.O_DANJ,MM.O_ZKE,YY.DJ');
sql.add('FROM DM_WZ YY,OUT MM,DM_KH KH');
sql.add('WHERE (kh.dm=mm.xfdm)and(YY.DM=MM.WZDM)and(mm.o_date>=:bbdate and mm.o_date<=:eedate)');
sql.add('order by mm.o_no,yy.dm');
Parameters.parambyname('bbdate').value:=strtodate(d1);
parameters.parambyname('eedate').value:=strtodate(e1);;
execsql;
end;
end;
以核对过字段的长度、类型相同
一个FOXPRO的表:(是用ODBC连接的)
一个ACCESS的表:xiao(用ADO连接的)
因为是两个不同的数据源,
错误提示:查询值的数目与目标字段中的数目不同。
代码如下:
procedure TForm1.BitBtn3Click(Sender: TObject);
var d1,e1:string;
begin
d1:=bdate.text;
e1:=edate.text;
with adoquery2 do
begin
close;
sql.Clear;
SQL.ADD('insert into xiao(khdm,mc,ono,odate,ckdm,dm,osl.odanj,ozhk,wzdj) in """odbc;dsn=awfi"');
sql.add('SELECT KH.DM,KH.MC,MM.O_NO,MM.O_DATE,MM.CKDM,YY.DM,MM.O_SL,MM.O_DANJ,MM.O_ZKE,YY.DJ');
sql.add('FROM DM_WZ YY,OUT MM,DM_KH KH');
sql.add('WHERE (kh.dm=mm.xfdm)and(YY.DM=MM.WZDM)and(mm.o_date>=:bbdate and mm.o_date<=:eedate)');
sql.add('order by mm.o_no,yy.dm');
Parameters.parambyname('bbdate').value:=strtodate(d1);
parameters.parambyname('eedate').value:=strtodate(e1);;
execsql;
end;
end;
以核对过字段的长度、类型相同