使用dbExpress连接方式访问数据库

最新推荐文章于 2023-04-06 09:48:08 发布

niochen

最新推荐文章于 2023-04-06 09:48:08 发布

阅读量551

点赞数

分类专栏： Delphi 文章标签：数据库 sql insert string

本文链接：https://blog.csdn.net/jfree5200/article/details/3912919

版权

Delphi 专栏收录该内容

95 篇文章 1 订阅

订阅专栏

    procedure TForm1.InsertBtnClick(Sender: TObject);
    //使用带参数的插入语句，每个记录由3个字段组成，分别是客户号，公司名称和国别
    var
      //说明用于保存SQL语句的串类型变量、SQL参数的Tparams类型变量
      SQLstmt: String;           
      CountryParams: TParams;
    begin
      CountryParams:= TParams.Create;
      //建立Tparams对象
      try
        SQLConnection1.Connected := True;
        //连接到本地的Paradox数据库
        CountryParams.CreateParam(ftString, 'CountryParam', ptInput);
        CountryParams.ParamByName('CountryParam').AsString := '中国';
        //使用参数名为变量CountryParam赋值
        SQLstmt := 'INSERT INTO "Kehu.db" '+'(CustNo, Company, country) ' +
          'VALUES (168, "蓝田设备工程公司", : CountryParam)';
        //生成插入记录的SQL语句，并为3个字段赋值
        SQLConnection1.Execute(SQLstmt, CountryParams);
        //执行TSQLConnection语句的Execute方法，完成数据的插入
      finally
        CountryParams.Free;
      end;
    end;