Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Zeos VeriTabanı işlemler
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Zeos VeriTabanı işlemler

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Zeos VeriTabanı işlemler
    Gönderim Zamanı: 11.Kasim.2008 Saat 16:25

ZEOS kullanarak yapılan kullanıcı tanımlama, kullanıcının hangi DB yi kullanacağını tanımlama ve SQL dosyasında hazır olan script in seçilen DB ye aktarılması.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ZConnection1.Connect;

  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('CREATE DATABASE bsbuzlu');
      ExecSQL;
    end;
  memo1.Lines.Add('Bağlantı Kuruldu. Veritabanı açıldı.');
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('USE mysql;');
      ExecSQL;
    end;
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO user (Host,User,Password)');
      SQL.Add('VALUES (''%'',''deneme'',PASSWORD(''123''))');
      ExecSQL;
    end;
  memo1.Lines.Add('Kullanıcı Eklendi');
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO db (Host,Db,User,Select_priv,Insert_priv,');
      SQL.Add('Update_priv,Delete_priv,Create_priv,Drop_priv,Lock_tables_priv)');
      SQL.Add('VALUES (''%'',''bsbuzlu'',''deneme'',''Y'',''Y'',''Y'',''Y'',''Y'',''Y'',''Y'')');
      ExecSQL;
    end;
  memo1.Lines.Add('Kullanıcının veritabanı belirlendi.');
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('FLUSH PRIVILEGES');
      ExecSQL;
    end;
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('USE bsbuzlu;');
      ExecSQL;
    end;
  ZSQLProcessor1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'createClient.sql');
  ZSQLProcessor1.Execute;
  memo1.Lines.Add('Veritabanına Tablolar Eklendi.');
end;

Not : Alıntıdır
İyi Çalışmalar..
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,156 Saniyede Yüklendi. [power by : WebWiz]