Программное создание и удаление базы данных Interbase, а так же выполнение SQL-скриптовDelphi , Базы данных , InterbaseПрограммное создание и удаление базы данных Interbase, а так же выполнение SQL-скриптов
Оформил: DeeCo { 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 := '<<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 // Hier wird durch drucken des Buttons das SQL-Skript im Memo ausgefuhrt //---------------------------------------------------------------------- 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 // Hier wird durch drucken des Buttons die Datenbank komplette geloscht //--------------------------------------------------------------------- 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. Программное создание и удаление базы данных Interbase, а также выполнение SQL-скриптов с помощью простого графического интерфейса в Delphi-приложении. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |