Public WithEvents rdso As RDS.DataControl
Dim rs  As ADODB.Recordset
Private Sub Connect_Click()
rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
          "Data Source=" & DBPath.Text
  rdso.SQL = "Select * From 文章"
  rdso.FetchOptions = adcFetchBackground
  rdso.ExecuteOptions = adcExecAsync
  rdso.Refresh
End Sub
Private Sub Form_Load()
Set rdso = New RDS.DataControl
  rdso.Server = RemoteServer.Text
End Sub
Private Sub Form_Resize()
RemoteServer.Width = Me.ScaleWidth
  DBPath.Width = Me.ScaleWidth
End Sub
Private Sub rdso_onreadystatechange()
If rdso.ReadyState = adcReadyStateComplete Or _
    rdso.ReadyState = adcReadyStateInteractive Then
    Set rs = rdso.Recordset
'-------------這行有錯--------------------
If rs.State = adStateClosed Then
'-----------------------------------------
MsgBox "無法讀取資料,設定可能有誤。", vbInformation, "錯誤"
    Else
      Debug.Print "complete"
      'DoSomething
    End If
  End If
End Sub
Private Sub RemoteServer_Change()
rdso.Server = RemoteServer.Text
End Sub
Private Sub Stop_Click()
rdso.Cancel
End Sub
作業環境:Windows98SE+VB6(SP3)+Office2000+IE5
rdso.recordset是個空物件(Nothing),這就是問題所在,
執行王國榮的範例程式也有這樣的錯誤,同一個地方。
幫幫我吧!
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()