procedure TForm1.ExcuteBtnClick(Sender: TObject); begin SQLDataSet1.CommandType := ctQuery; SQLDataSet1.CommandText := 'INSERT INTO RenYuan (NAME, Native, age) VALUES (:Name, :Native, :age)'; //形成SQL命令文本,该语句含有3个参数变量 SQLDataSet1.Params[0].AsString := Name1.text; //利用用户在编辑框输入的内容为3个参数变量赋值 SQLDataSet1.Params[1].AsString := native1.text; SQLDataSet1.Params[2].AsInteger := StrToInt(age.text); SQLDataSet1.ExecSQL; //调用ExecSQL方法,完成无返回结果集的记录插入。 end;
动态设置数据集参数
最新推荐文章于 2022-11-19 15:11:36 发布