Çözüldü Mdb dosyasından toplu olarak veri silmek

[k0081]

Merhaba arkadaşlar;

Command buton ile veritabanındaki tüm alanlarda bulunan verileri nasıl silebilirim ? topluca yani...

yardımcı arkadaşa şimdiden Teşekkürler

 

[mancubus]

mdb dosyanın yedeğini alarak dener misiniz?

Sub xlTR_179140()

    With CreateObject("Access.Application")
        .OpenCurrentDatabase ("C:\DatabaseAdi.mdb")
        .DoCmd.RunSQL "DELETE * FROM [TabloAdi]"
        .Quit
    End With

End Sub

 

[k0081]

mancubus

Denedim.. Fakat silmedi.

 

[mancubus]

C:\DatabaseAdi.mdb kısmını gerçek dosya yolu ve adı ile, TabloAdi kısmını da gerçek tablo adı ile değiştiriyoruz değil mi?

bir de bunu deneyin.

(Excel versiyonunu 2007 ve üstü olarak gördüm profilde )

Sub xlTR_179140()

    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DatabaseAdi.mdb"
        .Execute "DELETE * FROM [TabloAdi]"
        .Close
    End With

End Sub

 

[mancubus]

şimdi iki yöntemi de test etme fırsatı buldum.
ikisi de sorunsuz çalıştı.
bilginize.

 

[halit3]

Merhaba Bende denedim kodu çalışıyor.

 

[k0081]

mancubus

Biraz geç dönüş yaptım, kusura bakmayın arkadaşlar...;


Hocam çok Teşekkür ediyorum, Tamamdır... Elinize sağlık. ( #4 nolu kod. )



Kodda bi değişiklik yapabilirmiyiz ; TabloAdi kısmında sadece bir tablo adı giriyorum. Bunu Veritabanında bulunan Tüm Tabloları kapsayacak şekilde nasıl değiştiririz ?

 

[mancubus]

eğer 4 no.lu mesajdaki kodu tercih ettiyseniz.
once access'teki tablo isimlerini listeleyin.
aşağıdaki kodda Tablo1, Tablo2 vs yerine yazın

Sub xlTR_179140()

    Dim accTablolar
    Dim i As Long
    
    accTablolar = Array("Tablo1", "Tablo2", "Tablo3", "Tablo4")

    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DatabaseAdi.mdb"
        For i = LBound(accTablolar) To UBound(accTablolar)
           .Execute "DELETE * FROM [" & accTablolar(i) & "]"
        Next i
        .Close
    End With

End Sub

 

[k0081]

mancubus

Hocam çok Teşekkür ederim., Tamamdır... Elinize Sağlık. Güzel oldu.

 

[mancubus]

rica ederim. kolay gelsin.

 

[k0081]

mancubus


Hocam merhaba, Bu göndermiş olduğunuz kodda; veritabanındaki Tüm bilgileri nasıl şifreleyebiliriz ??

Veryi şifreleyen ve çözen bir fonksiyonum var. module1 içinde. adı : kodla
Çözmek içinde yine aynı module1 içinde çöz fonksiyonu..

Sub xlTR_179140()

    Dim accTablolar
    Dim i As Long
    
    accTablolar = Array("Tablo1", "Tablo2", "Tablo3", "Tablo4")

    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DatabaseAdi.mdb"
        For i = LBound(accTablolar) To UBound(accTablolar)
           .Execute "DELETE * FROM [" & accTablolar(i) & "]"  
        Next i
        .Close
    End With

End Sub

hangi değişiklikleri yapmalıyız ?

Teşekkür ederim.

 

[mancubus]

o iki fonksiyonu görmeden bir şey diyemem.
şifre korumalı bir access veri tabanında aşağıdaki gibi sorgu çalıştırmak mümkün olmalı.
test edersiniz.

Sub xlTR_179140()

    Dim accTablolar
    Dim i As Long
    
    accTablolar = Array("Tablo1", "Tablo2", "Tablo3", "Tablo4")

    With CreateObject("ADODB.Connection")
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "C:\DatabaseAdi.mdb"
        .Properties("Jet OLEDB:Database Password") = "Şifre"
        .Open
        For i = LBound(accTablolar) To UBound(accTablolar)
           .Execute "DELETE * FROM [" & accTablolar(i) & "]" 
        Next i
        .Close
    End With

End Sub

 

[k0081]

mancubus

Hocam veritabanını şifre ile korumak, bir yöntem olabilir. Ama şifre bulunabilir ve dosya açılabilir.

yapmak istediğim dosya açılsa bile, kodlu olduğu için veriler anlaşılmaz bir şekilde görünmesi...

daha önce kayıt esnasında bunu kullanmıştım. Şimdi yine gerekli oldu. ama veritabanıda artmış durumda. dolayısı ile bunu otomatik bi şekilde güncellemeliyim(kodla-Çöz).

Function kodla(kelime As String)
For i = 1 To Len(kelime)
g = Mid(kelime, i, 1)
a = Asc(g)
b = a + 10
If b > 255 Then b = b - 255
Mid(kelime, i, 1) = Chr(b)
Next i
kodla = kelime
End Function

 

[mancubus]

şimdi benim gönderdiğim kod ile access veri tabanında bulunan bütün tablolardaki veriler silindi.
tablolar boş artık.

siz bu fonksiyonu nerede ve nasıl kullandığınızı belki bir örnek ile gönderirseniz yorum yapma imkanım olur.


Sent from my iPhone using Tapatalk

 

[k0081]

Hocam şu şekilde;

Silme olayı tamamdır.. ayrıca bi daha konu açmamak için ve de devam niteliğinde bi soru olduğu için burdan sordum...


Mdb dosyasına veri kaydederken, bunu şifreyip kaydediyorum.. programı açtığımda çöz fonksiyonu çalışıp, mdb dosyasındaki veriyi çözerek , listbox veriyor... böyle çalışıyor.

* bunu programı tasarlarken düşünmemiştim.., o yüzden de kayıt kodlarına ( kodla ) fonksiyonunu dahil etmedim.. Fakat şimdi dahil edip, veriyi şifrelemek istiyorum.

Hatta şu şekilde; program kapanırken , şifreleyecek.. (kodla) .. açılırkende çözecek...

 

[mancubus]

bence ihtiyaç farklı olduğu için ayrı bir konu açmak lazım. access forumunda tabii.

şu belki yardımcı olur.
https://support.office.com/tr-tr/article/başlangıç-olaylarını-makro-ile-otomatikleştirme-b08d4f22-b517-4ccf-bd14-8670416628b0

 

[k0081]

Tamamdır .. öyle yapayım hocam. Biraz karıştı gibi zaten .. teşekkür ediyorum.