在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注入攻击,以及使用事务处理来确保数据的一致性和完整性。