ADODB.Recordset.Fields.Append 问题。!@!!#!@#!@$!@$

Question

在vb中Recordset怎么添加新列阿，这个列数据库中没有，我只想做临时的查询使用。
根据一定条件赋值。
Set mPersRs = New ADODB.Recordset
    mPersRs.CursorLocation = adUseClient
       mPersRs.Fields.Append "flag", adTinyInt
    mPersRs.Open sql, Glo.Con, adOpenStatic, adLockBatchOptimistic
     Set mPersRs.ActiveConnection = Nothing
当我给mpersrs!flag=1时说没有这个字段。
这是怎么回事。。请各位指教。。

Answer 1

Set mPersRs = New ADODB.Recordset
    mPersRs.CursorLocation = adUseClient
       
    mPersRs.Open sql, Glo.Con, adOpenStatic, adLockBatchOptimistic
     mPersRs.Fields.Append "flag", adTinyInt
     Set mPersRs.ActiveConnection = Nothing