Delphi8裡在VCL.NET使用ADO.NET

在中有兩點蠻遺憾的:
　　不能使用ADO(dbGo)不過據李維說本月的delphi將會有這個組件
　　不能使用和BDP這將是我這片文章的主題
　　
　　在Borland的delphi交流區內曾經看到Danny說過在中可以調用Winform組件同樣Winform也可以調用組件
　　
　　為了驗證第一句話我試了下在中是可以使用 Net的組件的如可以直接uses SystemDataSqlClient並直接使用 SqlConnection類也就是說雖然的組件面板中無法看組件但是所有組件的類都可以使用！ 但是的dataset並不和的Dataset組件兼容所以無法直接調用數據感知組件不過看了李維的Inside Vcl知道原來有一個ADONETConnector組件用了這個組件可以使支持使用數據感知組件了
　　
　　首先組件的dll在BDS\\Bin 下有一個BorlandVclDesignAdoNetdll單擊 component菜單然後在窗體 vcl components頁中把這個dll Add一下就可以看見ADONETConnector組件然後加一個Dbgriddbdatasoure只要datasourcedataset:=ADONETConnector其它的和原來的delphi一樣就可以了我的具體代碼如下
　　
　　unit Unit;
　　
　　interface
　　
　　uses
　　　Windows Messages SysUtils Variants Classes Graphics Controls Forms
　　　Dialogs
　　　SystemDataSqlClient
　　　SystemData SystemComponentModel BorlandVclStdCtrls
　　　BorlandVclExtCtrls BorlandVclDBCtrls BorlandVclGrids
　　　BorlandVclDBGrids BorlandVclDb BorlandVclADONETDb;
　　
　　type
　　　TForm = class(TForm)
　　　　Button: TButton;
　　　　ADONETConnector: TADONETConnector;
　　　　DataSource: TDataSource;
　　　　DBGrid: TDBGrid;
　　　　DBNavigator: TDBNavigator;
　　　　procedure ButtonClick(Sender: TObject);
　　　private
　　　　{ Private declarations }
　　　　Connection:SqlConnection;
　　　　ProDataSet : DataSet;
　　　　Adapter : SqlDataAdapter;
　　
　　　public
　　　　{ Public declarations }
　　　end;
　　
　　var
　　　Form: TForm;
　　
　　implementation
　　
　　{$R *nfm}
　　
　　procedure TFormButtonClick(Sender: TObject);
　　begin
　　　Connection := SqlConnectionCreate(
　　　data source= ;+
　　　initial catalog=SfiecErp;+
　　　password=qwert;+
　　　persist security info=True;+
　　　user id=sa;+
　　　packet size=;+
　　　Connection Lifetime=;+
　　　Connection Reset=False;+
　　　Pooling=False;+
　　　Max Pool Size=;Min Pool Size=);
　　　ConnectionOpen;
　　　ProDataSet := DataSetCreate;
　　　Adapter := SqlDataAdapterCreate(select * from TProduct Connection);
　　　AdapterFill(ProDataSet Product);
　　　ADONETConnectorDataTable:=ProDataSetTables[];
　　end;
　　
　　end
From:http://tw.wingwit.com/Article/program/Delphi/201311/8392.html