Delphi 7 連 Access 2000 數據庫：ADO 組件配置與三表基本操作範例

環境

• Delphi 7 + Access 2000 (.mdb)
• 需建立至少 3 張表，實現基本增刪改查。

核心組件

• `TADOConnection`：連接字符串 `Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db.mdb;Persist Security Info=False`
• `TADOTable` / `TADOQuery`：綁定 `Connection`，`TableName` 或 `SQL` 屬性操作數據。
• `TDataSource`：橋接數據集與數據感知控件（`TDBGrid`、`TDBEdit` 等）。

三表示例結構

-- 學生表
CREATE TABLE Students (SID AUTOINCREMENT PRIMARY KEY, SName TEXT(20), ClassID LONG);
-- 班級表
CREATE TABLE Classes (CID AUTOINCREMENT PRIMARY KEY, CName TEXT(20));
-- 成績表
CREATE TABLE Scores (ScID AUTOINCREMENT PRIMARY KEY, SID LONG, Subject TEXT(20), Score INT);

基本操作代碼片段

{ 連接 }
ADOConnection1.Connected := True;

{ 遍歷學生 }
ADOTable1.TableName := 'Students';
ADOTable1.Open;
while not ADOTable1.Eof do begin
    ShowMessage(ADOTable1.FieldByName('SName').AsString);
    ADOTable1.Next;
end;

{ 參數化查詢某班學生 }
ADOQuery1.SQL.Text := 'SELECT * FROM Students WHERE ClassID = :cid';
ADOQuery1.Parameters.ParamByName('cid').Value := 1;
ADOQuery1.Open;

{ 新增成績 }
ADOQuery1.SQL.Text := 'INSERT INTO Scores (SID, Subject, Score) VALUES (:sid, :sub, :sc)';
ADOQuery1.Parameters.ParamByName('sid').Value := 10;
ADOQuery1.Parameters.ParamByName('sub').Value := 'Math';
ADOQuery1.Parameters.ParamByName('sc').Value := 95;
ADOQuery1.ExecSQL;

參考資源

完整教程：Delphi 7 ADO 連 Access 實戰