Tablo Yedekleme

[kimimben]

Resim çok küçük olduğu için gözükmüyor.
Daha büyük olanı ekleyebilir yada bir yere upload edip paylaşabilirsiniz.

[ozcank]

tekrar attım

[kimimben]

CTRL+C ile showmessage da ki mesajı kopyalayın.

[ozcank]

Aynen şöyle yazıyor ;

Kod: Tümünü seç

IF OBJECT_ID('QuotedStr(AYVAZ2016)..TBLEMANETYDK') IS NOT NULL
BEGIN
select 'VAR' AS SORGU
END
ELSE
BEGIN
select 'YOK' AS SORGU
END 

[kimimben]

Artık oluşan SQL kontrol edilebildiğine göre, şimdi kodda ilgili değişiklileri yapıp, tekrar aynı yöntemle doğruluğunu kontrol edebilirsiniz.

[ozcank]

Nasıl bir değişiklik yapmam gerekiyor biliyorsanız yazar mısınız?

[ozcank]

Arkadaşlar sanırım bu şekilde olmayacak peki başka şekilde TABLO kontrol ettirip silebilir miyim? Yardım edebilir misiniz?

[ozcank]

Merhaba;
Şükür DATABASES buldum şimdi DATABASES deki TABLOYU da buluyorum ve TABLO var ise Silecek, yok ise yedekleyecek bunuda yapıyorum ama bi yerde hata veriyor ve iki TABLO var bir tanesini siliyor bu konuda bana yardımcı olur musunuz? Sorgum şu;

Kod: Tümünü seç

IF EYedek.FieldByname('SORGU').AsString='VAR' THEN
Begin
Application.MessageBox('Emanet Yedek Tablosu Mevcuttur !!!','Bilgilendirme Mesajı');
try
EYedek.SQL.text:='drop table TBLEMANETYDK';
EYedek.Open;
Application.MessageBox('Emanet Yedek Tablosu Silinmiştir !!!','Bilgilendirme Mesajı');
Finally;
End;

try
EYedek.SQL.text:='drop table TBLEMANETPARAMYDK';
Application.MessageBox('Emanet Yedek Parametre Tablosu Silinmiştir !!!','Bilgilendirme Mesajı');
EYedek.Open;
Finally;
End;
end

Else
Begin
Application.MessageBox('Yedek Tablolar Bulunamamıştır.  !!!','Bilgilendirme Mesajı');

Try
EYedek.SQL.text:='SELECT * INTO TBLEMANETYDK FROM TBLEMANET';
EYedek.Open;
Finally;
End;

Try
EYedek.SQL.text:='SELECT * INTO TBLEMANETPARAMYDK FROM TBLEMANETPARAM';
EYedek.Open;
Finally;
End;
End;
End;
End.

Verdiği hata da bu;

Kod: Tümünü seç

---------------------------
Debugger Exception Notification
---------------------------
Project EMNTMENU.exe raised exception class EDatabaseError with message 'EYedek: CommandText does not return a result set'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

[ertank]

Merhaba,

"drop table" şeklinde başlayan SQL cümleleri için SQLNesnesi.Open() değil SQLNesnesi.ExecSQL() kullanmanız gerekli.

[ozcank]

ertank kardeşim çok teşekkür ederim oldu