【求助】数据库增加记录的问题

cofe2000

Sub 增加() '录入

Dim RS1 As Recordset Dim DB1 As Database ' On Error GoTo 1000

Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "电子领料.MDB") Set RS1 = DB1.OpenRecordset(Name:="总表", Type:=dbOpenDynaset)'这句出错 For i = 2 To Sheet1.Range("b65536").End(xlUp).Row With RS1 .AddNew For j = 1 To 13 .Fields(j).Value = Sheet1.Cells(i, j) Next .Update

'RS1.FindFirst "姓名='" & TextBox1.Value & "'" 'MsgBox RS1.RecordCount End With DB1.Close Exit Sub Next MsgBox "档案表中增加了" & Sheet1.Range("b65536").End(xlUp).Row - 1 & "条记录!" '1000: ' DB1.Close End Sub

Ec0SbVeX.rar (132.33 KB, 下载次数: 26)

2004-11-26 08:05 上传

点击文件名下载附件
【求助】数据库增加记录的问题

steve_wu

Set RS1 = DB1.OpenRecordset("总表")

cofe2000

以下是引用steve_wu在2004-11-27 14:30:00的发言： Set RS1 = DB1.OpenRecordset("总表")

试了一下还是不行啊

cofe2000

谢谢大家，用insert方法解决了