Veritabanını Yedekleme Hakkında

[capukoglu]

Merhaba Arkadaşlar,
Ben günlerdir internette geziyorum. Bu site içerisindeki örneklere de baktım. Hepsini denedim. Ama hazırlamış olduğum OKUL REHBERLİK PROGRAMINDAKİ verileri programda bir komut düğmesine tıklayıpta kullanıcı tarafından seçilecek bir dizine (BROWSE-Gözat ile) kopyalayarak yedekleyecek örnek bir access programına rastlayamadım. Çok ama çok aradım. Burada hazırlanmış olan bir örneği biraz değiştirdim ama bu programcıların işini görecek tarzda değil.

Kullanıcı Program içinden YEDEKLE düğmesine basınca bir pencere açılacak (GÖZAT PENCERESİ) buradan nereye kopyalamak istediğini seçecek BAŞLA düğmesine tıklayacak ve bir kopya yedek oluşturulacak.

Elinde bu şekilde örnek olan arkadaşım varsa paylaşırsa mutlu olurum. Şimdiden teşekkürler. Ben düzenlediğim ama işime yaramayan örneği EKLİYORUM.

NOT: OKUL REHBERLİK PROGRAMINI hazırlarken onlarca program inceledim bu konuda. Bitince buradan paylaşacağım. Kısıtlama olmaksızın. Her şeyiyle tam b olarak çalışan bir program olacak inşallah. Az kaldı. YAKINDA...

 

[Ersen]

Eklemiş olduğun örnek bende açılmadı. Benim bir programımda programı kapat düğmesine yazdığım Polonya kaynaklı bir siteden aldığım aşağıdaki yordam işini görür sanıyorum. İstediklerini tam olarak karşıladığını düşünüyorum.

On Error Resume Next
Dim CurDB As String, KopiaDB As String, LenDB As Long, Plik As String, NrPliku As Long
DoCmd.Hourglass -1
CurDB = CurrentDb.Name
Err = 0
Plik = Space(FileLen(CurDB))
NrPliku = FreeFile
Open CurDB For Binary Access Read Shared As #NrPliku
Get #NrPliku, 1, Plik
Close #NrPliku
If Err = 52 Then
MsgBox "Kopyalanamadı. " & CurDB & "Kopyalama işlemi başarısız.", 48, "Kopyalanıyor."
ElseIf Err Then
MsgBox Err.Description
Else
KopiaDB = InputBox("Veritabanı yedeklenecek, dizin aşağıdaki gibi:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Dosyanın oluşturulacağı yol:.", "Değiştirmeden onaylayınız.", Left(CurDB, Len(CurDB) - Len(Dir(CurDB))) & "yedekALIM.mdb")
If KopiaDB & "" <> "" Then
Kill KopiaDB
Err = 0
NrPliku = FreeFile
Open KopiaDB For Binary Access Write Shared As #NrPliku
Put #NrPliku, 1, Plik
Close #NrPliku
If Err = 0 Then
MsgBox "Yedekleme Başarılı."
Else
MsgBox Err.Description
End If
End If
End If
DoCmd.Hourglass 0
DoCmd.Quit

 

[capukoglu]

Veritabanı Yedekleme

Sayın Ersen,
İşimi görecek bir program. Kullanmayı düşünüyorum. Ama kopyalanacağı yeri kullanıcıya seçtirememek programcılık adına pek hoş olmuyoo. Ama olsun.

Benim eklemiş olduğum program Access 2000 ve üzerinde çalışması lazım. Ben kullanıyorum.

 

[Ersen]

Sayın Ersen,
İşimi görecek bir program. Kullanmayı düşünüyorum. Ama kopyalanacağı yeri kullanıcıya seçtirememek programcılık adına pek hoş olmuyoo. Ama olsun.

Benim eklemiş olduğum program Access 2000 ve üzerinde çalışması lazım. Ben kullanıyorum.

Kullanıcı seçim yapamayacak burası doğru, ama kaydetmek istediği dizini klavyeden girebilecek, sanıyorum bu da aynı işi görebilir. Hem veritabanı hangi dizindeyse onun yanına yeni bir mdb dosya olarak kopyalıyor. Tabiiki şimdilik bildiğimiz bu kadar. Daha iyisini yapabilir ya da bulabilirsek forumda paylaşırız.

 

[karaayhan]

çözüm ekte ama MDE...

slm arkadaşlar istediğiniz çözüm ekte ancak mde olarak var elimde, sırası gelmişken bir arkadaş mde formatını mdb formatına çevirdiğini iddia etti forumda ama arkası gelmedi konuyu okursa bu konudaki katkılarını bekliyoruz
dört gözle (hiç sanmıyorum ama neyse)




kolay gelsin...

 

[capukoglu]

MDE dosyasını MDB yapma Hakkında

Ben kendi yaptığım MDE dosyasının orjinalini Flash diskimden bir arkadaşım formatlayıp silmiş. Çok önemliydi benim içim. Nette aradım ve "MDE Unlocker" isminde bir program var. Ücretli bir yazılım. Denedim işe yaradı. Ama ne kadar onu bilemiyorum. İlk dendiğimde komut düğmelerinin estetiğini bozdu. Yani yuvarlak olan köşeleri tam düz oldu. Eski tip. Onun dışında iyiydi.

 

[capukoglu]

Sayın karaayhan,
eklemiş olduğunuz dosya hata verip çalışmıyor. Ben MDE UNLOCKER ile dönüştürmek istedim ama olumsuz. Sanırım normalde bile açamadığımdan olsa gerek. Düğmeler bile tepkisiz...

 

[Ersen]

Sayın Karaayhan sanıyorum beni kastediyorsunuz. Evet çopukoğlu'nun da dediği gibi MDE Unlocker programı bu işi görüyor.

 

[karaayhan]

say&#305;n capuko&#287;lu sizin pc 'de access 2002 y&#252;kl&#252; olmal&#305; belki bundan sorun &#231;&#305;k&#305;yordur.

say&#305;n Ersen kast&#305;m siz de&#287;ilsiniz san&#305;r&#305;m kod ad&#305; yasakx miydi ne tam bilemiyorum ama o arkada&#351; uzant&#305;s&#305;n&#305; de&#287;i&#351;tirdim oldu falan dedi yani mdb uzant&#305;s&#305;n&#305; de&#287;i&#351;tirince mde olmu&#351; bizde payla&#351;&#305;ma davet ettik arkada&#351;&#305;m&#305;z&#305; burdan bir kez daha

mde unlocker formlar&#305; ve raporlar&#305; de&#287;i&#351;tiriyor ancak kodlar yine yok ortada bunlar&#305; yapabilen programlarda geli&#351;tirilmi&#351; ancak yeni olduklar&#305; i&#231;in pahal&#305;
her neyse sorun ve soru ortada yard&#305;mc&#305; olacak arkada&#351;lara bir kez daha sesleniyorum


MDE yi MDB yapmak istiyoruz....

 

[attila52]

say&#305;n &#231;apuko&#287;lu var &#231;&#252;nk&#252; bizzat kendi icad&#305;m olan hatta kullan&#305;yorum unutmamak i&#231;in ise kapat komutu olayyordam&#305;na ili&#351;tirdim hatta bu form paht lar&#305; belirlemenize de yar&#305;yor ayr&#305;ca xls,doc,jpg vs vs ne istersen yedekleye biliyorsun

 

[attila52]

zaten birde &#351;u var access 2003 alt&#305; s&#252;r&#252;mlerde laz&#305;m yedekleme access 2003 te gerekli de&#287;il &#231;&#252;nk&#252; kendi men&#252;s&#252;nde var ok

Giri&#351; &#199;&#305;k&#305;&#351; Uygulama &#246;rne&#287;inde