Question

VB怎样用SQL查询关联表

Access数据库中两个表，怎样做关联查询？
如图所示，主表中都是代号，要将代号表示内容（在用户表和去向表中）加载到一个ListView，怎样实现？

Answer 1

'写一个供参考，未测试
Private Sub Command1_Click()

    '注意，需要引用ADO对象，就是Microsoft ActiveX Data Objects 2.0 Library   或更高的版

    Dim Lvt As ListItem

    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "列1"
    ListView1.ColumnHeaders.Add , , "列2"
    ListView1.ColumnHeaders.Add , , "列3"
    ListView1.ColumnHeaders.Add , , "列4"
     
    Dim Cn         As New ADODB.Connection

    Dim DBFileName As String
     
    DBFileName = " 这个是Access的文件名"
    Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + DBFileName
    Cn.Open
     
    Dim Reco As New ADODB.Recordset
     
    Dim SQL  As String
    
    '下面是SQL语句
     
    SQL = "select 用户表.用户代号,用户表.用户名称,去向表.去向代号,去向表.去向名称 "
    SQL = SQL & "from 用户名 inner join 用户表.用户代号=主表.用户代号 inner join 去向表  on 主表.去向代号=去向表.去向代号 "
      
    Reco.Open SQL, Cn
      
    Do While Not Reco.EOF
        Set Lvt = ListView1.ListItems.Add(, , , Reco("用户代号") & "")   'ListView1中新增一行

        Lvt.SubItems(1) = Reco("用户名称") & ""
        Lvt.SubItems(1) = Reco("去向代号") & ""
        Lvt.SubItems(1) = Reco("去向名称") & ""
      
        Reco.MoveNext
    Loop
      
    Reco.Close
    Cn.Close
   
End Sub

追问

还是没弄通。