关于access数据库的问题,怎样能够添加一组数据到access表的一列当中，其它列中的数要保持不变

Question

Adodc2.RecordSource = "SELECT * FROM 主数据库"
         Adodc2.Recordset.AddNew
         With Adodc2.Recordset
              ‘.Fields("测量日期") = Date
              ’.Fields("测量时间") = Text2.Text
              ‘.Fields("班组地点") = Text3.Text
              ’.Fields("电子称读数") = Val(Text22.Text)
              ‘.Fields("矿石毛重") = Val(Text4.Text)
              ’.Fields("矿石净重") = Val(Text5.Text)
              ‘.Fields("铀道计数") = N1
              ’.Fields("钍道计数") = N2
              ‘.Fields("铀视品位") = Qux
              .Fields("铀真品位") = Qu
              ’.Fields("铀金属量") = Mu
              ‘.Fields("钍品位") = Qt
              ’.Fields("班次") = Text13.Text
              ‘.Fields("操作员") = Text14.Text
          End With
          Adodc2.Recordset.Update
          Adodc2.Refresh
想把数组Qu()中的数，添加到("铀真品位")这一列中去，其它列里面已经有数了，要保持其它列里的数不变，我用这个语句添加是错误的，请问有人知道应该怎么写吗？？谢谢！

Answer 1

   Adodc2.RecordSource = "SELECT * FROM 主数据库" 
   Adodc2.Recordset.MoveFirst
   for I=1 to Adodc2.Recordset.RecordCount 
      With Adodc2.Recordset     
         .Fields("铀真品位") = Qu(I) 
      End With 
      Adodc2.Recordset.MoveNext
      Adodc2.Recordset.Update 
   next
   Adodc2.Recordset.Update 
   Adodc2.Refresh 

Answer 2

.Fields("铀真品位") = Qu（i）
你想把那个数据写进去就写那个。
我没理解错吧。

Answer 3

楼主的目的是不是要更新表中的某一列数据呀,应该是这个吧:update 表 set 字段字=值

Answer 4

提示:对象变量或with块变量未设置
Adodc2.Recordset.MoveFirst  出错在这一行，加了一个with后还是不行！这是怎么回事呢？

Answer 5

update 表 set 铀真品位=Qu(1) where 主健名称=值 

Answer 6

如果lz只是要改变记录,并不是数据库,就不要用  Adodc2.Recordset.Update  Adodc2.RecordSource = "SELECT * FROM 主数据库" 
   Adodc2.Recordset.MoveFirst
   for I=1 to Adodc2.Recordset.RecordCount 
      With Adodc2.Recordset     
         .Fields("铀真品位") = Qu(I-1) 
      End With 
      Adodc2.Recordset.MoveNext 
   next I
   Adodc2.Refresh 

Answer 7

Adodc2.RecordSource = "SELECT * FROM 主数据库" 
  if Adodc2.Recordset.RecordCount >0
  Adodc2.MoveFirst 
  for I=1 to Adodc2.Recordset.RecordCount 
      With Adodc2.Recordset    
        .Fields("铀真品位") = Qu(I-1) 
      End With 
      Adodc2.MoveNext 
  next I 
  Adodc2.Refresh

Answer 8

Adodc2.RecordSource = "SELECT * FROM 主数据库" 
  if Adodc2.Recordset.RecordCount >0 
      Adodc2.MoveFirst       for I=1 to Adodc2.Recordset.RecordCount 
         With Adodc2.Recordset    
            .Fields("铀真品位") = Qu(I-1) 
         End With          Adodc2.MoveNext 
      next I      Adodc2.Refresh
   end if 

Answer 9

楼上提供的这几个程序都测试了，结果都有错误，第一段程序提示错误：属性的使用无效。第二段程序提示错误：未找到方法或数据成员，请问这是怎么回事呢？是不是少加了什么，还是要设置Adodc2.Recordset对象吗？？？急

Answer 10

他的 Adodc2 控件根本就没有绑定好数据库.因为:
提示:对象变量或with块变量未设置 
Adodc2.Recordset.MoveFirst  出错在这一行.即 Adodc2.Recordset 的记录集是NULL.因此:他的 Adodc2中要么没有设置数据库名(或数据库名错误)
或者 Adodc2.RecordSource = "SELECT * FROM 主数据库"  是错误的,可能 他绑定的数据库中根本就没有 "主数据库" 这个表.

Answer 11

提示:对象变量或with块变量未设置 
Adodc2.Recordset.MoveFirst  出错在这一行.即 Adodc2.Recordset 的记录集是NULL.因此:他的 Adodc2中要么没有设置数据库名(或数据库名错误)
或者 Adodc2.RecordSource = "SELECT * FROM 主数据库"  是错误的,可能 他绑定的数据库中根本就没有 "主数据库" 这个表.
[/Quote]雪情
我现在没有vb,不能试验Adodc2.Recordset.MoveFirstAdodc2.MoveFirst应该是那一个?

Answer 12

Adodc2.Recordset.MoveFirst 这个.因为 Adodc2 要绑定数据库及SQL语句后.如果成功会返回一个 Recordset .Adodc2.Recordset 显示对象变量或with块变量未设置 表示 Adodc2 的 Recordset 记录集未进行初始化.