Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/04/2006, 06:11
Avatar de moNTeZIon
moNTeZIon
 
Fecha de Ingreso: enero-2005
Ubicación: Lliçà de Munt - BCN
Mensajes: 1.625
Antigüedad: 19 años, 4 meses
Puntos: 9
Mostrar campo memo. No se ven todos los caracteres

Buenos dias,
Saben si se ha de hacer algo especial para mostrar un campo memo de Access?
Lo trato como si fuera un campo más, pero cuando lo muestro, me saca solo los primeros 255 caracteres y se come el resto...

Saben a que se debe?

Uso VB 2005 y Access 2003

Les pongo una porcion del codigo para que vean... Los dos campos Memo son Resumen y Descripcion:

Código:
sB.Append("SELECT ")
sB.Append("IIF(IdApartamento Is Null, 0, IdApartamento) AS IdApartamento, ")
sB.Append("IIF(Nombre Is Null, '', Nombre) AS Nombre, ")
sB.Append("IIF(Resumen Is Null, '', Resumen) AS Resumen, ")
sB.Append("IIF(Descripcion Is Null, '', Descripcion) AS Descripcion, ")
sB.Append("IIF(Foto1 Is Null, '', Foto1) AS Foto1, ")
sB.Append("IIF(Foto2 Is Null, '', Foto2) AS Foto2, ")
sB.Append("IIF(Foto3 Is Null, '', Foto3) AS Foto3, ")
sB.Append("IIF(Foto4 Is Null, '', Foto4) AS Foto4, ")
sB.Append("IIF(Foto5 Is Null, '', Foto5) AS Foto5 ") 'El ultimo no lleva coma
sB.Append("FROM Apartamentos WHERE IdApartamento = ?")

Dim miConn As New OleDbConnection(ConfigurationManager.ConnectionStrings("ConnStr").ConnectionString)
Dim cM As New OleDbCommand(sB.ToString, miConn)
cM.Parameters.Add("IdApartamento", OleDbType.Integer).Value = CInt(IdApartamento)
Dim misDetalles As New DetallesApartamento
Dim dR As OleDbDataReader
miConn.Open()
dR = cM.ExecuteReader
If dR.Read Then
  misDetalles.IdApartamento = IdApartamento
  misDetalles.Nombre = dR("Nombre")
  misDetalles.Resumen = dR("Resumen") '--> En este punto, el datareader solo ha recuperado 255 caracteres, en cambio en la BD hay mas...
  misDetalles.Descripcion = dR("Descripcion")
  misDetalles.Foto1 = dR("Foto1")
  misDetalles.Foto2 = dR("Foto2")
  misDetalles.Foto3 = dR("Foto3")
  misDetalles.Foto4 = dR("Foto4")
  misDetalles.Foto5 = dR("Foto5")
Else
  misDetalles.IdApartamento = 0
End If
miConn.Close()
miConn.Dispose()
Gracias a todos!
Saludos.
__________________
..:: moNTeZIon ::..

Última edición por moNTeZIon; 26/04/2006 a las 10:53