SoloCodigo

Hola amigos:

Espero que me echeis una manilla en este tema, del que estoy totalmente pegado, y se que es muy básico en VB. Os doy las gracias de antemano.

Tengo un programa con acceso a una base de datos Access, todo ello a través de código por medio de DAORecordsets. Bien, el problema viene cuando se me ha planteado el hecho de tener campos de texto con más de 255 caracteres, es decir, textboxes (o richtextboxes en este casa habría de usar, ¿no?) que alberguen esa información. Claro, esa información no la puedo guardar en campos de Access (yo he de disponer en los registros de textboxes que pueden contener caracteres de hasta 1 o 2 folios A4 incluso), es por lo que me he supuesto que para ello he de usar ficheros.

La duda es, qué tipo he de usar; se que hay 3 tipos (secuenciales, aleatorios y binarios), pero de ahí no paso, aunque según lo que he estado rebuscando del tema, creo que los más convenientes serían los secuenciales, pero no sé.

Espero vuestra orientación sobre este tema. Y vuelvo a aclaroslo: en un formulario, registros que, junto a los campos que están enlazados a una base datos Access, contenga un textbox que albergue también un campo (tomado como tipo string) que contenga más de 255 caracteres. ¿Cómo lo hago, aún guardando los datos de los otros campos en Access y guardando también la información de ese extenso campo del registro también?

Muchas muchas gracias.

Hola amigos:

Muchas gracias de antemano si me orientais en esto.

Tengo un MsFlexGrid, y en sus Rows (filas) quisiera que mostrara el texto (que va a ser el contenido, más o menos extenso, de un campo de texto de una BD) en varias líneas, es decir, que no se cortara cuando llegara al final del MSFlexGrid.

¿Cuál sería la propiedad para hacer que el contenido de una celda se justifique si no cabe en ella?

Muchas grcias.

Hola amigo:

Te agradezco de antemano tu ayuda en este asunto.

Cuando ejecuto el programa (con el compilador, pulsando el botón play), me sale el error "No se encuentra el proyecto o biblioteca". Lo hace deteniéndose en "Hex" [en la parte... s = Format(Hex(Serial), "00000000")] y en "Left" [en la parte... VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)]

Aclararte que, en un principio, mi programa funcionaba a la perfección, sólo que tuve que formatear mi disco duro y reinstalar el Win98, el Visual Studio y demás programas, por lo que supongo que las susodichas bibliotecas a las que acude no las halla: lo dice el mismo mensaje de 'Error de compilación, no se encuentra el proyecto o biblioteca')

Te muestro el código, a ver si pudieras indicarme qué bibliotecas son, y añadirlas o lo que se tenga que hacer en este caso:

----------------
Public Function VolumeSerialNumber(ByVal RootPath As String) As String
Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim s As String

If GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize) Then
'Crea una cadena de 8 caracteres
s = Format(Hex(Serial), "00000000")
'Agregar el caracter '-' entre los 4 primeros caracteres y los últimos 4 caracteres
VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)
Else
'Si la llamada a la función API falla debe retornar un número de serie lleno de ceros
VolumeSerialNumber = "0000-0000"
End If
End Function
--------------

Muchas gracias.