VBからAccessへのDBへの接続エラー

Question

Accessプロジェクトでは、クエリが結果を返す場合にのみフォームが開かれたときにラベルを表示します。

私は、次のコードを持っている：

Private Sub Form_Load() 
Dim stSQL As String 
Dim db As DAO.Database 
Dim rs As DAO.Recordset 

Set db = DBEngine.Workspaces(0).Databases(0) 

Dim cn As DAO.Connection 
Set cn = DAO.Connection 


cn.Provider = "Microsoft.Jet.OLEDB.4.0" 

cn.Open stdbName 
stSQL1 = "SELECT * FROM tbl_lessons" 
Set rs = db.OpenRecordset(stSQL1, dbOpenDynaset) 

If (rs Is Not Nothing) Then 
    If (rs.GetRows() > 0) Then 
     lbl_alert.Visible = True 
    Else 
     lbl_alert.Visible = False 
    End If 

End If 

私は、私は次のエラーを取得していますフォームを開こうとすると： コンパイルエラー： メソッドまたはデータメンバが

私は

が見つかりませんVB7でAccess 2007を使用する

誰かが助けてくれますか？

Answer 1

注 - VBAでコンパイルエラーが発生すると、コード行が常に強調表示されます。強調表示された行を注意深く見ると、間違ったことを理解するのに役立ちます。また、フォームを実行する前に、コードをコンパイルするようにしてください。 （ "デバッグ"メニューを開き、 "VBAProjectのコンパイル"などをクリックしてください）

問題がたくさんあるようですが、一度に1つずつ扱わなければならないでしょう。問題を修正してコードを再コンパイルしてください。

1. 1cn.Open stdbName1
   - >stdbnameあなたは私たちを示したコードのどこに定義されていません。
2. Dim stSQL As String
   - >接続文字列をstSQLと定義しましたが、コードにはstSQL1 = "..."と指定しました。変数名を修正してください。