SQL limit 255 characters

[tamer42]

Merhabalar,
Excel'de kullanıcının bir açıklama yazabileceği bir kullanıcı formum var.
Burada açıklama metni bazen çok uzun olabiliyor, 2-3 bin karakter
Bu kapalı dosyadan verileri çekmek isterken metin 255 karakteri aştığı için hata alıyorum.

bildiğim kadarıyla bir excel hücresi 32.000 karakter tutabilir, burada yazılan uzun metni SQL sorgusuyla nasıl alabilir?

desteğiniz için şimdiden teşekkürler,

iyi akşamalar.

rw=1
ss=2

       Set Conn = CreateObject("ADODB.Connection")
        
        Conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        fileName & ";extended properties=""Excel 12.0;Hdr=Yes"""

strSQL = "SELECT * From [Sorgu$] WHERE [No] = '" & No & "' "
        
RS.Open strSQL, Conn, 1, 3

    If Not RS.EOF Then
        
        For i = 0 To RS.Fields.Count - 1
            SH.Cells(rw, ss + i) = RS(i)
        Next i
        
    End If

 

[veyselemre]

    rs.Open strSql, conn, 1, 3
  
    If Not rs.EOF Then
        For i = 0 To rs.Fields.Count - 1
            Cells(rw, ss + i).Value = rs(i).Value
        Next i
    End If

    rs.Open strSql, conn, 1, 3
    If Not rs.EOF Then
       ReDim a(1 To rs.Fields.Count)
       For i = 0 To rs.Fields.Count - 1
            a(i + 1) = rs(i)
        Next i
        Cells.ClearContents
        Range("A" & rw).Resize(, UBound(a)).Value = a
    End If

    rs.Open strSql, conn, 1, 3
    If Not rs.EOF Then
        Cells.ClearContents
        Range("A" & rw).CopyFromRecordset rs
    End If

    rs.Open strSql, conn, 1, 3
    If Not rs.EOF Then
       Dim a()
       a = Application.Transpose(rs.getrows)
        Cells.ClearContents
        Range("A" & rw).Resize(, UBound(a)).Value = a
    End If

 

[tamer42]

    rs.Open strSql, conn, 1, 3

    If Not rs.EOF Then
        For i = 0 To rs.Fields.Count - 1
            Cells(rw, ss + i).Value = rs(i).Value
        Next i
    End If

    rs.Open strSql, conn, 1, 3
    If Not rs.EOF Then
       ReDim a(1 To rs.Fields.Count)
       For i = 0 To rs.Fields.Count - 1
            a(i + 1) = rs(i)
        Next i
        Cells.ClearContents
        Range("A" & rw).Resize(, UBound(a)).Value = a
    End If

    rs.Open strSql, conn, 1, 3
    If Not rs.EOF Then
        Cells.ClearContents
        Range("A" & rw).CopyFromRecordset rs
    End If

    rs.Open strSql, conn, 1, 3
    If Not rs.EOF Then
       Dim a()
       a = Application.Transpose(rs.getrows)
        Cells.ClearContents
        Range("A" & rw).Resize(, UBound(a)).Value = a
    End If

çok teşekkürler Veysel Hocam

Cells(rw, ss + i).Value = rs(i).Value

anlaışan tüm espri value yazıp yada yazmamak ile ilgilymiş...

iyi ki varsınız!

 

[FERAZ]

Application.Transpose

Transpose 65536 dan sonra sıkıntı.