📄 实例——调用execsql方法在数据集中插入一个新记录.txt
字号:
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -