2011-12-05 22:59
33人閱讀收藏
舉報 [delphi]view plain
copy
print?
unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, grids, dbgrids, db, dbaccess, uni, memds, uniprovider,
interbaseuniprovider;
type
tform1 = class(tform)
uniconntest: tuniconnection;//用於資料庫的連線
interbaseuniprotest: tinterbaseuniprovider;//ib/fb的資料提供
uniqrytest: tuniquery;
unidatasrtest: tunidatasource;
dbgrid1: tdbgrid;
button1: tbutton;
button2: tbutton;
procedure button1click(sender: tobject);
procedure button2click(sender: tobject);
private
public
end;
varform1: tform1;
implementation
procedure tform1.button1click(sender: tobject);
begin
with uniconntest do
begin
providername := 'interbase';//這裡確定為interbase 但是可以支援firebird
password := 'masterkey';//資料庫密碼
username := 'sysdba';//資料庫密碼
server := '';
database := 'td_house.fdb';//資料庫檔案的位置,這裡在當前目錄
specificoptions.clear;
specificoptions.add('interbase.clientlibrary=fbembed.dll');//設定embeddll驅動位置
specificoptions.add('interbase.charlength=0');//設定為0讓,unidac自動讀取fb設定
specificoptions.add('sqldialet=3');//設定為3
specificoptions.add('useunicode=true');//遲滯unicode 有人說有問題 我沒有發現
tryconnect;
showmessage('ok');
except
showmessage('eer');
end;
end;
end;
procedure tform1.button2click(sender: tobject);
begin
uniqrytest.close;
uniqrytest.sql.text := 'select * from tb_sys_log';
// uniqrytest.fetchingall;
uniqrytest.disablecontrols;
uniqrytest.open;
uniqrytest.enablecontrols;
end;
end.
unidac連線FireBird資料庫
with condb do tuniconnection begin providername interbase 這裡確定為interbase 但是可以支援firebird password masterkey 資料庫密碼 username sysdba 資料庫密碼 server database...
unidac連線FireBird資料庫
dbconn tuniconnection with dbconn do begin if not connected then begin providername interbase 這裡確定為interbase 但是可以支援firebird username sysdba 資料庫密碼 pass...
關於UNIDAC連線SQLITE3的心得筆記
關於查詢某個sqlite3db的所有表單的語句 uniquery1.sql.add select from sqlite master 關於unidac提交資料 在提交資料之前,必須先允許edit,否則提交的時候會失敗。uniquery1.edit 此處的fieldlist i 是指資料所在行的第i...