老是说对象变量或WITH块变量未设置

Question

temp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Jet OLEDB:Database Password=19791002;Persist Security Info=False"
If temp Is Nothing ThenIf temp.Recordset.RecordCount = 0 Then
 Exit Sub
  End If
  temp.Recordset.MoveFirst
  Do While temp.Recordset.EOF = False
    Combo1.AddItem temp.Recordset.Fields(0)
        temp.Recordset.MoveNext
  Loop

Answer 1

数据库需要绝对路径吧：
Data Source="& app.path & "\data.mdb

Answer 2

谢谢,还是不行,还是出现对象变量或WINH块变量未设置,我用的是AD0控件

Answer 3

temp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Jet OLEDB:Database Password=19791002;Persist Security Info=False"If temp Is Nothing Then
    If temp.Recordset.RecordCount = 0 Then
        Exit Sub
    End If
    
    temp.Recordset.MoveFirst
    
    Do While temp.Recordset.EOF = False
        Combo1.AddItem temp.Recordset.Fields(0)
        temp.Recordset.MoveNext
    Loop
End If结帖率：0.00% 
给人印象不好，得到答案的要结贴

Answer 4

If temp Is Nothing Then 后面没了？

Answer 5

'增加一句:
dim temp as new connectiontemp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Jet OLEDB:Database Password=19791002;Persist Security Info=False" 
If temp Is Nothing Then If temp.Recordset.RecordCount = 0 Then 
Exit Sub 
  End If 
  temp.Recordset.MoveFirst 
  Do While temp.Recordset.EOF = False 
    Combo1.AddItem temp.Recordset.Fields(0) 
        temp.Recordset.MoveNext 
  Loop

Answer 6

temp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Jet OLEDB:Database Password=19791002;Persist Security Info=False"If temp.Recordset.RecordCount = 0 Then
 Exit Sub
  End If
  temp.Recordset.MoveFirst
  Do While temp.Recordset.EOF = False
    Combo1.AddItem temp.Recordset.Fields(0)
        temp.Recordset.MoveNext
  Loop帮帮忙啊,我以前忘了给分,以为注册就行了

Answer 7

jhone99 我把你的代码复制了,可是没有读取数据库的数据,我需要在组合框里显示数据库字段
temp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Jet OLEDB:Database Password=19791002;Persist Security Info=False" If temp.Recordset.RecordCount = 0 Then 
Exit Sub 
  End If 
  temp.Recordset.MoveFirst 
  Do While temp.Recordset.EOF = False 
    Combo1.AddItem temp.Recordset.Fields(0) 
        temp.Recordset.MoveNext 
  Loop 
这句没有If temp Is Nothing Then 

Answer 8

Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    cn.CursorLocation = adUseClient
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\date.mdb;Persist Security Info=False"
    cn.Open
    
    rs.Open "select * from t2", cn, adOpenStatic, adLockOptimistic
    
    Combo1.Clear
    Combo1.AddItem ""
    
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Combo1.AddItem rs.Fields(1)
            rs.MoveNext
        Wend
    End If
    
    rs.Close
    cn.Close
    
    Set rs = Nothing
    Set cn = Nothing
    
End Sub

Answer 9

Private Sub Command1_Click()
 temp.RecordSource = "select * from temp"
 temp.Refresh
 With temp.Recordset
     .AddNew
     .Fields(0) = Combo1.Text     .Update
  End WithEnd SubPrivate Sub Form_Load()temp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Jet OLEDB:Database Password=19791002;Persist Security Info=False"If temp Is Nothing Then
    If temp.Recordset.RecordCount = 0 Then
        Exit Sub
    End If
    
    temp.Recordset.MoveFirst
    
    Do While temp.Recordset.EOF = False
        Combo1.AddItem temp.Recordset.Fields(0)
        temp.Recordset.MoveNext
    Loop
End IfEnd Sub