adoquery1.SQL.Clear; adoquery1.SQL.Add('Insert into tmp (j) values (10)'); adoquery1.ExecSQL; adoquery1.SQL.Clear; adoquery1.SQL.add('select top 1 @@identity as TMPID from tmp'); adoquery1.Open; label1.Caption:=inttostr(adoquery1.fieldByName('TMPID').AsInteger); delphi中做的,ASP好长时间不用了不过应该思路差不多吧!
adoquery1.SQL.Add('Insert into tmp (j) values (10)');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select top 1 @@identity as TMPID from tmp');
adoquery1.Open;
label1.Caption:=inttostr(adoquery1.fieldByName('TMPID').AsInteger);
delphi中做的,ASP好长时间不用了不过应该思路差不多吧!
rs.addnew
rs("Name")='Mike'
rs("Age")=18
rs.update
rs.movelast
messagebox rs("ID自增字段")
Application("conn").execute(sqlcmd)
你试试。