[阅读: 542] 2006-09-08 04:58:39
constructor TSybaseDB.Create;
begin
inherited;
ADOConnection := TADOConnection.Create(nil);
ADOConnection.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=mytest;Data Source=.';
ADODataSet := TADODataSet.Create(nil);
DataSetProvider := TDataSetProvider.Create(nil);
ShowMessage(DataSetProvider.Name);
ClientDataSet := TClientDataSet.Create(nil);
ADODataSet.Connection := ADOConnection;
ADODataSet.CommandText := 'select * from abc';
// ADODataSet.Open;
DataSetProvider.DataSet := ADODataSet;
DataSetProvider.Name := 'DataSetProvider';
ClientDataSet.ProviderName := 'DataSetProvider';
// ClientDataSet.SetProvider(DataSetProvider);
end;
让暴风雨来的更猛烈些吧!
