使用 Visual Basic 三合一表

Question

所以我使用带有 MS Access 的 Visual Basic 并尝试创建一个表单，这样我就可以 link 将特定表格 Table 添加到 1 Table，显然我遇到了一个错误这条线

Private Sub Form_Load()
Set rsS = New ADODB.Recordset
Set DataGrid1.DataSource = rsS
LoadRs rsS, "SELECT tblfinal.SID AS SID, tblfinal.SN AS SN, tblmidterm.Course AS Course, 
tblprelim.PrelimGrade AS PrelimGrade, tblmidterm.MidtermGrade AS MidtermGrade, 
tblfinal.FInalGrade AS FinalGrade"
FROM ((tblfinal
INNER JOIN tblprelim ON tblfinal.SID = tblprelim.SID)
INNER JOIN tblmidterm ON tblfinal.SID = tblmidterm.SID);"


End Sub

如上所述，我遇到编译错误：“FROM ((tblfinal 和下面的其余部分

处的语法错误

我也在我的数据库中设置了关系

Relationship box

Answer 1

你有一个损坏的 SQL 语句，因为你试图将它分成几行。

Private Sub Form_Load()
    Set rsS = New ADODB.Recordset
    Set DataGrid1.DataSource = rsS
    LoadRs rsS, "SELECT tblfinal.SID AS SID, tblfinal.SN AS SN, tblmidterm.Course AS Course, tblprelim.PrelimGrade AS PrelimGrade, tblmidterm.MidtermGrade AS MidtermGrade, tblfinal.FInalGrade AS FinalGrade FROM ((tblfinal INNER JOIN tblprelim ON tblfinal.SID = tblprelim.SID) INNER JOIN tblmidterm ON tblfinal.SID = tblmidterm.SID);"
End Sub

或者您可以尝试继续行：

Private Sub Form_Load()
    Set rsS = New ADODB.Recordset
    Set DataGrid1.DataSource = rsS
    LoadRs rsS, "SELECT tblfinal.SID AS SID, tblfinal.SN AS SN, " & _
        "tblmidterm.Course AS Course, tblprelim.PrelimGrade AS PrelimGrade,  " & _
        "tblmidterm.MidtermGrade AS MidtermGrade, tblfinal.FInalGrade AS FinalGrade " & _
        "FROM ((tblfinal " & _
        "INNER JOIN tblprelim ON tblfinal.SID = tblprelim.SID) " & _
        "INNER JOIN tblmidterm ON tblfinal.SID = tblmidterm.SID);"
End Sub

使用 Visual Basic 三合一表

3 Tables in 1 using Visual Basic

ms-access

vb6