国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Delphi > 正文

在delphi.net的VCL.net里使用Ado.net

2019-11-18 18:24:49
字體:
來源:轉載
供稿:網友

在delphi.net中,VCL.net有兩點蠻遺憾的:
1.不能使用ADO(dbGo),不過據李維說以后將會有這個組件
2.不能使用ADO.net和BDP,這將是我這片文章的主題。

   在Borland的delphi交流區內,曾經看到Danny說過,"在delphi.net中VCL.net可以調用Winform組件,同樣Winform也可以調用VCL.net組件"。

   為了驗證第一句話,我試了下,在Vcl.net中是可以使用 .Net的組件的,如可以直接uses System.Data.SqlClient,并直接使用 SqlConnection類。也就是說,雖然VCL.net的組件面板中無法看到.net組件,但是所有的.net組件的類,VCl.net都可以使用! 但是,Ado.net的dataset并不和VCl.net的Dataset組件兼容,所以無法直接調用數據感知組件。不過,看了李維的Inside Vcl知道原來有一個ADONETConnector組件,用了這個組件,可以使Ado.net支持使用數據感知組件了。
  首先,VCL.net組件的dll在BDS/2.0/Bin 下有一個Borland.Vcl.Design.AdoNet.dll,單擊Install .net component菜單,然后在窗體的.net vcl components頁中把這個dll Add一下,就可以看見ADONETConnector組件。然后加一個Dbgrid,db....,datasoure....,只要datasource.dataset:=ADONETConnector1。其它的和原來的delphi一樣,就可以了。同樣改方法對BDP也有效。

  我的具體代碼如下,

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs,
 System.Data.SqlClient,
 System.Data, System.ComponentModel, Borland.Vcl.StdCtrls,
 Borland.Vcl.ExtCtrls, Borland.Vcl.DBCtrls, Borland.Vcl.Grids,
 Borland.Vcl.DBGrids, Borland.Vcl.Db, Borland.Vcl.ADONETDb;

type
 TForm1 = class(TForm)
   Button1: TButton;
   ADONETConnector1: TADONETConnector;
   DataSource1: TDataSource;
   DBGrid1: TDBGrid;
   DBNavigator1: TDBNavigator;
   PRocedure Button1Click(Sender: TObject);
 private
   { Private declarations }
   Connection:SqlConnection;
   ProDataSet : DataSet;
   Adapter : SqlDataAdapter;

 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.nfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Connection := SqlConnection.Create('... ');
 Connection.Open;
 ProDataSet := DataSet.Create;
 Adapter := SqlDataAdapter.Create('select * from Product', Connection);
 Adapter.Fill(ProDataSet, 'Product');
 ADONETConnector1.DataTable:=ProDataSet.Tables[0];
end;

end.
   


上一篇:用Delphi制作DLL小結

下一篇:使用Delphi創建IIS虛擬目錄

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: SHOW| 望江县| 丰县| 平南县| 山丹县| 拉孜县| 万州区| 桂林市| 磐安县| 宜都市| 大余县| 云梦县| 鲁山县| 当涂县| 将乐县| 怀仁县| 漳州市| 寻乌县| 若羌县| 老河口市| 梨树县| 漳浦县| 依兰县| 琼海市| 太原市| 苍梧县| 色达县| 平武县| 青阳县| 饶阳县| 昭苏县| 揭东县| 绥滨县| 绥江县| 上林县| 彝良县| 临湘市| 津市市| 苍梧县| 文水县| 黄浦区|