Delphi 连接SQLserver

1.注意引用ADODB,Provider,DBClient 单元

procedure TForm1.btn2Click(Sender: TObject);
var
   AdoQuery :TADOQuery;
   pDataSetProvider: TDataSetProvider;
   pADOConn: TADOConnection;
   ds: TClientDataSet;
   strConn:string;
   sSQL:string;
begin
   AdoQuery := TADOQuery.Create(nil);
   pDataSetProvider:= TDataSetProvider.Create(nil);
   pADOConn:=TADOConnection.Create(nil);
   ds:= TClientDataSet.Create(nil);
   strConn:='Provider=SQLOLEDB.1;'
          + 'Persist Security Info=False;'
          + 'User ID=sa;'
          + 'Password=1;'
          + 'Data Source=127.0.0.1;';
   pADOConn.ConnectionString:=strConn;
   sSQL:='select * from test..student';
   try
      try
        if not pADOConn.Connected then
           pADOConn.Open;
        AdoQuery.Connection := pADOConn;
        Application.ProcessMessages;
        AdoQuery.SQL.Clear;
        AdoQuery.SQL.Add(sSQL);
        AdoQuery.Open;
        pDataSetProvider.DataSet:=AdoQuery;
        ds.Data:= pDataSetProvider.Data;
        AdoQuery.Close;
      except
        on E: Exception do
        begin
           ShowMessage('数据库出错');
        end;
    end;
   finally
    pDataSetProvider.Free;
    AdoQuery.Free;
   end;
   ShowMessage(ds.FieldValues['id']+' '+ds.FieldValues['name']);
end;