知识大全 Delphi8里在VCL.NET使用ADO.NET

Posted 2022-07-22 知

篇首语：须知少年凌云志，曾许人间第一流。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi8里在VCL.NET使用ADO.NET相关的知识，希望对你有一定的参考价值。

Delphi8里在VCL.NET使用ADO.NET 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

在中有两点蛮遗憾的:　　不能使用ADO(dbGo) 不过据李维说本月的delphi 将会有这个组件　　不能使用和BDP 这将是我这片文章的主题　　　　在Borland的delphi交流区内曾经看到Danny说过在中可以调用Winform组件同样Winform也可以调用组件　　　　为了验证第一句话我试了下在中是可以使用 Net的组件的如可以直接uses System Data SqlClient 并直接使用 SqlConnection类也就是说虽然的组件面板中无法看组件但是所有组件的类都可以使用！但是的dataset并不和的Dataset组件兼容所以无法直接调用数据感知组件不过看了李维的Inside Vcl知道原来有一个ADONETConnector组件用了这个组件可以使支持使用数据感知组件了　　　　首先组件的dll在BDS\\ \\Bin 下有一个Borland Vcl Design AdoNet dll 单击 ponent菜单然后在窗体 vcl ponents页中把这个dll Add一下就可以看见ADONETConnector组件然后加一个Dbgrid db datasoure 只要datasource dataset:=ADONETConnector 其它的和原来的delphi一样就可以了我的具体代码如下　　　　unit Unit ;　　　　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　　　TForm = class(TForm)　　　　Button : TButton;　　　　ADONETConnector : TADONETConnector;　　　　DataSource : TDataSource;　　　　DBGrid : TDBGrid;　　　　DBNavigator : TDBNavigator;　　　　procedure Button Click(Sender: TObject);　　　private　　　　 Private declarations 　　　　Connection:SqlConnection;　　　　ProDataSet : DataSet;　　　　Adapter : SqlDataAdapter;　　　　　public　　　　 Public declarations 　　　end;　　　　var　　　Form : TForm ;　　　　implementation　　　　$R * nfm　　　　procedure TForm Button Click(Sender: TObject);　　begin　　　Connection := SqlConnection Create(　　　 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= );　　　Connection Open;　　　ProDataSet := DataSet Create;　　　Adapter := SqlDataAdapter Create( select * from TProduct Connection);　　　Adapter Fill(ProDataSet Product );　　　ADONETConnector DataTable:=ProDataSet Tables[ ];　　end;　　　　end cha138/Article/program/Delphi/201311/8392