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

cofe2000 · 发表于 2004-11-26 08:03

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)

steve_wu · 发表于 2004-11-27 14:30

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

cofe2000 · 发表于 2004-11-27 15:20

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

试了一下还是不行啊

cofe2000 · 发表于 2004-11-30 16:44

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

		自动登录	找回密码
密码			免费注册