excel De [ınvalıd_data] Hatası

excel De [ınvalıd_data] Hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: excel De [ınvalıd_data] Hatası (/konu-excell-de-invalid-data-hatasi.html)

Sayfalar: 1 2 3 4

excel De [ınvalıd_data] Hatası - uiakouwr - 01/04/2021

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

RE: excel De [ınvalıd_data] Hatası - berduş - 01/04/2021

eklediğiniz dosya VB.Net dersleri
kendi dosynızı ekler misiniz?

Re: Excel De [Invalıd_Data] Hatası - uiakouwr - 02/04/2021

(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.

RE: excel De [ınvalıd_data] Hatası - berduş - 02/04/2021

siz db dosyanızı nasıl açıyorsunuz?

RE: excel De [ınvalıd_data] Hatası - berduş - 02/04/2021

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

RE: excel De [ınvalıd_data] Hatası - feraz - 02/04/2021

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.