Delphi 多線程 ADO 訪問 Oracle：並發性能與事務處理指南

問題一：多線程並發每線程一連接，是否有優先級問題？

結論：無優先級問題，但需正確使用事務。

• 每個線程擁有獨立 TADOConnection，物理連接隔離，Oracle 服務端按提交順序串行化處理。
• 單條 SQL（如 UPDATE ... SET a = a + 1）隱式事務，原子性有保障。
• 多條 SQL 需業務邏輯一致性時，必須顯式開啟事務：
  Connection.BeginTrans; → 執行多條 SQL → Connection.CommitTrans;（異常時 RollbackTrans）。

問題二：代碼中 ADO 查詢 vs PL/SQL 直接查詢，速度差異大嗎？

結論：接口開銷極小，差異通常可忽略；但高頻簡單查詢積少成多，建議優化。

• ADO/OLE DB/ODP.NET 等數據訪問層開銷在微秒級，網絡延遲佔主導。
• 若循環執行大量簡單查詢（如 10萬次 SELECT * FROM dual），網絡往返成主導瓶頸。

優化建議

1. 批量操作：用 INSERT ALL ... SELECT * FROM dual、數組綁定、FORALL (PL/SQL) 替換循環單條執行。
2. 存儲過程：將業務邏輯下沉到 Oracle 存儲過程，一次調用完成多步操作，大幅減少網絡交互。
3. 連接池：配置 ADO 連接池（ConnectionString 中 Pooling=true），避免頻繁建連銷連。
4. 獲取計劃：EXPLAIN PLAN 分析慢 SQL，添加適當索引、收集統計信息。

代碼片段：正確事務模式

var
  Conn: TADOConnection;
  Qry: TADOQuery;
begin
  Conn := TADOConnection.Create(nil);
  Conn.ConnectionString := '...'; // 含 Pooling=true
  Conn.LoginPrompt := False;
  Conn.Connected := True;
  Conn.BeginTrans;
  try
    Qry := TADOQuery.Create(nil);
    Qry.Connection := Conn;
    Qry.SQL.Text := 'UPDATE accounts SET balance = balance - :amt WHERE id = :id';
    Qry.Parameters.ParamByName('amt').Value := 100;
    Qry.Parameters.ParamByName('id').Value := 123;
    Qry.ExecSQL;
    // 更多 SQL...
    Conn.CommitTrans;
  except
    Conn.RollbackTrans;
    raise;
  end;
  Conn.Connected := False;
  Conn.Free;
end;