zeos를 이용해서 Firebird data생성및 사용자계정 등록을 하려고 합니다...
아래의 소스대로 실행하면 Firebird서버로 사용가능한지.....
그리고 database, HostName,Port, Protocol, user, password, connect 아래와같이 에러가납니다
Zeos컴포넌트가 없어서그러는지....고수님들 어떤 컴포넌트를 써야되는지...파일을 알려주시면 감사합니다.
ExtractFilePath(Application.ExeName)..는 괜찮을까..???
[Error] UtMd01r.pas(32): Undeclared identifier: 'Database'
[Error] UtMd01r.pas(32): Undeclared identifier: 'HostName'
unit UtMd01r;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Zconnection, ZAbstractRODataset, ZAbstractDataset, ZDataset,
DB;
type
TFrmMd01r = class(TForm)
btn_Data: TBitBtn;
procedure btn_DataClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmMd01r: TFrmMd01r;
implementation
{$R *.DFM}
procedure TFrmMd01r.btn_DataClick(Sender: TObject);
begin
// 연결...
try
// 요건 로컬용 연결방법...
ZConnection.Database := ExtractFilePath(Application.ExeName) + '\Firebird\data1.fdb';
// 요건 네트웍용 연결방법...
ZConnection.HostName := 'IP주소';
ZConnection.Port := 3306;
ZConnection.Database := '경로및 aliases name';
ZConnection.Protocol := 'firebird_2.0';
ZConnection.User := 'user';
ZConnection.Password := 'maserkey';
ZConnection.Connect;
except
ShowMessage( '데이터베이스 접속중 오류가 발생 했습니다..!!');
end;
end;
end.
|