Visual Basic - campo memo a word

Life is soft - evento anual de software empresarial
 
Vista:

campo memo a word

Publicado por mARIEL (78 intervenciones) el 01/04/2004 21:12:13
hola! por favor a ver quien puedea yudarme necesito pasar un campo memo de una base de datos a un documento de word o de texto comun y me gustaria saber como se hace al reves, si tengo un documento de word o uno de texto como hago para pasarlo a campo memo.

desde ya muchisimas gracias
saludos
Mariel
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:campo memo a word

Publicado por Stump Kops (41 intervenciones) el 09/04/2004 23:59:37
Primero deberías usar un Connection para conectarte a la base de datos y un objeto Recordset para obtener los registros del campo memo. Después pasar a una variable String el campo memo en cuestión y crear un objeto "Word.Document" para trabajar sobre el. Una vez que tenés el objeto "Document" usar los métodos Range y SaveAs para establecer el texto y guardar el documento en un archivo, por ejemplo:

Sub GuardarCualquierMemo()

Dim CConn As New ADODB.Connection
Dim CRecord As New ADODB.Recordset
Dim CDocument As Object
Dim sConn$, sData$

sConn = "Provider=MSDASQL.1;" & _
"Persist Security Info=False;" & _
"Data Source=MS Access Database;" & _
"Initial Catalog=C:\MiBaseDeDatos.mdb"

CConn.Open sConn 'Abre la conección a la base de datos.

'Abre el Recordset
CRecord.Open "Tabla1", CConn, adOpenKeyset, adLockOptimistic, adCmdTable

sData = CRecord.Fields("MiCampoMemo") 'Obtiene un campo memo.

'Crea un documento de word.
Set CDocument = CreateObject("Word.Document")

CDocument.Range.Text = sData 'Escribe el campo en el documento.
CDocument.SaveAs "C:\MiDocumento.DOC" 'Guarda el archivo.
CDocument.Close 'Cierra el objeto

CConn.Close
End Sub

Para obtener los datos guardados se usa la función GetObject de Visual Basic para crear el objeto Document desde el archivo guardado:

Sub LeerCualquierMemo()

Dim CConn As New ADODB.Connection%0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar