Ado ile sil

[steppe]

Merhaba Arkadaşlar,
Ekte gönderdiğim dosyada aynı klasör içinde excel ile access veritabanındaki tabloyu otomatik sayıyı resetleyerek silinebiliyor. Access dosyası farklı bir klasör içinde olursa aynı şekilde tabloyu nasıl silebilirim?
Yardımlarınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

ThisWorkbook.Path

yerine veri tabanı nerede ise onun yolunu yazın.

 

[steppe]

Necdet Hocam,
İlgin için teşekkür ederim.Onu daha önce denedim,olmamıştı.

 

[askm]

Aynı klasör içerisinde deneme klasöründeki dosyadan veri silecek şekilde kod aşağıdadır.

Function DeleteAllAndResetAutoNum(yol As String, dosya, strTable As String) As Boolean
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column
Dim bb As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
yol = ThisWorkbook.Path & "\deneme\"
dosya = "Ado.mdb"
'conn.Open "PROVIDER=Microsoft.SQLSERVER.CE.OLEDB.3.5;" _
'& "Data Source=" & ThisWorkbook.Path & "\xyz.sdf;SSCE:Database Password='123456'"
conn.Open "PROVIDER=Microsoft.ace.oledb.12.0;" _
& "Data Source=" & yol & dosya
bb = "DELETE FROM [" & strTable & "];"
conn.Execute bb
cat.ActiveConnection = conn
Set tbl = cat.Tables(strTable)
For Each col In tbl.Columns
    If col.Properties("Autoincrement") Then
        col.Properties("Seed") = 1
        DeleteAllAndResetAutoNum = True
    End If
Next
End Function

Private Sub CommandButton1_Click()
Dim sil
sil = DeleteAllAndResetAutoNum(ThisWorkbook.Path, "\Ado.mdb", "ado_orn")
MsgBox "tablo silindi ve otonumara resetlendi", vbOKOnly + vbInformation, "OTONO RESSET"
End Sub

 

[steppe]

askm Hocam,
Çok teşekkür ederim.Deneme klasörü Aynı klasör içinde ise gayet güzel çalışıyor.Yalnız yanlış söylemişim deneme klasörü aynı klasörde değil dışarıda ise ne yapabiliriz?

 

[askm]

yol = ThisWorkbook.Path & "\deneme\" satırına klasörün adres çubuğundaki adresini iki tırnak içerisinde yazın.
yol = "D:\deneme\" şeklinde.

 

[steppe]

Yardımınız için çok teşekkür ederim.

 

[askm]

Rica ederim. Kolay gelsin.