Underc0de - Hacking y seguridad informática

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 03:56:45 pm

Título: Pasar datos de un campo MEMO a un campo TEXTO en Access
Publicado por: ANTRAX en Julio 26, 2010, 03:56:45 pm
Sabido es que el campo de tipo texto en Access no acepta más de 255 caracteres, de modo que si alguna vez queremos pasar de el contenido de un campo tipo Memo a un campo tipo Texto, nos será imposible.

Aquí les va un pequeño código que trunca la cadena de caracteres en el 250, con lo cual lo demás es posible.

Código: Visual Basic
  1. Dim VCadena As String
  2. Dim VCadenaAcum As String
  3.  
  4. Private Sub Command1_Click()
  5. With TESTRA.datPrimaryRS
  6. .Recordset.MoveFirst
  7. Do While Not .Recordset.EOF = True
  8. If IsNull(.Recordset!P) = True Then
  9. .Recordset.MoveNext 'Si está vacío, obvia el registro
  10. Else
  11. VCadena = .Recordset!P 'Partimos del campo memo
  12. VCadenaAcum = "" 'Seteamos a "" por el loop
  13. VCadenaAcum = Mid(VCadena, 1, 250) 'Truncando cadena
  14. .Recordset!Sort = VCadenaAcum 'Copiando al campo tipo texto
  15. .Recordset.Update
  16. .Recordset.MoveNext
  17. End If
  18. Loop
  19. End With
  20. End Sub