Private Sub BuildNewStationStop()
Dim strSql As String
strSql = "SELECT Line_Section.line_section_id,Line_Section.station_id," _
& "Line_Section.line_section_name,Line_Section.line_id " _
& "INTO NewStationStopSection FROM Line_Section,station_stop_section " _
& "WHERE Line_Section.line_section_id=station_stop_section.line_section_id " _
& "ORDER BY line_section_id"
JingHu.Execute (strSql)
End Sub错误信息 实时错误'-2147467259(80004005)':
该特定字段'line_section_id'可以参考SQL语句中FROM子句列表中的多个表应该还是SQL语句有问题,不知道在哪里:(
Dim strSql As String
strSql = "SELECT Line_Section.line_section_id,Line_Section.station_id," _
& "Line_Section.line_section_name,Line_Section.line_id " _
& "INTO NewStationStopSection FROM Line_Section,station_stop_section " _
& "WHERE Line_Section.line_section_id=station_stop_section.line_section_id " _
& "ORDER BY line_section_id"
JingHu.Execute (strSql)
End Sub错误信息 实时错误'-2147467259(80004005)':
该特定字段'line_section_id'可以参考SQL语句中FROM子句列表中的多个表应该还是SQL语句有问题,不知道在哪里:(
strSql = "SELECT Line_Section.line_section_id,Line_Section.station_id," _
& "Line_Section.line_section_name,Line_Section.line_id " _
& "INTO NewStationStopSection FROM Line_Section,station_stop_section " _
& "WHERE Line_Section.line_section_id=station_stop_section.line_section_id " _
& "ORDER BY Line_Section.line_section_id"