ayuda por favor!!
Necesito pasar como parametro un campo ntext en vb6 y no puedo. Yo hago esto, pero el adLongVarChar no soporta un campo ntext. Alguno tiene idea como puedo solucionarlo!?? por favor! gracias
Set prm = CreateObject("ADODB.Recordset")
prm.Fields.Append "Id", adInteger, 1, adFldIsNullable
prm.Fields.Append "Observaciones1", adLongVarChar, , adFldIsNullable
prm.Fields.Append "Observaciones2", adLongVarChar, , adFldIsNullable
prm.Fields.Append "Observaciones3", adLongVarChar, , adFldIsNullable
prm.Fields.Append "Observaciones4", adLongVarChar, , adFldIsNullable
prm.Open , , adOpenStatic, adLockOptimistic
prm.AddNew
prm("id").Value = Id
prm("Observaciones1").Value = Observaciones1
prm("Observaciones2").Value = Observaciones2
prm("Observaciones3").Value = Observaciones3
prm("Observaciones4").Value = Observaciones4
prm.Update
Set prm = CreateObject("ADODB.Recordset")
prm.Fields.Append "Id", adInteger, 1, adFldIsNullable
prm.Fields.Append "Observaciones1", adLongVarChar, , adFldIsNullable
prm.Fields.Append "Observaciones2", adLongVarChar, , adFldIsNullable
prm.Fields.Append "Observaciones3", adLongVarChar, , adFldIsNullable
prm.Fields.Append "Observaciones4", adLongVarChar, , adFldIsNullable
prm.Open , , adOpenStatic, adLockOptimistic
prm.AddNew
prm("id").Value = Id
prm("Observaciones1").Value = Observaciones1
prm("Observaciones2").Value = Observaciones2
prm("Observaciones3").Value = Observaciones3
prm("Observaciones4").Value = Observaciones4
prm.Update