Question

怎样在delphi里写SQL语句查谋个表中的谋个字段并插到另一个表上?

我的目的是这样的,比如一个窗体的combobox1里有序号和姓名的数据,要插到一个aa 表,还要判断是不是B表里有这些数据,如果没有就把它插到B表里去,代码要怎么写?那位高手帮帮忙,谢谢

Answer 1

with query1 dobeginclose;sql.clear;sql.add('select 姓名 from b表 where 序号='+combobox序号+' ');open;end;with query2 dobeginclose;sql.clear;sql.add('insert into a表(序号,姓名) values('+combobox序号+','''+combobox姓名+''' )');if query1.RecordCount=0 thenbeginsql.add('insert into b表(序号,姓名) values('+combobox序号+','''+combobox姓名+''' )');end;execsql;end;

Answer 2

procedure TForm1.btn1Click(Sender: TObject);var Conn: TADOConnection;
SQL_Query: TADOQuery;begin try
Conn := TADOConnection.Create(nil);
SQL_Query := TADOQuery.Create(nil);
Conn.LoginPrompt := False;
Conn.ConnectionString :=
'Provider=SQLOLEDB;server=.;UID=sa;PWD=sa;database=库名;
SQL_Query.Connection := Conn;
SQL_Query.SQL.Clear;
SQL_Query.SQL.Add('select count(*) as zs b表 where 序号=combobox1里序号 and 姓名=combobox1里姓名');
Conn.Open();
SQL_Query.Open();
SQL_Query.First; if SQL_Query.FieldByName('zs').AsFloat > 0 then begin SQL_Query.SQL.Clear;
SQL_Query.SQL.Add('insert into' 插入语句);
SQL_Query.Open(); end; finally
Conn.Free;
SQL_Query.Free; end;end.

Answer 3

要保证数据完整性的话就开启个事物BeginTrans 然后执行 没有异常的时候提交事物 CommitTrans 否则回滚事物RollbackTrans具体的你把代码贴发上来我给你改！