请教大家一个delphi中的小问题？

Question

例如：
 有一个str，我想判断是否在表Table_kehu的字段kehu_no中；如果没有的话添加append,如果有把表打开str=kehu_no的数据 ;  是在access中，
 Var 
 str:string;
 begin
  str:=trim(edit1.text);
 end;

Answer 1

说个思路，先用ADO与ACCESS连接，访问该表，建一ADOQuery1,
ADOQuery1.Close();
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Add('select * form Table_kehu where kehu_no='''+str+''');
ADOQuery1.Open();
if ADOQuery.IsEmpty then
   begin
     ADOQuery1.Close();
     ADOQuery1.SQL.Clear();
     //这里加一句SQL的插入语句。     
     ADOQuery1.Open();
    end
 else
    str:=ADOQuery1.FieldByName('kehu_no');没看懂你说的如果str在表中存在后所要做的动作。

Answer 2

var
  str:string;
begin
  str:=str:=trim(edit1.text);
  AdoQuery1.Active:=false;
  AdoQuery1.SQL.Clear;
  AdoQuery1.SQL.Add('select * from Table_kehu where kehu_no='''+str+'''');
  AdoQuery1.Active:=true;
  if AdoQuery1.RecordCount =0 then //如果不存在
  begin
     AdoQuery1.Append;
     AdoQuery1.FieldByName('kehu_no').AsString:=str;
     {继续设置其他字段的内容}
     AdoQuery1.Post;
  end;

Answer 3

var
  str:string;
begin
  str:=str:=trim(edit1.text);
  AdoQuery1.Active:=false;
  AdoQuery1.SQL.Clear;
  AdoQuery1.SQL.Add('select * from Table_kehu where kehu_no='''+str+'''');
  ADOQuery1.Open();
  ADOQuery1.first;
  if ADOQuery1.FieldByName('kehu_no').isnull then
    begin
      //不存在要做的
    end
  else
    begin
      //存在要做的
    end

Answer 4

declare @kehu_no ..
select @kehu_no=kehu_no from table_kehu where kehu_no="'+str+'"'
if @kehu_no is null insert into ................
else select @kehu_no