关于interbase?

[zhengxionglai]

1.以前的inerbase程序都用bde连接，请问各位有没有用过delphi6新增加的"interbase""interbase admin"两个控件组，具体怎么用，有没有什么书推荐看看，电子或书本都可以。
2.可不可以用ADO连接，我对ADO比较熟。
3.怎样发布程序，是不是安装interbase和程序，还要由客户注册数据库。

[ForYouForMe]

1，DELPHI提供标准的访问InterBase的数据访问控件吧。

2.可以用ADO访问啊

3.还没度过。

[stella53]

TIBDatabase与TIBTransaction联合起来完成数据库的连接。
一般来说，设置TIBDatabase.Dialact := 3;当然数据库文件也应该是3.
TIBTransaction双击然后选择第二项。

一般使用TIBQuery来访问数据，如果需要修改，必须使用TIBUpdateSQL，常规用法为。

IBTransaction1.StartTransaction;

IBQuery1.Edit; // or IBQuery1.Insert;
IBQuery1.FieldByName(...)........

IBQuery1.Post;

IBTransaction1.Commit; // or IBTransaction1.CommitRetaining;


最好不要使用ADO，慢，而且极可能不兼容，使用IBExpress这套非常好。

发布时，只需要有GDS32.DLL就可以了连接远端数据库

[stella53]

另，提醒，最好是一个TIBQuery使用一个TIBTransaction，这样事务分离，不容易出错——对于初学者

[Carfield]

InterBase Admin部分组件可以对数据库进行备份,恢复,数据库信息等操作,Delphi自带的Demo中有详细的例子Demo/DB/IBX/Admin

[Carfield]

InterBase Admin部分组件可以对数据库进行备份,恢复,数据库信息等操作,Delphi自带的Demo中有详细的例子Demo/DB/IBX/Admin

[iBear]

ib可以用专有的ibx连接，其实是很简单的

你要用ado，只能先安装一个ib的odbc驱动（没有的话，去borland那儿down一个ib 6.5版的，里面有odbc驱动），然后再用ado连接。可惜没有直接的ole-db驱动，效果会好一些

[erickleung]

Delphi 6 本身有 1). ibx (interbase express) 2). DB Express
都可以用来连上 interbase. 以前的BDE只可以用於以前的interbase 5.x
或以前的版本.

1). "Interbase", "ibadmin"都是ibx的控件. 我是用第三控件 = IBO
(http://www.ibobjects.com). 我极力推荐.
2). 用ADO连上interbase, 因为经过多层的界面, 会比用ODBC或BDE还要慢,
功能又少, 不建议用. 其实你只要直接使用interbase的gds32.dll就可以使用
interbase数据库, 所以Delphi便提供ibx或dbx来避开多层的odbc或bde.

3). 可以直接运行:
只要有 gds32.dll和用下面的代码:
procedure TDatamodule1.DataModule1Create(Sender: TObject);
Var
s : String;
i : Integer;
b : Boolean;
Buf : PChar;
begin
With TRegistry.Create Do Try
RootKey := HKEY_LOCAL_MACHINE;
If OpenKey('SOFTWARE\Borland\InterBase\CurrentVersion', True) Then
If Not ValueExists('RootDirectory') Then
WriteString('RootDirectory', ExtractFilePath(ParamStr(0)));
Finally
Free;
End;
i := 255;
GetMem(Buf, i);
With TStringList.Create Do Try
If Win32Platform = VER_PLATFORM_WIN32_NT Then Begin
GetEnvironmentVariable(PChar('SystemRoot'), Buf, i);
s := Buf + '\System32\drivers\etc\services';
End Else Begin
GetEnvironmentVariable(PChar('WinDir'), Buf, i);
s := Buf + '\services';
End;
LoadFromFile(s);
b := True;
For i := 0 To Count-1 Do
If Copy(Strings[i], 1, 6) = 'gds_db' Then begin
b := False;
Break;
end;
If b Then Begin
Add('gds_db 3050/tcp # Borland InterBase Server');
SaveToFile(s);
End;
Finally
Free;
FreeMem(Buf);
End;
With TIniFile.Create('.\myapp.ini') Do Try
DataBase.DBName := ReadString('Server', 'Name', 'DBHost:') +
ReadString('Server', 'path', '/database/path/') +
ReadString('Server', 'DataBase', 'DATABASE.GDB');
Finally
Free;
End;
end;