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;
调用EXECSQL方法在数据集中插入一个新记录
最新推荐文章于 2024-08-18 03:54:04 发布