[求助]一次新增多条记录问题?

qpzm

在下面的表单中，我在开始编号填入1 ；结束编号填入20 ，按下产生记录按钮，在表1中的编号字段会从1~20各产生一条记录，也就是说一次产生20条记录，请问有什么方法可实现？不知以前有没有例子可参考。

fan0217

用ADO通过循环添加。

qpzm

用ADO不知怎么弄呀，楼主可否给个例子我，十分感谢！

fan0217

把你的例子发上来。

qpzm

andymark

Private Sub Command8_Click()
Dim Rsc As New ADODB.Recordset

Rsc.Open "select * from 表1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

If (Not IsNull(Me.A) And (Not IsNull(Me.Start)) And (Not IsNull(Me.end)) Then
   
      If Me.end >= Me.Start Then

           For i = Me.Start To Me.end
     
              Rsc.AddNew
              Rsc.Fields("A") = Me.A
              Rsc.Fields("B") = i
             Rsc.Update
     
           Next i
         
       Else
      MsgBox "结束码必须大于等于开始码"
     End If
  
  
   End If



Set rs = Nothing

End Sub

qpzm

说这行语法错误，我用的是ACCESS 2003

If (Not IsNull(Me.A) And (Not IsNull(Me.Start)) And (Not IsNull(Me.end)) Then

qpzm

是括号的问题，多谢版主，现在行了。

另外有个问题，我在Start 输入6；在end 中输入10；它反而认为Start > end，从而不新增记录，请问这是怎么回事？

[此贴子已经被作者于2006-6-8 14:53:13编辑过]

andymark

改成：

Dim Rsc As New ADODB.Recordset

Rsc.Open "select * from 表1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

If (Not IsNull(Me.A)) And (Not IsNull(Me.Start)) And (Not IsNull(Me.end)) Then
   
      If Me.end >= Me.Start Then

           For i = Me.Start To Me.end
     
              Rsc.AddNew
              Rsc.Fields("A") = Me.A
              Rsc.Fields("B") = i
             Rsc.Update
     
           Next i
         
       Else
      MsgBox "结束码必须大于等于开始码"
     End If
  
  
   End If

    Me.表1_01.Form.Filter = Me.A
    Me.表1_01.Form.FilterOn = True

Set rs = Nothing

qpzm

两种方法都行，上面我说的问题已解决，把start和end用数据类型转换函数转一下就行了。

多谢版主！