Programación General > Visual Basic para principiantes

 Problemas con Textbox

(1/2) > >>

graluc:
Hola,tengo una base de datos en access y en visual basic 6.0 un formulario con textbox para pasar datos en uno de ellos necesito escribir mucho, pero cuando guardo los datos solo guarda una parte .Es como si no tuviera mas lugar. En Access a ese campo le di tipo memo y en Visual le puse al textbox en multiline. Muchas gracias por su ayuda.

m0skit0:
Estaría bien que mostraras el código que se encarga de dicha parte.

graluc:
Este es el código del botón Guardar Cambios:
 Private Sub cmdGuardar_Click()
On Error GoTo ErrorSub
  ' Valida el Nombre que no este vacio    ''''''''''''''''''''''''''''''''
    If Trim(Text1(1)) = "" Then
        MsgBox "El Nombre de registro no puede estar vacio", vbCritical, "Datos incompletos"
        Text1(1).SetFocus
        Exit Sub
        ' Valida el Apellido    ''''''''''''''''''''''''''''''''
    ElseIf Trim(Text1(2)) = "" Then
        MsgBox "El Apellido no puede estar vacio", vbCritical, "Datos incompletos"
        Text1(2).SetFocus
        Exit Sub
    End If
'Agrega el registro    '''''''''''''''''''''''''''''''
    Select Case ACCION
        Case EDITAR_REGISTRO
            cnn.Execute "UPDATE Personas set Nombre = '" & Text1(1) & _
                                         "', Apellido = '" & Text1(2) & _
                                         "', Telefono = '" & Text1(3) & _
                                         "', Direccion = '" & Text1(4) & _
                                         "', Dni = '" & Text1(5) & _
                                         "', Celular = '" & Text1(6) & _
                                         "', Correo = '" & Text1(7) & _
                                         "', Mutual = '" & Text1(8) & _
                                         "', Sexo = '" & Text1(9) & _
                                         "', Edad = '" & Text1(10) & _
                                         "', Ocupación = '" & Text1(11) & _
                                         "', Patología = '" & Text1(12) & _
                                         "', Tratamiento = '" & Text1(13) & _
                                         "', FechaDeAlta = '" & Text1(14) & _
                                         "' where Id = " & IdRegistro & ""
        Case AGREGAR_REGISTRO
            cnn.Execute "INSERT INTO Personas " & "(Nombre,Apellido,Telefono,Direccion,Dni, Celular,Correo,Mutual,Sexo,Edad,Ocupación,Patología,Tratamiento,FechaDeAlta) VALUES('" & _
                                 Text1(1) & "','" & _
                                 Text1(2) & "','" & _
                                 Text1(3) & "','" & _
                                 Text1(4) & "','" & _
                                 Text1(5) & "','" & _
                                 Text1(6) & "','" & _
                                 Text1(7) & "','" & _
                                 Text1(8) & "','" & _
                                 Text1(9) & "','" & _
                                 Text1(10) & "','" & _
                                 Text1(11) & "','" & _
                                 Text1(12) & "','" & _
                                 Text1(13) & "','" & _
                                 Format(Date, "dd/mm/yyyy") & "')"

End Select
   
rs.Requery 1
 
DoEvents
    Unload Me
    Set frmEdit = Nothing
Exit Sub
ErrorSub:
MsgBox Err.Description

End Sub
En la base de datos se guardan los cambios, pero no se ven completos en los text Patología y Tratamiento.Gracias por la respuesta.

m0skit0:
¿No te funciona en ambos casos o sólo en el INSERT?

graluc:
Mientras escribo entra todo, lo guardo y cuando vuelvo a abrir solo aparece una parte,llega a un límite y los datos que escribí no se pueden ver en esos text ( en el text de Patología y en el de Tratamiento),tienen multiline y en Access el campo es memo.También les puse ScrollBar Vertical.  Si abro la base de datos desde Access los datos nuevos se guardaron y aparece todo lo que escribí,pero desde el entorno de Visual no se puede.Es como si se acatara el espacio de los text . No sé porque si en la base de datos está todo, en los textbox solo se puede ver hasta un límite.
Gracias por la respuesta.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente