comboboxにaccessをつなぐ

よっしー 2003-03-26 01:55:12 No: 106425

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

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

Loreley 2003-03-26 07:00:28 No: 106426

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

dim a as string
a="test"

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