SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: graluc en Domingo 13 de Febrero de 2011, 12:00
-
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.
-
Estaría bien que mostraras el código que se encarga de dicha parte.
-
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.
-
¿No te funciona en ambos casos o sólo en el INSERT?
-
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.
-
Hm qué extraño, aunque no me extraña siendo VB :P . ¿Has probado a hacerlo en 2 partes?
-
No se a que te referís con hacerlo en dos partes. Igual creo que el problema es el tipo de control. Voy a probar con un RichTextBox a ver que pasa .