mysql çalışmıyorsa hata veriyorsa çözüm yolu?

[pelitt]

Selamlar mysql bazen başlamadığından program açılmıyor hata veriyor bunu bir kodla denetletip eğer mysql açık değilse dosya yolunu gösterip açtırabilirmiyim
örnek dosya yolu
C:\Program Files\DK\kayit\bin\winmysqladmin.exe
şimdiden cevap yazacak arkadaşlara teşekkür ederim

[conari]

try except bloguna al bağlantıyı hata alırsan shellexecute ile Sqli start edersin.

[Battosai]

MySQL servisini winmysqladmin.exe mi çalıştırıyor ? Bir servis uygulamasını windows da başlatmak ne yapılması gerekiyor araştır.

[conari]

MySQL servisini winmysqladmin.exe mi çalıştırıyor ? Bir servis uygulamasını windows da başlatmak ne yapılması gerekiyor araştır.

Vallahi ben MYSQL bilmiyorum sadece exeyi çalıştırması için yol gösterdim.

[pelitt]

MySQL servisini winmysqladmin.exe mi çalıştırıyor ? Bir servis uygulamasını windows da başlatmak ne yapılması gerekiyor araştır.

evet winmysqladmin.exe çalıştırıyor ben en azından bunla başlatıyom çalışmazsa

try except bloguna al bağlantıyı hata alırsan shellexecute ile Sqli start edersin.

dediğinizden bişey anlamadım zquery kullanarak bağlanıyorum bunun bir sakıncası olurmu

[pelitt]

tamam kitaptan baktım dediğiniz kodu anladım fakat benim form ilk açılışta unit5 ile açılıyor ondada msql bağlantısı yok dediğiniz kodu nereye yazmalıyım unit 1 emi 7 tane unit var

[Ertugrul]

tamam kitaptan baktım dediğiniz kodu anladım fakat benim form ilk açılışta unit5 ile açılıyor ondada msql bağlantısı yok dediğiniz kodu nereye yazmalıyım unit 1 emi 7 tane unit var

Bu kod isini gorur;

Kod: Tümünü seç

function UnitIsmi:string;
begin
  Result:='Unit'+IntToStr(Random(6)+1);
end;

~15% ihtimalle dogru uniti bulmus olacaksin.

[pelitt]

Kod: Tümünü seç

Bu kod isini gorur;

function UnitIsmi:string;
begin
Result:='Unit'+IntToStr(Random(6)+1);
end;

~15% ihtimalle dogru uniti bulmus olacaksin.[/quote]

selamlar cevap için teşekkür ettim bu fonksiyonu unit1 e mi yazacağım

[mkysoft]

sanırım zconnection'ın active özelliğini true yapmışsınız. Bu özelliği false yaparak, zconnection'ı manuel olarak zconnection.connect diyerek veri tabanına bağlayın. bu komutuda try except bloğu içinde kullanın. Aşağıda bir örnek bulunuyor:

Kod: Tümünü seç

 try
    zconnection.Connect;
  except
    on E:EZSQLThrowable do
    begin
      if pos('Access denied for user',E.Message) > 0 then
        raise Exception.Create('Kullanıcı adınız yada şifreniz yanlış!');
      if pos('Unknown MySQL server host',E.Message) > 0 then
        raise Exception.Create(ana_bilgisayar + ' isimli ana bilgisayara ulaşılamıyor!');
      if pos('Can''t connect to MySQL server on',E.Message) > 0 then
        raise Exception.Create(ana_bilgisayar + ' isimli ana bilgisayarda verilere ulaşılamıyor!');
    end;
  end;

[pelitt]

kod çalışmadan hemen hata veriyor
kodda sorun olduğundan değil neyse başka yolla çözmek istiyom anlatayım
bitane form yapayım küçük popup gibi bişey saatin üstünde dursun
ilk açılışta bu form açılsın açılırken baksın eğer o an winmysqladmin.exe çalışmıyorsa
WinExec('C:\Program Files\DK\kayit\bin\winmysqladmin.exe',SW_SHOWMINIMIZED);
koduyla çalıştırayım çalışırsa o formu yeşil grafik yapayım adıda bağlantı olsun
sonrasında belirlediğim süre sonunda
asıl form açılsın
yani anlıyacağınız bağımsız formlar olacak
hala açılmazsa bi mesaj veririm olayı kullanıcı çözer

yeterli benim için
selamlar yardımlar için teşekkürler

[pelitt]

Eğer böyle bir sorununuz varsa işte kod bu kodla gerekli programı sorgulayıp çalışmıyorsa gerekeni yaptırabiliyorsunuz bu arada winmysqladmin.exe küçük balık
büyük balık mysqld.exe görev yöneticisinde buldum bu çalışmazsa bağlanti mağlanti olmuyor onagöre küçük balığı çalıştırmak gerekiyor zaten bunu çalıştıranda winmysqladmin.exe
yine sözümde durdum ve kendim cevap yazdım önemli olan burada öğrenmek isteyenlere faydamızın olması denenmiş garantili kod selamlar

Kod: Tümünü seç

Unit unit1;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TlHelp32;  // TlHelp32 ünitesini eklemeyi unutmayın

Type
  TForm1 = Class(TForm)

    procedure FormCreate(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  Form1 : TForm1;

Implementation

{$R *.dfm}

Function Calisiyormu(DosyaAdi: String): Boolean;
Var
  DonguDevam: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
Begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  DonguDevam := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
While Integer(DonguDevam)<>0 Do
Begin
If ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=UpperCase(DosyaAdi)) Or (UpperCase(FProcessEntry32.szExeFile)=UpperCase(DosyaAdi))) Then Result := True;
      DonguDevam:=Process32Next(FSnapshotHandle, FProcessEntry32);
End;
  CloseHandle(FSnapshotHandle);
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
If Calisiyormu('mysqld.exe') Then
begin
ShowMessage('Bağlantınız Başarıyla kuruldu');
WinExec('C:\Program Files\DK\DK.exe',SW_SHOWNORMAL);
end
Else
WinExec('C:\Program Files\DK\kayit\bin\winmysqladmin.exe',SW_SHOWMINIMIZED);
WinExec('C:\Program Files\DK\DK.exe',SW_NORMAL);
end;

End.

[Battosai]

Yaptığın eksik olmasın diye kodu aşağıdaki gibi değiştir...Sabit C:\ veya D:\ gibi adresleme yapmamaya çalış hatta yapma...daha önce sana bahsedildi...verilen cevaplardan birşeyler öğren...

Kod: Tümünü seç

If not Calisiyormu('mysqld.exe') Then
begin
WinExec(PChar('net start MySQL') , SW_HIDE);
end;

MySQL server hizmetllerde nasıl adlandırılmış ise start dan sonra onu yaz...MySQL5,MySQL4...gibi, windows hizmetlerini biliyorsun değil mi ?

[pelitt]

Sağolun ama dediğiniz türlü çalışmadı

[vkamadan]

Mehabalar,
mysqld.exe nin Windows hizmet yöneticisine yüklenmiş olması gerekir, ve windows NT , 2000 , XP ve üzeri sistemlerde hizmet uygulamasının adı mysqld-nt.exe dir bunu başlattan çalıştıra örneğin "c:\MySQL\bin\mysqld-nt.exe --install MySQL " şeklinde yazarak hizmet olarak yükleyebilirisiniz, bahsettiğiniz mysqld.exe dosyası sizin winmysqladmin.exe tarafından bir nevi hizmet simülasyonu gibi çalıştırılıyor bu bağımlılıktan kurtulmak için mysqld-nt.exe yi bahsettiğim şekilde hizmet olarak yüklemenizi öneririm.

[csunguray]

Bence MySql in neden çalışmadığı konusuna yoğunlaşın. Sorunu daha kolay çözersiniz gibi. Windows'un Event Log unu kontrol edin. Konuyla ilgili mesajlar olabilir orada.

Son olarak eğer illa delphi den yapacağım derseniz Delphi'den bir service nasıl start edilir konusunu incelemeniz lazım.

Buradan inceleyebilirsiniz:
http://www.swissdelphicenter.ch/torry/s ... hp?id=1322