unidac连接firebird的embed版 .

2011-12-05 22:59 33人阅读 评论(0) 收藏 举报

[delphi] view plain copy print ?

1. <span style="font-size:13px;">unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.    Dialogs, StdCtrls, Grids, DBGrids, DB, DBAccess, Uni, MemDS, UniProvider,  
8.    InterBaseUniProvider;  
9.   
10. type  
11.    TForm1 = class(TForm)  
12.      UniConnTest: TUniConnection;//用于数据库的连接   
13.      InterBaseUniProTest: TInterBaseUniProvider;//ib/FB的数据提供   
14.      UniQryTest: TUniQuery;  
15.      UniDataSrTest: TUniDataSource;  
16.      DBGrid1: TDBGrid;  
17.      Button1: TButton;  
18.      Button2: TButton;  
19.     procedure Button1Click(Sender: TObject);  
20.     procedure Button2Click(Sender: TObject);  
21.   private  
22.     { Private declarations }  
23.   public  
24.     { Public declarations }  
25.   end;  
26.   
27. var  
28.    Form1: TForm1;  
29.   
30. implementation  
31.   
32. {$R *.dfm}  
33.   
34. procedure TForm1.Button1Click(Sender: TObject);  
35. begin  
36.   with UniConnTest do  
37.   begin  
38.      ProviderName := 'interbase';//这里确定为interbase 但是可以支持firebird   
39.      Password := 'masterkey';//数据库密码   
40.      Username := 'sysdba';//数据库密码   
41.      Server := '';  
42.      Database := 'TD_HOUSE.FDB';//数据库文件的位置，这里在当前目录   
43.      SpecificOptions.Clear;  
44.      SpecificOptions.Add('InterBase.ClientLibrary=fbembed.dll');//设置embeddll驱动位置   
45.      SpecificOptions.Add('InterBase.CharLength=0');//设置为0让，unidac自动读取fb设置   
46.      SpecificOptions.Add('SQLDialet=3');//设置为3   
47.      SpecificOptions.Add('USEUnicode=true');//迟滞unicode 有人说有问题 我没有发现   
48.     try  
49.        Connect;  
50.        ShowMessage('OK');  
51.     except  
52.        ShowMessage('eer');  
53.     end;  
54.   end;  
55. end;  
56.   
57. procedure TForm1.Button2Click(Sender: TObject);  
58. begin  
59.    UniQryTest.Close;  
60.    UniQryTest.SQL.Text := 'select * from TB_SYS_LOG';  
61. // UniQryTest.FetchingAll;   
62.    UniQryTest.DisableControls;  
63.    UniQryTest.Open;  
64.    UniQryTest.EnableControls;  
65. end;  
66.   
67. end.  
68.   
69.   
70. </span>