投稿日	： 2002/08/13(Tue) 21:24
投稿者	： Say
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: VBとアクセス

[02/8/12(月)18：22分]分を転記しました。

ADODBとSQLの勉強してください。

一般的なかき方はこんなかんじ

Private Sub Command1_Click()

Dim adoCnn As New ADODB.Connection
Dim adoRst As New ADODB.RecordSet
Dim strSQL As String

strSQL = "Select T1.a As xxx , T1,b As yyy , T2.c As zzz "
strSQL = strSQL & " From T1 Inner Join T2 "
strSQL = strSQL & " On T1.a = T2.a "
strSQL = strSQL & " Where T1.a >100 "
strSQL = strSQL & " Order By T1.a "

adoCnn.Open CNNSTRING ' CNNSTRINGは接続文字列
adoRst.Open strSQL,adoCnn

List1.Clear
List2.Clear
List3.Clear
Do Until adoRst.EOF
    List1.AddItem adoRst("xxx").Value
    List2.AddItem adoRst("yyy").Value
    List3.AddItem adoRst("zzz").Value
    adoRst.MoveNext
    DoEvents
Loop

adoRst.Close
adoCnn.Close
Set adoRst = Nothing
Set adoCnn = Nothing

End Sub

流れは
●Connectionオブジェクトを接続文字列でOpen
●RecordSetオブジェクトを選択クエリでOpen
●EOFまでループでまわしてデータ取得
●RecordSetオブジェクトをClose
●ConnectionオブジェクトをClose
●RecordSetオブジェクトをNothing
●ConnectionオブジェクトをNothing
といったかんじです。

クエリの結合は、Right Join , Left Join , Inner Join について
調べてみてください。
MS Accessをお持ちなら、クエリをWizardで作らせて見るのもいいかもしれません。

★ - VBとアクセス - ore 08/13-21:20No.4
• Re: VBとアクセス - Say 08/13-21:24 No.6
  • Re^2:（解決&お礼） VBとアクセス - オレ 08/13-21:28 No.9