本文整理自网络,侵删。
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;
相关阅读 >>
Delphi 网上获取北京时间idhttpserver and idhttp 使用 encoding utf8
ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能
更多相关阅读请进入《Delphi》频道 >>