Question

请问 vb6 如何复制 access 表中的 当前记录，即表中增加一条相同内容的记

请问 vb6 如何复制 access 表中的 当前记录，即表中增加一条相同内容的记录？谢谢

Answer 1

下面是使用ADO类库复制当前记录到ACCESS数据库表的关键代码，供参考：

'假设之前已经有效建立了与数据库的连接
'假设已经正确打开了ADO记录集rs
'假设rs是可更新的记录集
'假设rs的当前记录不为空
'假设复制当前记录到ACCESS表不违反该表所有的约束和有效性规则
'下面代码将复制当前记录行到其绑定的ACCESS表
Dim rsTmp As ADODB.Recordset, i As Integer
Set rsTmp = rs.Clone
With rsTmp
    .AddNew
    For i = 0 To rs.Fields.Count - 1
        .Fields(i) = rs(i)
    Next i
    .Update
End With
Set rsTmp = Nothing
rs.Requery  '刷新记录集后新复制得那条记录已经包含在记录集里

Answer 2

用ADO的recordset对象

追问

您好，能具体点吗？谢谢。