Delphi串連ACCESS的方法

來源:互聯網
上載者:User

Delphi串連ACCESS的方法

一、    TADOConnection             //connMain為TADOConnection            TADOConnection主要作用是串連資料庫

1、 ConnectionString:串連資料庫

2、 Connected:設為True

3、 KeepConnection:設為True

4、 loginPrompt:設為false;

    5、    寫代碼串連

procedure TForm1.FormShow(Sender: TObject);

begin

  connMain.Close;  //關閉串連

  connMain.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(Application.EXEName) +'sysdata.mdb;Persist Security Info=False';//串連到需要的資料庫

  Button11.Click;

end;

二、TADOCommand            //sqlmain為TADOCommand                TADOCommand主要作用是執行命令操作

1、Connection:串連到TADOconnection組件

2、CommandText//說明使用該組件所執行的命令

3、寫代碼

  ShortDateFormat:='yyyy-mm-dd';// 對應的時間字串格式

   sqlMain.CommandText:='insert into rdata(receivedata,rdatetime) values('''+ StrToHexStr(str) +''','''+ DateTimetostr((now())) +''')';

       //接收到的內容receivedata,rdatetime.表名為rdata         及其對應的字串

   sqlMain.Execute;

這個地方為接收到的字串寫進資料庫中.

三、TADODataSet          //rsMain為TADODataSet              TADODataSet主要用來讀取資料(可以從單個表格和多個表格),並對讀取的資料進行相應的操作

1、Connection:串連到TADOconnection組件

2、CommandText//說明使用該組件所執行的命令

四、TDataSource          //dsQuery為TDataSource     DataSource建立TADODataSet與橋接關係

1、Dataset:串連TADODataSet組件

五:TDBGrid             //dbGrid為TADODataSet     將資料記錄顯示在網格中。

1、DataSource:串連TDataSource   如 Form1.dsQuery    //DataSource指明了TDBGrid組件中顯示資料的來源,正是這一屬性,TDBGird組件與TdataSource組件發生聯絡。從而引入與此TdataSource組件相連的資料集,顯示其中的資料資訊。

2、寫代碼

  procedure TForm1.btnQueryClick(Sender: TObject);

begin

  rsMain.Close;

  rsMain.CommandText:='select * from rdata';

  rsMain.Open;

  Form2.Show; 

end;

 

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.