comboboxにaccessをつなぐ

---

Public ws                       As DAO.Workspace
Public db                       As DAO.Database
Public rs                       As DAO.Recordset


Private Sub Combo1_Change()
'得意先をリンク
    Dim db     As Database
    Dim ws     As Workspace
    Dim rs     As Recordset
    Dim strSQL  As String

   'データベースオープン

    On Error GoTo Err_Access_ERROR
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase("C:\Documents and Settings\hayashi\デスクトップ\林.mdb")
    On Error GoTo 0
'SQL文の作成
    strSQL = "SELECT tokuisakiNM FROM M_tokuisaki"

    Set rs = db.OpenRecordset(strSQL)

End Sub


どこが間違っているかわかりません。
エラーは出ないんですが、データーも出てきません。

編集 削除

---

SQLでデータをレコードセットに取得だけして出力してませんから
なにもでてこなくて正解ですよ。

dim a as string
a="test"

で、文字が画面にでません。
といっているのと同じことです。
あと Err_Access_ERROR
も見当たりませんけど・・・
続きは省略したってことでしょうか

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。