VPF::Создание базы данных в run-time с ZEOS?

Poseidon

Дата 18.5.2005, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 3
Всего: 133

Примечание от Vit: Zeos - популярный бесплатный пакет доступа к базам данных, подробности см. на sourceforge.net

Код

{ 
 This unit creates a database on a Interbase-Server at run-time. 
 The IBConsole is no longer needed. 
 You can execute an SQL script to create tables. 
 Try it out! 
} 


unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ZTransact, ZIbSqlTr, DB, ZQuery, ZIbSqlQuery, 
  ZConnect, ZIbSqlCon; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Memo1: TMemo; 
    Button2: TButton; 
    ZIbSqlQuery1: TZIbSqlQuery; 
    ZIbSqlTransact1: TZIbSqlTransact; 
    ZIbSqlDatabase1: TZIbSqlDatabase; 
    Button3: TButton; 
    procedure Button1Click(Sender: TObject);   // Caption/  
    procedure Button2Click(Sender: TObject);   // Caption/  
    procedure Button3Click(Sender: TObject);   // Caption/  
  private 
  public 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

// Creating the database 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>';// Path to Database 
  ZIbSqlDatabase1.Host := 'testserver'; 
  ZIbSqlDatabase1.Password := 'masterkey'; 
  ZIbSqlDatabase1.Login := 'SYSDBA'; 
  ZIbSqlDatabase1.CreateDatabase(''); 
end; 

// Execute the SQL-Script in the memo 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>'; // Path to Database 
  ZIbSqlDatabase1.Host := 'testserver'; 
  ZIbSqlDatabase1.Password := 'masterkey'; 
  ZIbSqlDatabase1.Login := 'SYSDBA'; 
  ZIbSqlQuery1.SQL.Clear; 
  ZIbSqlQuery1.SQL.AddStrings(memo1.Lines); 
  ZIbSqlQuery1.ExecSQL; 
end; 

// Deleted the database 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>'; // Path to Database 
  ZIbSqlDatabase1.Host := 'testserver'; 
  ZIbSqlDatabase1.Password := 'masterkey'; 
  ZIbSqlDatabase1.Login := 'SYSDBA'; 
  ZIbSqlDatabase1.DropDatabase; 
end; 

end.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »