Soru Veritabanı İptali ve Yeni Sorgu Hakkında

[RBozkurt]

Merhabalar,

Ekteki dosya içerisindeki mah.mdb verisini C:\x\ klasörüne kopyalayıp, excel dosyasını açınız.
ÇALIŞTIR işlevi yapınca listedeki satırı veritabanı ile eşleştirerek veritabanında bulunan ID numaralarını ÇIKTI sayfasına çekmektedir.

Bu makroyu veritabanı iptal edilerek; kitap içerisinde bulunan mah sayfasından yaptırılabilir mi? Veritabanı dosyasını iptal edip tek excel dosyası ile devam etmek istiyorum.
Teşekkür ederim.

 

[Haluk]

Genel programcılık açısından; işin doğrusu şu anda olduğu gibi veri tabanı ve kodların ayrı ayrı yerlerde olmaları.

Kodların olduğu dosyada bir problem olur da dosya bozulursa, veri tabanına bir daha ulaşamayabilirsiniz.....

.

 

[RBozkurt]

Veritabanı pasif durumda. İçerisine veri ekleme işlevi bulunmuyor. Sadece okuma yapmak için var. Bu sebepten aynı veriyi excel sayfasına kopyaladım.
Dosyayı iş icabı başkalarına göndermek, klasör açtırma kopyalama vb. işlemleri tarif etmek gerekiyor. En azından tek dosyaya düşürülebilirse daha kolay kullanımı olur.

 

[Haluk]

Çok incelemedim ama, o zaman aşağıdaki satırları orjinalleriyle değiştirip deneyebilirsiniz....

    AccessFile = ThisWorkbook.FullName
   
    strTable = "mah"

    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & AccessFile & ";Extended Properties='Excel 12.0 Xml;HDR=Yes';"

       
    SQL = "SELECT ILCEKOD, MAHALLEKOD FROM [" & strTable & "$] WHERE IL='" & aa & "' AND ILCE='" & bb & "' AND MAHALLE='" & cc & "'" & ""

.

 

[RBozkurt]

Çok incelemedim ama, o zaman aşağıdaki satırları orjinalleriyle değiştirip deneyebilirsiniz....

    AccessFile = ThisWorkbook.FullName
  
    strTable = "mah"

    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & AccessFile & ";Extended Properties='Excel 12.0 Xml;HDR=Yes';"

      
    SQL = "SELECT ILCEKOD, MAHALLEKOD FROM [" & strTable & "$] WHERE IL='" & aa & "' AND ILCE='" & bb & "' AND MAHALLE='" & cc & "'" & ""

.

Teşekkür ederim sayın @Haluk ustam problem çözülmüştür.