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;