动态设置数据集参数

niochen

于 2009-02-20 10:05:00 发布

阅读量398

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： insert sql

本文链接：https://blog.youkuaiyun.com/jfree5200/article/details/3912970

Delphi 专栏收录该内容

95 篇文章

订阅专栏

    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;