JET_ERR JET_API JetSetColumn(
  __in          JET_SESID sesid,
  __in          JET_TABLEID tableid,
  __in          JET_COLUMNID columnid,
  __in_opt      const void* pvData,
  __in          unsigned long cbData,
  __in          JET_GRBIT grbit,
  __in_opt      JET_SETINFO* psetinfo
);
 

 
DECLARE INTEGER JetSetColumn IN esent;
    INTEGER sesid,;
    INTEGER tableid,;
    INTEGER columnid,;
    INTEGER pvData,;
    LONG cbData,;
    INTEGER grbit,;
    INTEGER psetinfo
 

 
LOCAL oData As PChar, nDataLen
oData = CREATEOBJECT("PChar", m.vValue)
nDataLen = LEN(m.vValue)
 
THIS.errorno = JetSetColumn(THIS.jetsessionid,;
    THIS.jettableid, m.nColumnId,;
    oData.GetAddr(), m.nDataLen,;
    JET_bitSetOverwriteLV, 0)