Question

在delphi中用ADOQuery连接SQL中的数据，怎么样删除指定记录号对应的信息？

比如，我先查询一个学号，然后删除这个学号对应的记录。

Answer 1

会写查询语句吗？sqlyj:='select ....(字段名) from （表名） where 学号 = ''23467‘' '
下面二段代码供你参考：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin//找到对应的记录：SQL语句
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;//清除ADOQuery1中原有的SQL语句
ADOQuery1.SQL.Add('select 病案号, 病历等级, 病人姓名, 出生年月日, 出院护士, '+
'出院科别, 出院情况, 出院日期, 出院诊断, 村居委, 存档日期, 地址省, 地址县市, '+
'费用承担, 交档日期, 入院接待护士, 入院科别, 入院日期, 入院医生, 入院诊断, '+
'统计时段, 性别, 镇区, 住院号, 住院其它费, 住院药费, 住院医生, 组街道 from 出院者登记表 where 病案号 =''20050113''' );
ADOQuery1.Active:=true;//激活它，显示数据了
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin//RecordCount 记录数
if ADOQuery1.RecordCount >0 then//没有这如果语句，当没有记录时，再按按钮就会出错
ADOQuery1.Delete;//删除它
end;
伙计，专门为你打开DELPHI，写的示范语句。

Answer 2

如果只有一条的话
if ADOQuery1.RecordCount >0 then//没有这如果语句，当没有记录时，再按按钮就会出错
ADOQuery1.Delete;//删除它
如果多条
ADOQuery1.SQL.Clear;//清除ADOQuery1中原有的SQL语句
ADOQuery1.SQL.Add('select * from表名 where 学号 =....
ADOQuery1.open;
while not ADOQuery1.eof do
begin
ADOQuery1..delect;
end;

Answer 3

ADOQuery1.Connection := ADOConnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.text := 'select * from 表 where ID= ''指定学号'' ';
ADOQuery1.open;
ADOQuery2.Connection := ADOConnection2
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.text := delete from 表 where ID= ''指定学号'' ';
ADOQuery1.ExecSQL;

'