能帮我写一个例子呀，是这样的，如：有一个数据库（db.mdb）中有一个表为employee（员工基本资料

Question

adodc.recordstring="select * from b1 Join inner b2 as b2.id=b1.id"

Answer 1

Select * From employee Inner Join Base ON employee.工号=Base.工号

Answer 2

好像不可以。下面为我的代码：
'==========================================
Option Explicit
'Dim rstdh_codedict As ADODB.Recordset
Dim rstFind As ADODB.Recordset
Dim rstFind2 As ADODB.Recordset
Dim temp1 As ADODB.Recordset
Public main_ztname As String
Public main_path As String
Public Gcomputername As StringPublic MYCON As ADODB.ConnectionPrivate Sub Command1_Click()    main_path = App.Path
    main_ztname = main_path & "\MYDB.mdb"
    Set MYCON = New ADODB.Connection
    MYCON.CursorLocation = adUseClient
    MYCON.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;data source=" & main_ztname & ";jet oledb:database password=828"
   
         Set rstFind = New ADODB.Recordset
         Set rstFind2 = New ADODB.Recordset
 '暂停 rstFind.Open "select id,krz_id,xm,rq,jfje,DFJE into temp1 from krmxz", MYCON, adOpenStatic, adLockReadOnly
 '暂停 rstFind2.Open "select id,krxm,krda_id from krz", MYCON, adOpenStatic, adLockReadOnly
 '暂停 rstFind2.Open "select id,krxm,krda_id update temp1 from krz", MYCON, adOpenStatic, adLockReadOnly 
 rstFind2.Open "select * from krz inner join krmxz on krz.id  =krmxz.id", MYCON, adOpenStatic, adLockReadOnly
 
 rstFind.Open "select * from krmxz", MYCON, adOpenStatic, adLockReadOnly     
                   
       ReportMod.Sections(3).Controls("text2").DataField = "dfje"
       ReportMod.Sections(3).Controls("text2").Visible = True
       ReportMod.Sections(3).Controls("text1").DataField = "krxm"
       ReportMod.Sections(3).Controls("text1").Visible = True
       ReportMod.Sections(3).Controls("text3").DataField = "fh"
       ReportMod.Sections(3).Controls("text3").Visible = True
       ReportMod.Sections(3).Controls("text4").DataField = "rq"
       ReportMod.Sections(3).Controls("text4").Visible = True
                   
                Set ReportMod.DataSource = rstFind
                ReportMod.Show'显示报表窗体
End Sub'==========================================看能不能帮我改改代码，谢谢。

Answer 3

对在同一个数据库中两个表内的项进行查询操作的问题我已经解决了，正确代码如下：
下面为我的代码： Dim rstFind As ADODB.Recordset
Public main_ztname As String
Public main_path As String
Public MYCON As ADODB.ConnectionPrivate Sub Command1_Click()
Dim SqlStr As String
    main_path = App.Path
    main_ztname = main_path & "\MYDB.mdb"
    Set MYCON = New ADODB.Connection
    MYCON.CursorLocation = adUseClient
    MYCON.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;data source=" & main_ztname & ";jet oledb:database password=828"
   
         Set rstFind = New ADODB.Recordset SqlStr = "select * from krmxz LEFT  JOIN (select * from  krz) as krz  on krz.id  =krmxz.id"    '关键是这一句 rstFind.Open SqlStr, MYCON, adOpenStatic, adLockReadOnly
               Set ReportMod.DataSource = rstFind
   With ReportMod 
     ReportMod.Sections(3).Controls("text2").DataField = "dfje"
     ReportMod.Sections(3).Controls("text2").Visible = true
     ReportMod.Sections(3).Controls("text1").DataField = "krxm"
     ReportMod.Sections(3).Controls("text1").Visible = True
     ReportMod.Sections(3).Controls("text3").DataField = "fh"
     ReportMod.Sections(3).Controls("text3").Visible = True
     ReportMod.Sections(3).Controls("text4").DataField = "rq"
     ReportMod.Sections(3).Controls("text4").Visible = True
   End With
     ReportMod.Show
End Sub
'=================================================现在有新的问题了，如果是在两个不同的数据库中的表进行查询操作，如何处理了。  "select * from AA表 LEFT JOIN (select * from  BB表) as BB表  on BB表.id  =AA表.id"     关键还是这一句如何改了。假如说AA库是在数据库mydb.mdb中，BB表在mydb2.mdb中
就肯定不是上面这句语句了。请各位指教。。QQ：40218719 

Answer 4

"select * from AA表 left join BB表 on BB表.id=AA表.id"