ADODB ile dosya yükleme de veri kaybı

[cengiz123]

merhaba,
ADODB.Connection ile bir excel dosyasından veri yüklüyorum. ancak yüklediğim excel dosyasında bir hücrede 290karaketer var.
yaptığım incelemede 255 karakterini dosyadan çekmiş kalanına çekememiş.
ado'da böyle bir sınırlamamı var?
varsa eğer bunun limitini nasıl yükseltebiliriz?
teşekkürler

 

[Zeki Gürsoy]

Aktarımı nereye yaptığını bilmiyoruz. Bu bir MS Access dosyası ise aşağıdaki bağlantı nerede hata yaptığınızı gösterecektir.

https://support.office.com/en-us/article/the-memo-data-type-is-now-called-long-text-dffe5e34-953e-4451-a05e-fba5d9b564b5
.

 

[cengiz123]

Merhaba,veriyi bir Excel kitabından, kendi Excel çalışma sayfama alıyorum.

 

[Haluk]

Verilerin alınacağı Excel dosyasında, problemi yaşadığınız alanda ilk veri olarak örneğin 300 karakterlik bir metin girin, dosyayı kaydedip kapatın. Daha sonra ADO makrosunu çalıştırın....

.

 

[cengiz123]

Her seferinde ilk veriyi 300 mü girmemiz gerekiyor, yoksa farklı bir dosya dan veri çektiğimizde 255 karakter olarak tekrar sınırlama yapar mı?

 

[Haluk]

Veriler 255 karakterden fazla uzunluktaysa, en uzunundan biraz daha fazla uzunlukta bir "geçici" veriyi yerleştirmek gerekir.

Ben denemedim ama, bu yöntem sorunu çözebilir diye önerdim.... Yoksa, registery ayarlarıyla falan uğraşmak lazım, eğer alışık değilseniz o işler daha riskli.

.

 

[cengiz123]

Maalesef o ihtiyacımı karşılamıyor, peki adodb de 255 karakterden fazla veriyi çekebilmesi için kod yok mu? Yabancı sitelere de baktım bulamadım.

 

[cengiz123]

yardımcı olabilecek var mıdır?
teşekkürler

 

[Korhan Ayhan]

ADO kullanılması zorunlu değilse alternatif çözümler sunabiliriz.

 

[cengiz123]

Adodb dosyayı açmadan hızlı yükleme yaptığı için kullanıyorum. Altertanif çözümler varsa tabiki kullanmak isterim. Yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Alternatif çözüm için dosya örneklerini eklerseniz yardımcı olabiliriz.

 

[cengiz123]

merhaba, kodlarım aşağıdaki gibidir.

dosya = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx", Title:="Dosya Seç")

Dim Katalog As Object
Dim Tablo As Object

With Sheets("Sayfa5")
Set Baglanti = CreateObject("ADODB.Connection")
Baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=no"""
Set Rs = Baglanti.Execute("select * from [Sayfa1$]")
.Range("W" & 2)(1, 1).CopyFromRecordset Rs
End With
Set Baglanti = Nothing

 

[Korhan Ayhan]

Ben örnek dosyalarınızı talep etmiştim...

Paylaşım sitelerine yükleyip linki forumda paylaşabilirsiniz.

 

[cengiz123]

merhaba
dosyayı aşağıdaki linke yükledim.
hızlı olması açısından adodb kullanıyorum. kapalı dosyadan veri çektiği için.
çünkü veri sayfası değişken ve bazen çok büyük olabiliyor
https://dosya.co/nt2v9em2m4qz/Dosya.7z.html

şimdiden teşekkürler

 

[Haluk]

Excel4 makrosu kullanarak, veriler kapalı dosyadan alınacak şekilde bu mesaj ekinde bir alternatif hazırladım.

Dikkat edilmesi gereken hususlar;

1) Bilgisayarınızda C:\TestFolder şeklinde bir klasör oluşturun ve verilerin alınacağı Dosya.xlsx dosyasını bu klasöre yerleştirin.

Yani; veriler bilgisayarınızdaki C:\TestFolder\Dosya.xlsx dosyasının Sayfa1 isimli sayfasından alınacaktır.

2) Söz konusu C:\TestFolder\Dosya.xlsx dosyasında Sayfa1 isimli sayfada 1. satırda başlıklar olacak, altında veriler olacaktır. Sizin eklediğiniz örnek dosyadaki gibi en üstte boş satırlar olmayacak....

3) C:\TestFolder\Dosya.xlsx dosyası kapalı durumdayken, diğer dosyayı açın ve sayfanın üzerindeki butona tıklayın. Veriler, kapalı dosyadan bu dosyaya aktarılacaktır...


.

 

[Haluk]

......... Altertanif çözümler varsa tabiki kullanmak isterim. Yardımcı olursanız sevinirim

Merak ettim, yukarıdaki alternatif işinize yaradı mı?

.

 

[cengiz123]

Haluk bey merhaba
elinize sağlık,şimdi onu deniyordum.
denedim ama tam işime yaramadı. çünkü dosya yeri sabit olduğu için tam işimi görmeyecektir.
çünkü bu exceli başka kullanıcılarda kullanacak ve yüklenen dosya yeri farklı olacaktır.

 

[Haluk]

O zaman aşağıdaki alternatileri inceleyebilirsiniz...
.

 

[cengiz123]

Hocam ekli dosyaları göremiyorum

 

[Haluk]

Google Drive'dan indirmiş olduğunuzu düşünerek, linkleri sildim....

"Altın Üye" olursanız, sadece burası değil, forumdaki tüm mesajların ekindeki dosyaları indirebilir veya dosya ekleyebilirsiniz...

.