Foros del Web - problemas con valores devueltos ADODB

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - problemas con valores devueltos ADODB (http://www.forosdelweb.com/f69/problemas-con-valores-devueltos-adodb-585551/)

problemas con valores devueltos ADODB

saludos,

cuando recojo valores normales en un ADODB.Recordset todo va bien,
pero si esos valores son sentencias sqlalmacenadas en campos text devuelven un nulo,
es algo bastante curioso que me esta dando unos quebraderos de cabeza inmensos ya que no encuentro solución alguna

por ejemplo tengo una tabla con un campo llamado tsql que guarda
insert into sentencias (id,cadena) values (1,'Cadena1')
insert into sentencias (id,cadena) values (2,'Cadena2')
insert into sentencias (id,cadena) values (3,'Cadena3')

al pedir el campo tsql lo recoje bien pero a la hora de tratarlo se convierte en Null

la culpa parece ser que es de las comillas, ¿cómo se puede tratar esto?

Re: problemas con valores devueltos ADODB

he logrado solventarlo de manera chapucerilla...

lo pido así

Código:

select replace(tsql,'\'','\'\'') as tsql from tablita

y luego lo trato

Código:

p_row(rec!tsql)

La función para no tener que andar poniendoe l replace todo el rato :X

Código:

'CAMPO PUÑETERO

Public Function p_row(cadena As String)

    c_row = Replace(cadena, "''", "'")

End Function