熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Delphi8裡在VCL.NET使用ADO.NET

2013-11-11 21:04:00  來源: Delphi編程 
在中有兩點蠻遺憾的:
  不能使用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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.