vb 添加数据不成功，请高手指导解决方法

vb 添加数据不成功，请高手指导
用vb 编了一个添加文件功能的窗口，可是运行时报错

代码如下：

Private Sub Command2_Click()
  Unload Form2
  Form1.Show
  Form1.Enabled = True
End Sub

Private Sub Command1_Click()
 
  On Error Resume Next
  
  Form1.Data1.Recordset.AddNew
  
  Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
  Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
  Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
  Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text
  
  Form1.Data1.Recordset.Update
  
  If Err.Number <> 0 Then
  Beep
  MsgBox "输入数据错误，请重新输入", vbCritical + vbOKOnly, "错误信息"
  Exit Sub
  Else
  Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
  End If
   
  Foem1.Enabled = True
  Unload Form2
End Sub

Private Sub Form_Load()

  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Text4.Text = ""


End Sub

报错：


请问怎样解决？

[解决办法]
Foem1.Enabled = True???????
form1.enabled吧
[解决办法]
Private Sub Command1_Click() 

'On Error Resume Next 
msgbox Form1.Data1.Recordset.recordcount '看这个是否能显示 Form1.Data1.Recordset.AddNew 
  
Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text 
Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text 
Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text 
Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text 
  
Form1.Data1.Recordset.Update 

[解决办法]
你至少要知道是什么错误：

If Err.Number <> 0 Then 
Beep 
MsgBox "输入数据错误，请重新输入 " & Err.Number & ":" & Err.Descriptor, vbCritical + vbOKOnly, "错误信息" 
Exit Sub 
Else 
Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified 
End If

或者把 On Error Resume Next 注掉，看看究竟是什么错误。

另外，试试：

Form1.Data1.Recordset.Fields(0) = Form2.Text1.Text 
Form1.Data1.Recordset.Fields(1) = Form2.Text2.Text 
Form1.Data1.Recordset.Fields(2) = Form2.Text3.Text 
Form1.Data1.Recordset.Fields(3) = Form2.Text4.Text

[解决办法]

探讨

这是Data1的：

[解决办法]
不好意思看错了，看看以下方式：
Can't update. Database or object is read-only. (Error 3027)


You tried to save changes in a database that was opened for read-only access.

The database is read-only for one of these reasons: 

You used the OpenDatabase method and opened the database for read-only access.


The database file is defined as read-only in the operating system or by your network.


The database file is stored on read-only media.


In a network environment, you do not have write privileges for the database file.


When working with a secured database, the database or one of its objects (such as a field or table) may be set to read-only. You may not have permission to access this data with your user name and password. 

Close the database, resolve the read-only condition, and then reopen the file for read/write access.

[解决办法]
http://topic.csdn.net/u/20091129/04/87fa21c9-1004-4c03-80c9-74e4c0a0ba0b.html
这个是我最近做的数据库录入的案例，CSDN上也曾经遇到问题，但是已经通过了，希望能帮到你啊

查看更多 下一篇