delphi 7 使用ODBC连接DBF数据库,用ADOQuery 查询一直提示如标题的错误,愁死啦,代码如下:
with DM1.ADOTable95 DO
BEGIN
close;
Tablename:='汉字95列标准库.dbf';
Open;
for t:=0 to 77 do
begin
oldf:=Fields[t].fieldname;
s951:=s951+','+oldf;
end;
for t:=78 to 94 do
begin
oldf:=Fields[t].fieldname;
s952:=s952+','+oldf;
end;
s952:='林场,村,林班号,小班号'+s952;
s951:=copy(s951,2,length(s951)-1)+',NFID';
s952:=copy(s952,2,length(s952)-1);
END;//END95Table;
ss1:='Insert into 汉字95列标准库('+s952+') select '+s39+' from '+y+char(32)+'';
ss2:='where ('+y+'.林班 =汉字95列标准库.林班号) and ('+y+'.小班 =汉字95列标准库.小班号)';
with DM1.ADOQuery DO
BEGIN
{ Close;
Sql.Clear;
Sql.Add('insert into 汉字95列标准库('+s951+') select '+s81+' from '+fs+';');
ExecSQL;
}
Close;
Sql.Clear;
Sql.Add(ss1);
Sql.Add(ss2);
Prepared;
ExecSQL;
Showmessage('39列数据输入95库!');
END;//结束SQL
DM1.ADOTable95.Close;
DM1.ADOTable95.Open;