• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

veri tabanı nesne salt okunur hatası

maliex

maliex

Katılım
22 Eylül 2019
Mesajlar
231
Excel Vers. ve Dili
professional plus 2016-türkçe
merhaba
ADO Microsoft® Excel® 2019 MSO 32 bit de çalışmıyor,Microsoft® Excel® 2013 MSO 64 bit de çalışıyor

dosya aynı referanslar aynı ....

"güncelleştirelemiyor veritabanı veya nesne salt okunur " hatası veriyor

not:late binding

yardım rica ederim
 
Çalışan kodlarınız paylaşırmısınız ve veri tabanı nesneniz Excel mi Access mi ya da nedir?
 
Excel hiç bir ado ile yazılmış kod çalışmıyor ama aynı kodlar 2013 de çalışıyor
 
Düzeltiyorum. Çalışmayan kodlarınız paylaşır mısınız?
 
Forumdaki late bindingle oluşturulmuş herhangi bir kodu düşüne bilirsiniz yoldayım o yüzden örnek dosya atamıcam
 
230372
C#: 
Set con = VBA.CreateObject("adodb.Connection")
    yol = ThisWorkbook.Path & "\" & "Kapalı.xlsx"
    
    
    ''''aşağıya gelince hata veriyor
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
 
Dosyanın özelliklerinden Salt Okunur olup olmadığını kontrol ediniz. Eğer herşey normalse bir de bağlantı satırını aşağıdaki gibi düzenleyip deneyiniz.

C++: 
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=yes;"""
 
@Korhan Ayhan beyin önerisiyle çözülmezse aşağıdaki şekilde OLEDB sürücüsü yerine Excel sürücüsünü kullanabilirsiniz.
C++: 
Set con = VBA.CreateObject("adodb.Connection")
yol = ThisWorkbook.Path & "\" & "Kapalı.xlsx"
Set con = CreateObject("ADODB.Connection")
Call con.Open("DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & yol)
 
C++: 
' Düzeltme..İlk satır sizin kodlardan kalmaydı'
yol = ThisWorkbook.Path & "\" & "Kapalı.xlsx"
Set con = CreateObject("ADODB.Connection")
Call con.Open("DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & yol)
 
Korhan bey ve Ömer faruk bey,

ikinizinde dediklerini yaptım ama olmadı


office 2013 de sorunsuz çalışıyor...diğer laptopda açıyorum office 2019 da(ki hiç bir ado çalışmasını çalıştırmıyor..bağlantı satırında hata veriyor)...aynı kod aynı klasör aynı yöntem olmuyor

not:1-zip ten çıkartıyorum sonra zipli dosyayı siliyorum yine olmadı

not:2-ömer bey sizin yöntemi deneyince aşağıda belirttiğim farklı bi uyarı verdi...korhan beyinkini deneyince daha önceki hatayı tekrarladı

not:3-salt okunur değil özellikle baktım sorun yok
230380
 

Ekli dosyalar

  • ADO.rar
    ADO.rar
    23.3 KB · Görüntüleme: 0
Son düzenleme:
ömer bey çok teşekkür ederim ancak ne yapmam gerektiğini anlayamadım

oldb 4.0 mış 12 ye yükseltince düzelmiş benimki zaten 12 (ki nasıl yükseltilir alçaltılır onuda bilemedim ayrı konu :-)
 
Son düzenleme:
one driver sebep olmuş olabilirmi ?
 
farklı excel sürümlerine sahip one driver lı laptoplarda denedim aynı hatayı verdi...sorunun kaynağı one driver :-)

sıra çözümü bulmakda sizce nasıl bir yol izlemeliyim one driverı kapatmak dışında
 
tmm dır dosya yolunu one driver lı olarak yazdığım zaman düzeldi ....ThisWorkbook.FullName / ThisWorkbook.Path one driver olunca tek başına yeterli olmuyor demekki
 
Tam olarak hatayı düzelten satırı yeni haliyle paylaşabilirseniz, forum kullanıcıları da çözümü direkt görebilirler.
Teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst