Skip to main content

AccessTr.neT


excel De [ınvalıd_data] Hatası

excel De [ınvalıd_data] Hatası

Çözüldü #1
Selamun Aleykum
.db uzantılı bir veritabanından excel'e bir veri yapıştırdığımda bazı kutucuklara veri yapışmıyor ve [INVALID_DATA] yazıyor. Bu sıkıntıyı nasıl çözebilirim.
Teşekkürler...
https://yadi.sk/d/_JouP37v3YdApL


https://yadi.sk/d/06DF7lgxICEJgg
Son Düzenleme: 01/04/2021, 22:06, Düzenleyen: uiakouwr.
Cevapla
#2
eklediğiniz dosya VB.Net dersleri
kendi dosynızı ekler misiniz?
Cevapla
#3
(01/04/2021, 23:08)berduş yazdı: eklediğiniz dosya VB.Net dersleri
kendi dosynızı ekler misiniz?
Teşekkür ederim.

Veritabanını göndereyim. Buradan ilk 20 kaydı Excel e yapıştırmayı deneyebilirsiniz mesela.
.rar prod.rar (Dosya Boyutu: 3,9 MB | İndirme Sayısı: 4)
https://yadi.sk/d/_JouP37v3YdApL


https://yadi.sk/d/06DF7lgxICEJgg
Son Düzenleme: 02/04/2021, 08:44, Düzenleyen: uiakouwr.
Cevapla
#4
siz db dosyanızı nasıl açıyorsunuz?
Cevapla
#5
emin değilim ama anladığım kadarıyla: eğer metinde yeni paragrafa başlama işareti varsa Excel onu yeni satır olarak ekleyemediğinden hata veriyor.
kayıttaki bu değerleri yeni paragraf ekleme işaretlerini kaldırınca sorunsuz ekliyor
Cevapla
#6
Sqlite için alttaki kod çalışıyor örnek olarak.

Private Sub CommandButton1_Click()

    Dim con As Object, rs As Object
   
    Set con = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
   
    con.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ThisWorkbook.Path & "\prod.db;"
   
    strSQL = "SELECT  _id,fasil,konu from hadisler "
   
    rs.Open strSQL, con, 1, 1
   
    With Sheets("Sayfa1")
        .Cells.ClearContents
        .Range("A1").CopyFromRecordset rs
    End With
    rs.Close
    con.Close
    Set rs = Nothing: Set con = Nothing
End Sub

SELECT * from hadisler
yukardaki gibi yapınca Excel donuyor.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task