FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Guardar RTF en sql server
Posts: 155
Joined: Tue Dec 30, 2008 03:07 AM
Guardar RTF en sql server
Posted: Mon Jan 09, 2023 02:30 PM

Hola, necesito guardar el texto de un Richedit en SQL Server, lo declare como varbinary(max) nvarchar(max) cualquiera de las 2 maneras me da error.

Podrían decirme como hacerlo

Saludos

Jorge

Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Guardar RTF en sql server
Posted: Mon Jan 09, 2023 03:36 PM

muestralo como lo haces por favor, yo usalmente convierto todo a hex o base64 antes de guardarlo. pero es gusto mio.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 155
Joined: Tue Dec 30, 2008 03:07 AM
Re: Guardar RTF en sql server
Posted: Mon Jan 09, 2023 05:37 PM
Así es como intento guardarlo:



csql = "INSERT INTO demo (testo) VALUES "+ STRTOHEX( MEMOREAD( ".\TestRTF.RTF" ) )



y así está creada la base:



CREATE TABLE [dbo].[demo](

[id] [int] IDENTITY(1,1) NOT NULL,

[testo] [text] NULL

) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]





Saludos

Jorge
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Guardar RTF en sql server
Posted: Tue Jan 10, 2023 02:49 AM

Así lo realizó yo, reemplaza la función memoread por Filestr.

csql = "INSERT INTO demo (testo) VALUES ( "+ STRTOHEX( FileoStr( ".\TestRTF.RTF" ) ) + ")"

Acá ver qué te falta () después de value.

Que error te muestra?

Salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 155
Joined: Tue Dec 30, 2008 03:07 AM
Re: Guardar RTF en sql server
Posted: Tue Jan 10, 2023 02:01 PM

Logre guardar, pero de esta forma.

Primero dar de alta el registro y luego:

wvar =  MEMOREAD( ".\TestRTF.RTF" )

oRsRTF   := CargaRecordSet( "select * from demo1  where id = 2", CadenaCon )

oRsRTF:ADDNEW()

oRsRTF:Fields( "testo" ):Value := STRTOHEX(wvar)

oRsRTF:Update()

oRsRTF:Close()

de esta manera lo guarda sin errores.

Saludos

Jorge

Continue the discussion