2026-05-29 1.1.17 Corrección rutina LeeMysql para que como maximo se admitan 2048 caracteres string

2026-05-29 12:40:36 +02:00
parent 554bd9d8c3
commit 5c286f48de
3 changed files with 4 additions and 1021 deletions
--- a/bbdd.vb
+++ b/bbdd.vb
@@ -77,7 +77,7 @@ Public Class bbdd
                Select Case dc.DataType
                    Case GetType(String)
                        Tipo = "X"
-                        Tamaño = dc.MaxLength
+                        Tamaño = System.Math.Min(2048, dc.MaxLength)
                    Case GetType(DateTime), GetType(Date)
                        Tipo = "F"
                        Tamaño = 20
@@ -99,7 +99,7 @@ Public Class bbdd
                            If Not dr(dc) Is DBNull.Value Then
                                sLinea &= dr(dc).ToString.PadRight(dc.MaxLength, " ")
                            Else
-                                sLinea &= "".PadRight(dc.MaxLength, " ")
+                                sLinea &= "".PadRight(System.Math.Min(2048, dc.MaxLength), " ")
                            End If
                        Case GetType(DateTime), GetType(Date)
                            Dim sFecha As String = "null"