AccessTr.neT

(01/03/2024, 01:12)atoykan yazdı: [ -> ]Kodun başına

Kod:

Imports Microsoft.Office.Interop.Access.Dao

ekleyin ve ConvertLinkedTableToTable fonksiyonunun başlangıcını

Kod:

Private Function ConvertLinkedTableToTable(ByVal tableName As String)
    Dim dbEngine As New DBEngine() ' DAO DBEngine usage
    Dim db As Database = dbEngine.OpenDatabase(Application.StartupPath & "\DataBase.mdb", False, False, ";PWD=12345") ' DB’yi aç
    Const dbAttachSavePWD As Integer = 536870912
.....................

olarak düzenleyin

Değerli hocam çok teşekkür ederim.

Const dbAttachSavePWD = 131072 olarak düzelttim çalıştı.

Fakat Linkini kaldırmak istediğim (YEREL TABLOYA DÖNÜŞTÜRMEK İSTEDİĞİM) tablo için önceden zaten var uyarısı veriyor
db.TableDefs.Append(linkedTableDef) '

Aynı isimle tablo ekleyemezsiniz. Bakın tekrar söylüyorum çalışmanızı net olarak bilmiyorum ve takıldığınız hususlarda yol göstermek anlamında klavuz olacak kod paylaşıyorum. İnceleyin kodun mantığını anlamaya çalışın ve ona göre kendi yapınızı kurgulayın diye paylaşıyorum, birebir bu kodu kullanacaksınız anlamına gelmiyor bu. Çalışmanıza göre kodu revize edin, adlandırmaları yapın, referansları ayarlayın, değişkenleri belirleyin atayın. Şu anda siz takıldı ne yapayım moduna dönüp nasıl olsa cevap geliyor diyerek düşünmeye kapattınız kendinizi. Oysa hata mesajını okusanız ne yapacağınızı zaten göreceksiniz.

(01/03/2024, 11:27)atoykan yazdı: [ -> ]Aynı isimle tablo ekleyemezsiniz. Bakın tekrar söylüyorum çalışmanızı net olarak bilmiyorum ve takıldığınız hususlarda yol göstermek anlamında klavuz olacak kod paylaşıyorum. İnceleyin kodun mantığını anlamaya çalışın ve ona göre kendi yapınızı kurgulayın diye paylaşıyorum, birebir bu kodu kullanacaksınız anlamına gelmiyor bu. Çalışmanıza göre kodu revize edin, adlandırmaları yapın, referansları ayarlayın, değişkenleri belirleyin atayın. Şu anda siz takıldı ne yapayım moduna dönüp nasıl olsa cevap geliyor diyerek düşünmeye kapattınız kendinizi. Oysa hata mesajını okusanız ne yapacağınızı zaten göreceksiniz.

Evet her şey için teşekkür ediyorum. Allah razı olsun.