ADOX ile Programlama Kod Örnekleri

selim.t · 04-01-2012, 20:02

Çok güzel bir paylaşım.. Teşekkürler sayın modalı..

Trek6700 · 30-10-2012, 18:14

Mükemel bir konu

Trek6700 · 31-10-2012, 11:39

Visual Basic
Function SetSeed(strTable As String, strAutoNum As String, lngID As Long) As Boolean
    'Amaç:   ADOX kullanarak otomatik sayıyı sıfırlamak.
    Dim cat As New ADOX.Catalog
 
    Set cat.ActiveConnection = CurrentProject.Connection
    Debug.Print CurrentProject.Connection
    cat.Tables(strTable).Columns(strAutoNum).Properties("Seed") = lngID
    Set cat = Nothing
    SetSeed = True
End Function

Ben otomatik sayıyı sıfırlamak için bu kodu kullandım. Ana tablonun olduğu projede çalışıyor. Ama aynı tablo bağlı tablo ise çalışmıyor.
Yani;

Visual Basic
Set cat.ActiveConnection = CurrentProject.Connection

kısmına farklı bir komut göndermek lazım gibi geldi bana. Yada bu komutlar bağlı tablonun olduğu bir projede nasıl çalışır teşekkürler.

modalı · 31-10-2012, 18:48

Sayın Trek6700,

Yazdığınız satırda sorun yok.

Sorun Bağlı Tablo alanı genelde birincil anahtar alanı ile bağlandığından ve siz bu alandaki verileri değiştirmek istediğinizden veritabanı otomatik olarak engelliyor. Engellemesi de gerekir yoksa tüm veritabanı karman çorman olur.

İyi çalışmalar

Trek6700 · 01-11-2012, 18:07

Teşekkür ederim.

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL