veri tabanı nesne salt okunur hatası

[maliex]

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

 

[ÖmerFaruk]

Çalışan kodlarınız paylaşırmısınız ve veri tabanı nesneniz Excel mi Access mi ya da nedir?

 

[maliex]

Excel hiç bir ado ile yazılmış kod çalışmıyor ama aynı kodlar 2013 de çalışıyor

 

[ÖmerFaruk]

Düzeltiyorum. Çalışmayan kodlarınız paylaşır mısınız?

 

[maliex]

Forumdaki late bindingle oluşturulmuş herhangi bir kodu düşüne bilirsiniz yoldayım o yüzden örnek dosya atamıcam

 

[maliex]

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"""

 

[maliex]

 

[Korhan Ayhan]

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.

con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=yes;"""

 

[ÖmerFaruk]

@Korhan Ayhan beyin önerisiyle çözülmezse aşağıdaki şekilde OLEDB sürücüsü yerine Excel sürücüsünü kullanabilirsiniz.

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)

 

[ÖmerFaruk]

' 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)

 

[maliex]

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

 

[ÖmerFaruk]

Ekteki linkte benzer bir sorun için çözüm bulunmuş.

Thank you everyone! After reading through the connectionstrings.com I changed the driver to ACE.OLEDB.12.0 and also update the Excel version in Extended Properties to 12.0. It works now well for both Office 2010 and Office 2019

https://stackoverflow.com/questions/53765407/excel-2019-adodb-connection-from-vba-stopped-working

 

[maliex]

ö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

 

[ÖmerFaruk]

Ben de bu konuda çok iyi bilgiye sahip değilim.
Anladığım şey ise ACE driverini yükselterek denemendir.
Tabi atlanmaması gereken bir konu da Ofislerinizin her ikisi de 32 bit mi 64 bit mi? Bu da farkediyor.

Sayfaları okumakta zorlanıyorsanız sayfa üzerinde sağ tıklayıp Türkçeye çevirebilirsiniz.
https://social.msdn.microsoft.com/Forums/en-US/abf34eea-1029-429a-b88e-4671bffcee76/why-cant-32-and-64-bit-access-database-engine-aceoledb-dataproviders-coexist?forum=adodotnetdataproviders

 

[Korhan Ayhan]

Bu linkide inceleyiniz.

Office Tıkla-Çalıştır uygulamalarının dışında Access ODBC, OLEDB veya DAO arabirimleri kullanılamaz - Microsoft 365 Apps

Office C2R yüklemesi kullanıyorsanız, Veri Kaynakları ODBC Yöneticisi'nde Access tarafından sağlanan sürücüler için ODBC DSN oluşturamazsınız.

docs.microsoft.com

Size uygun olan odbc sürücüyü kurup öyle denwyiniz.

 

[maliex]

one driver sebep olmuş olabilirmi ?

 

[Korhan Ayhan]

Olabilir..

 

[maliex]

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

 

[maliex]

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

 

[ÖmerFaruk]

Tam olarak hatayı düzelten satırı yeni haliyle paylaşabilirseniz, forum kullanıcıları da çözümü direkt görebilirler.
Teşekkürler.