level 8
ooooh_up
楼主
FireDAC简易教程
一、VCL下的FireDAC
1.创建数据库连接:
新建一个VCL Forms Application工程,放置一个TFDConnection控件,设置其ConnectionDefName属性,这里选择SQLite_Demo。当Connected属性设置为True时,弹出一个登陆对话框。
这个Demo是没有密码的,直接点OK进入。当连接成功,Connected属性会一直为True。
2.取数据表内容:
放置一个TFDQuery控件,这个控件主要用来设置SQL命令,以操控数据。Connection属性选择FDConnection1。点击SQL属性弹出SQL命令设置窗口,写下代码获取表Orders数据:
SELECT * FROM Orders
3.显示数据表内容:
放置一个 TDataSource控件,将DataSet属性设置为TFDQuery1,再放一个TDBGrid控件,DataSource属性设置为DataSource1,最后将TFDQuery1的Active属性设置为True。数据内容就显示到TDBGrid1中了。
实际运行中,还需要添加以下两个控件:
TFDPhysMSSQLDriverLink
TFDGUIxWaitCursor
再复习一下,用语句建立数据连接:
1.建立VCL工程,将C:\ProgramFiles\Embarcadero\Studio\16.0\Samples\Data\fddemo.sdb数据文件拷贝到D:\目录下。如果安装目录不是上面的,自己搜索下。
2.放置控件:TFDConnection、TFDQuery、TDataSource、TDBGrid、TFDPhysMSSQLDriverLink、
TFDGUIxWaitCursor
3.设置控件属性:
procedureTForm1.FormCreate(Sender: TObject);
var
path:string;
begin
path:= 'D:\fddemo.sdb';
FDConnection1.Params.Database:=path;
FDConnection1.DriverName:='SQLite';
FDConnection1.Connected:=True;
FDQuery1.Connection:=FDConnection1;
FDQuery1.SQL.Add('SELECT * FROM Orders');
DataSource1.DataSet:=FDQuery1;
DBGrid1.DataSource:=DataSource1;
FDQuery1.Active:=True;
end;
2016年01月20日 13点01分
1
一、VCL下的FireDAC
1.创建数据库连接:
新建一个VCL Forms Application工程,放置一个TFDConnection控件,设置其ConnectionDefName属性,这里选择SQLite_Demo。当Connected属性设置为True时,弹出一个登陆对话框。
这个Demo是没有密码的,直接点OK进入。当连接成功,Connected属性会一直为True。
2.取数据表内容:
放置一个TFDQuery控件,这个控件主要用来设置SQL命令,以操控数据。Connection属性选择FDConnection1。点击SQL属性弹出SQL命令设置窗口,写下代码获取表Orders数据:
SELECT * FROM Orders
3.显示数据表内容:
放置一个 TDataSource控件,将DataSet属性设置为TFDQuery1,再放一个TDBGrid控件,DataSource属性设置为DataSource1,最后将TFDQuery1的Active属性设置为True。数据内容就显示到TDBGrid1中了。
实际运行中,还需要添加以下两个控件:
TFDPhysMSSQLDriverLink
TFDGUIxWaitCursor
再复习一下,用语句建立数据连接:
1.建立VCL工程,将C:\ProgramFiles\Embarcadero\Studio\16.0\Samples\Data\fddemo.sdb数据文件拷贝到D:\目录下。如果安装目录不是上面的,自己搜索下。
2.放置控件:TFDConnection、TFDQuery、TDataSource、TDBGrid、TFDPhysMSSQLDriverLink、
TFDGUIxWaitCursor
3.设置控件属性:
procedureTForm1.FormCreate(Sender: TObject);
var
path:string;
begin
path:= 'D:\fddemo.sdb';
FDConnection1.Params.Database:=path;
FDConnection1.DriverName:='SQLite';
FDConnection1.Connected:=True;
FDQuery1.Connection:=FDConnection1;
FDQuery1.SQL.Add('SELECT * FROM Orders');
DataSource1.DataSet:=FDQuery1;
DBGrid1.DataSource:=DataSource1;
FDQuery1.Active:=True;
end;