请高手们指教：对后台库表的联合查询语句应怎么写呀？

放弃　发表于：2010-05-23 09:51:15 　

感谢您的关心。

我的原记录表全都放在后台库里，想通过前台窗体对后台库表进行联合查询。不知语句中如何正确表达后台库的“表名”。

Option Compare Database
Dim Rs As ADODB.Recordset
Dim Rs2 As ADODB.Recordset
Dim MYSQL As String

Private Sub Form_Load()

Call 连接

Set Rs = New ADODB.Recordset
    MYSQL = "Select * From 合同表"
    Rs.Open MYSQL, CNN, adOpenKeyset, adLockOptimistic

Set Rs2 = New ADODB.Recordset
    MYSQL = "Select * From 合同明细表"
    Rs2.Open MYSQL, CNN, adOpenKeyset, adLockOptimistic

MYSQL = "SELECT RS.合同编号, RS.客户合同号, RS.客户代号, RS.签订日期, RS.负责人, RS.执行状态," _
       & "RS2.合同编号, RS2.序号, RS2.货品代号, RS2.货品名称, RS2.成品长度, RS2.成品宽度, RS2.规格单位, RS2.合同数量, RS2.计量单位, RS2.单位重量, RS2.单位价格, RS2.价格单位, RS2.合同交期 " _
       & "FROM RS INNER JOIN RS2 ON RS.合同编号=RS2.合同编号;"

Me.RecordSource = MYSQL '即将查询语句作为窗体的记录源内容.

RS.CLOSE

RS2.CLOSE

Set Rs = Nothing
Set Rs2 = Nothing
End Sub
Public Sub 连接()

Dim MYDATA As String
MYDATA = CurrentProject.Path & "\XXC后台" & ".mdb"
Set CNN = New ADODB.Connection

With CNN
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.Open MYDATA
End With

End Sub

Top

陈福祥发表于：2010-05-23 11:00:29

你的 Rs、RS2 是代表一个记录集变量，你在SQL语句里面是不能这样直接使用变量名的。

在SQL语句里，只能使用实实在在的表名或查询名。

语句错误太多，不便一一指出。