mdb库数据写到sql中 写不进去 看看代码哪里的毛病 谢谢

Question

For I:=0 to LB_1.Count-1 do
 begin
 if LB_1.Selected[I] then
  begin
  Jh:=Trim(Copy(LB_1.Items[I],0,13));
  Rq:=Trim(Copy(LB_1.Items[I],14,40));
  aq1.Close;
  aq1.SQL.Text:='select * from dca02 where Jh='''+Jh+'''';
  aq1.Open;
  aq2.Close;
  aq2.SQL.Text:='select * from jcs where Jh='''+Jh+'''';
  aq2.Open;
  if aq1.FieldByName('Jh').AsString=Jh then
    begin
    aq1.Edit;
    aq1.FieldByName('Rq').AsString:=aq2.FieldValues['Rq'];
    aq1.FieldByName('Cch').AsFloat:=StrToFloat(aq2.FieldValues['Cch']);
    aq1.FieldByName('Cci').AsFloat:=StrToFloat(aq2.FieldValues['Cci']);
    aq1.Post;
    end;
  end;
 end;我怎么也不能把mdb中的数据写到sql数据库中，原因可能 aq1.FieldByName('Jh').AsString=Jh  结果为FLASE   但我用同样的方法可以把sql数据中的数据写到mdb中   这是为什么？

Answer 1

不能这样写吧：if aq1.FieldByName('Jh').AsString=Jh then 
应该：
aq1.Sql.Text:='select Jh from dca02.....'
if aq1.Fields[0].AsString=Jh then   0为第一个字段 
不知道对不对，LZ试一下吧：）

Answer 2

if aq1.Fields[0].AsString='Jh' then 
少引号了。

Answer 3

单步调试，看看aq1.FieldByName('Jh').AsString和Jh的值分别是什么，是否有末尾空格的存在？