運行時錯誤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。