在Delphi中進行SQL數據庫查詢,可以通過以下步驟實現:
示例代碼如下:
uses
ComObj, ActiveX, ADOdb;
var
Conn: TADOConnection;
Query: TADOQuery;
begin
Conn := TADOConnection.Create(nil);
Conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb';
Conn.Connected := True;
Query := TADOQuery.Create(nil);
Query.Connection := Conn;
Query.SQL.Text := 'SELECT * FROM MyTable';
Query.Open;
while not Query.Eof do
begin
// 處理查詢結果
// 可以通過Query.FieldByName('FieldName').AsString等方法獲取字段值
Query.Next;
end;
Query.Close;
Query.Free;
Conn.Connected := False;
Conn.Free;
end;
在實際開發中,還可以使用參數化查詢來防止SQL注入攻擊,以及使用事務處理來確保數據的一致性和完整性。