实例——调用execsql方法在数据集中插入一个新记录.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 19 行

procedure TForm1.FormCreate(Sender: TObject)；
begin
AppendRecordQuery.Close；
AppendRecordQuery.SQL.Clear；
//清楚查询组件的SQL语句
AppendRecordQuery.SQL.Add('INSERT INTO RenYuan (姓名,籍贯,年龄)')；
// AppendRecordQuery为查询组件名，RenYuan为表名
AppendRecordQuery.SQL.Add('VALUES (:XM, :JiGuan, :NianLing)')；
//该SQL语句有三个参数，分别是XM,JiGuan和NianLing
AppendRecordQuery.Params[0].AsString := '李明'；
// AppendRecordQuery.Params[0]指向第一个参数XM
AppendRecordQuery.Params[1].AsString := '上海'；
AppendRecordQuery.Params[2].AsInteger := 28；
AppendRecordQuery.ExecSQL；
//调用查询的ExecSQL方法，完成向数据库表RenYuan中增加记录
End；