delphi打开db数据库

uses
  ADODB, SysUtils;

var
  Connection: TADOConnection;
  Recordset: TADORecordset;
begin
  try
    // 创建并配置ADO连接
    Connection := TADOConnection.Create(nil);
    Connection.ConnectionString := 'Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;Integrated Security=SSPI;';
    Connection.Connected := True;

    // 创建并打开记录集
    Recordset := TADORecordset.Create(nil);
    Recordset.Connection := Connection;
    Recordset.Open('SELECT * FROM your_table', EmptyParam, adOpenForwardOnly, adLockReadOnly, adCmdText);

    // 处理记录集数据
    while not Recordset.EOF do
    begin
      // 处理每一行数据
      Recordset.Next;
    end;

    // 关闭记录集和连接
    Recordset.Close;
    Connection.Connected := False;
  except
    on E: Exception do
      ShowMessage('Error: ' + E.Message);
  end;
end;