网淘巴来吧,欢迎您!

返回首页 微信
微信
手机版
手机版

ADOQuery (Delphi)使用实例

2021-08-13 新闻来源:网淘巴 围观:324
''

此示例演示了使用 ADO 进行数据库连接。 该示例假设在窗体上放置了一个 DBGrid。

Code

procedure TForm2.FormCreate(Sender: TObject);const  { Connection string }  ConnString =  'Provider=SQLOLEDB.1;Persist Security Info=False;' +  'User ID=%s;Password=%s;Data Source=%s;Use Procedure for Prepare=1;' +  'Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;'+  'Tag with column collation when possible=False';  { SQL Query }  SQLStr = 'SELECT * FROM customer WHERE customer_id = :AnId;';  { User access }  UserName = 'db_user_name';  PassWord = 'db_pass_word';  Server = 'my.db.server';var  ADOConn  : TADOConnection;  ADOQuery : TADOQuery;  DataSrc  : TDataSource;  Param    : TParameter;begin  { Create an ADO connection. }  ADOConn := TADOConnection.Create(Self);  { Set up the provider engine }  { Set up the connection string. }  ADOConn.ConnectionString := Format(ConnString,    [UserName, PassWord, Server]);  { Disable login prompt. }  ADOConn.LoginPrompt := False;  try    ADOConn.Connected := True;  except    on e: EADOError do    begin      MessageDlg('Error while connecting', mtError,                  [mbOK], 0);      Exit;    end;  end;  { Create the query. }  ADOQuery := TADOQuery.Create(Self);  ADOQuery.Connection := ADOConn;  ADOQuery.SQL.Add(SQLStr);  { Update the parameter that was parsed from the SQL query: AnId. }  Param := ADOQuery.Parameters.ParamByName('AnId');  Param.DataType := ftInteger;  Param.Value := 1;  { Set the query to Prepared--it will improve performance. }  ADOQuery.Prepared := true;  try    ADOQuery.Active := True;  except    on e: EADOError do    begin      MessageDlg('Error while doing query', mtError,                  [mbOK], 0);      Exit;    end;  end;  { Create the data source. }  DataSrc := TDataSource.Create(Self);  DataSrc.DataSet := ADOQuery;  DataSrc.Enabled := true;  { Finally, initialize the grid. }  DBGrid1.DataSource := DataSrc;end;

 

翻译由网淘巴完成,转载必须标明出处:ADOQuery (Delphi)使用实例_delphi_网淘巴 (wtao8.com)

 

 

 

打赏 支付宝打赏 微信打赏
免责申明
一、网淘巴提供的资源部分来自互联网,如果有侵犯您的版权或其他权益,请说明详细缘由并提供版权或权益证明然后发送到邮箱:jjq_hn@wtao8.com ,我们会在看到邮件的第一时间内为您处理。二、网友通过wtao8.com途径发表的一切信息,本站有权在本网站范围内引用、发布、转载用户在本站发布的内容。本站对于用户发布的内容所引发的版权、署名权的异议、纠纷不承担任何责任。传统媒体转载须事先与原作者和本站联系。提交者发言纯属个人行为,与本网站立场无关。

相关文章

  • AddChildObjectFirst使用实例
    AddChildObjectFirst使用实例

    下面的示例将一个新项目添加到the tree view 控件中所选项目的子项目列表中。新项目首先添加到子项目列表中。新项目由文本“new item”标识。TBitmap对象附加到the new ite...

    2021-08-13
  • ActnMgrBar 使用实例
    ActnMgrBar 使用实例

    这个应用程序需要表单上已经有一个TPopupActionBar组件。应用程序创建一个action manager组件,并将一个图像列表分配给它的一些属性。然后,自定义弹出action bar 并将其a...

    2021-08-13
  • ActivePage实例代码
    ActivePage实例代码

    这个例子要求form上已经有一个TPageControl。另外,您必须通过右击并选择New Page将页面添加到TPageControl中。示例代码允许您通过选择ComboBox项来选择ActiveP...

    2021-08-13
  • ActiveControl (Delphi)实例
    ActiveControl (Delphi)实例

    在窗体上放置一个TTimer对象,并在OnTimer事件中输入Timer1Timer。将其他控件放置在窗体上,并在运行时更改活动控件。下面的事件处理程序通过每100毫秒向右移动一个像素来响应计时器事件...

    2021-08-12

关于已赞助未发注册码声明

目前有一位朋友已赞助了,但未将软件软件名称、注册名和注册码发到我的邮箱,请将信息发至我的邮箱,谢谢。