delphi连接sql数据库代码

uses
  Data.DB, Data.Win.ADODB;

procedure TForm1.ConnectToDatabase;
var
  ADOConnection: TADOConnection;
  ADOQuery: TADOQuery;
begin
  // 创建并配置ADOConnection组件
  ADOConnection := TADOConnection.Create(Self);
  ADOConnection.ConnectionString := 'Provider=SQLOLEDB;Data Source=YourServerName;' +
                                  'Initial Catalog=YourDatabaseName;User ID=YourUsername;' +
                                  'Password=YourPassword;';
  ADOConnection.Connected := True;

  // 创建并配置ADOQuery组件
  ADOQuery := TADOQuery.Create(Self);
  ADOQuery.Connection := ADOConnection;
  ADOQuery.SQL.Text := 'SELECT * FROM YourTableName';
  ADOQuery.Open;

  // 处理查询结果
  while not ADOQuery.Eof do
  begin
    // 处理每一行数据
    ShowMessage(ADOQuery.FieldByName('FieldName').AsString);
    ADOQuery.Next;
  end;

  // 关闭连接
  ADOQuery.Close;
  ADOConnection.Connected := False;
end;