Программное создание и удаление базы данных Interbase, а так же выполнение SQL-скриптов

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

{

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!

}

{

Diese Unit erstellt eine Datenbank auf einem Interbase — Server zur Laufzeit des Programms.

Es wird nicht mehr die IBConsole gebraucht.

Dazu kann man im Memo noch ein SQL — Skript ablaufen lassen zum erstellen der Tabellen.

Probiert es einfach aus.

}

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/ Beschriftung : Create Database

procedure Button2Click(Sender: TObject); // Caption/ Beschriftung : SQL-Anweisung

procedure Button3Click(Sender: TObject); // Caption/ Beschriftung : Drop Database

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

// Creating the database

// Hier wird durch drucken des Buttons die Datenbank erstellt

//———————————————————————

procedure TForm1.Button1Click(Sender: TObject);

begin

ZIbSqlDatabase1.Database := ‘<>’;// Path to Database

ZIbSqlDatabase1.Host := ‘testserver’;

ZIbSqlDatabase1.Password := ‘masterkey’;

ZIbSqlDatabase1.Login := ‘SYSDBA’;

ZIbSqlDatabase1.CreateDatabase(»);

end;

// Execute the SQL-Script in the memo

// Hier wird durch drucken des Buttons das SQL-Skript im Memo ausgefuhrt

//———————————————————————-

procedure TForm1.Button2Click(Sender: TObject);

begin

ZIbSqlDatabase1.Database := ‘<>’; // 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

// Hier wird durch drucken des Buttons die Datenbank komplette geloscht

//———————————————————————

procedure TForm1.Button3Click(Sender: TObject);

begin

ZIbSqlDatabase1.Database := ‘<>’; // Path to Database

ZIbSqlDatabase1.Host := ‘testserver’;

ZIbSqlDatabase1.Password := ‘masterkey’;

ZIbSqlDatabase1.Login := ‘SYSDBA’;

ZIbSqlDatabase1.DropDatabase;

end;

end.

{/codecitation}

Добавить комментарий