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;

————————————————

原文链接：https://blog.csdn.net/opensource_liu/article/details/48050415