运行时错误91：对象变量或与块变量未设置而连接VB6和MS接入

Question

当我运行给定的原始代码在下面行中的错误显示“运行时错误91”

con.Open "Provider=Microsoft.Jet.4.0;Data Source=C:\Documents and Settings\XPMUser\Desktop\New Folder\prac1.mdb; Persist Security Info = False" 

原始代码

Dim con As ADODB.Connection 
Dim rs As ADODB.Recordset 

Private Sub SUBMIT_Click() 
con.Open "Provider=Microsoft.Jet.4.0;Data Source=C:\Documents and Settings\XPMUser\Desktop\New Folder\prac1.mdb; Persist Security Info = False" 
rs.Open "select DBTB1 from prac1", con, adOpenDynamic, adLockPessimistic 

rs.Fields("NUMBER").Value = Text1.Text 
rs.Fields("NAME").Value = Text2.Text 
rs.Fields("CITY").Value = Text3.Text 
MsgBox "data saved!", vbInformation 
rs.Update 

End Sub 

Answer 1

由于您尚未实际创建Connection对象，因此您会收到错误91。此外，你将得到与RecordSet相同的错误。我已经更新了你的代码，允许它的工作：

Private Sub SUBMIT_Click() 
    Set con = New ADODB.Connection 
    con.Open "Provider=Microsoft.Jet.4.0;Data Source=C:\Documents and Settings\XPMUser\Desktop\New Folder\prac1.mdb; Persist Security Info = False" 
    Set rs = New ADODB.Recordset 
    rs.Open "select DBTB1 from prac1", con, adOpenDynamic, adLockPessimistic 

    rs.AddNew 
    rs.fields("NUMBER").value = Text1.Text 
    rs.fields("NAME").value = Text2.Text 
    rs.fields("CITY").value = Text3.Text 
    rs.Update 
    MsgBox "data saved!", vbInformation 
End Sub 

另外，请注意更新数据库之前添加AddNew。