投稿日 | : 2002/08/13(Tue) 21:20 |
投稿者 | : ore |
Eメール | : |
URL | : |
タイトル | : VBとアクセス |
[02/8/12(月)16:31分]分を転記しました。
2つのテーブルから必要項目をとりたいんですが、
できません。お願いします。
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & App.Path & "\db1.mdb;"
rs.Open "maintable", cn, adOpenKeyset, adLockOptimistic
↑ って任意のテーブルめいですか?
それとも実際に作ってあるテーブル名なんでしょうか?
ちなみに今こうしてます
(標準モジュールで宣言)
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & App.Path & "\db1.mdb;"
rs.Open "maintable,undertable", cn, adOpenKeyset, adLockOptimistic
maintableとundertableから必要項目をとりたいんです。
う
Private Sub Command1_Click()
Dim sql As String
sql = "select m.name,m.tel,s.skill from maintable m,undertable s "
sql = sql & "where m.name=s.name"
rs.Close
rs.Open
Text2.Text = rs(0)
Text3.Text = rs(1)
Text4.Text = rs(2)
end sub
どこがおかしいんでしょうか?お願いします。