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..
|