为什么程序执行了，数据库的记录却不更新也不添加新记录？（addnew问题）

为什么程序执行了，数据库的记录却不更新也不添加新记录？  
   
  程序如下：  
  Set   MyCN   =   New   ADODB.Connection  
  Set   MyRS   =   New   ADODB.Recordset  
  MyCN.Open   "Provider=SQLOLEDB.1;Password=chinaiti**guilin;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=erectordb_temp2;Data   Source=GLGIS-SERVER"  
  sRSString   =   "select   *   from   filepath   where   类型='"   &   sClassName   &   "'   and   日期='"   &   sDate   &   "'   "  
  MyRS.Open   sRSString,   MyCN,   adOpenDynamic,   adLockBatchOptimistic  
   
  If   Not   MyRS.EOF   Then  
  MyRS("类型")   =   "sClassName"  
  MyRS("日期")   =   sDate  
  MyRS("文件路径")   =   sPath  
  MyRS.MoveNext  
  Else  
  MyRS.AddNew  
  MyRS("文件路径")   =   sPath  
  MyRS("类型")   =   sClassName  
  MyRS("日期")   =   sDate  
  MyRS.Update  
   
  End   If  
  MyRS.Close  
  MyCN.Close  
  Set   MyRS   =   Nothing  
   
  问题点数：10、回复次数：3Top

1 楼Leftie（左手,为人民币服务）回复于 2003-01-03 12:07:51 得分 5

最好增加语句改成insert...  
  修改语句改成update   tablename   set   .....   where   ....  
  Top

2 楼Erice（白雪公猪）回复于 2003-01-03 12:17:18 得分 5

将mycn的mode设置为ADREADWRITE如  
  mycn.mode=adreadwriteTop

3 楼qyjzhou（琴雨健洲）回复于 2003-01-03 15:48:20 得分 0

在那里加mycn.mode=adreadwrite  
  进去呀。我加了也不起作用。  
   
  mycn.mode=adreadwrite  
  MyCN.Open   "Provider=SQLOLEDB.1;Password=chinaiti**guilin;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=erectordb_temp2;Data   Source=GLGIS-SERVER"  
  sRSString   =   "select   *   from   filepath   where   类型='"   &   sClassName   &   "'   and   日期='"   &   sDate   &   "'   "  
  MyRS.Open   sRSString,   MyCN,   adOpenDynamic,   adLockBatchOptimisticTop

相关问题

• mycn
• myrs
• 记录
• srsstring
• adreadwrite
• sclassname
• 程序
• 类型
• 日期
• mode

• 帖主：qyjzhou
• Leftie
• Erice

• Visual Basic类图书
• Visual Basic类源码下载