buschange.frm

换乘的vb代码 很有用哦 大家快看看吧

                                Set rs = cmd.Execute
                                Do While Not rs.EOF
                                    If rs("SiteName").Value = bussite(l) Then           '公交线路换乘
                                        BusSelect.BusList1.AddItem "您可以先乘坐第" & BusfirstName(i) & "公交车"
                                        BusName(0) = BusfirstName(i)
                                        BusSelect.BusList1.AddItem "接着转乘第" & BuslastName(k) & "车即可到达目的"
                                        BusName(1) = BuslastName(k)
                                        Exit Sub
                                    End If
                                    rs.MoveNext
                                Loop
                            Next
                        Else       '无此站点
                            MsgBox "没有" & BusSelect.BusTxt2.Text & "站点的相关信息,请您确认是模糊查询还是精确查询", 48, "提示信息"
                            BusSelect.BusTxt2.SelStart = 0
                            BusSelect.BusTxt2.SelLength = Len(BusSelect.BusTxt2.Text)
                            BusSelect.BusTxt2.SetFocus
                            Exit Sub
                        End If
                    Next
                End If
            Next
        Else   '无此站点
            MsgBox "没有" & BusSelect.BusTxt1.Text & "站点的相关信息,请您确认是模糊查询还是精确查询", 48, "提示信息"
            BusSelect.BusTxt1.SelStart = 0
            BusSelect.BusTxt1.SelLength = Len(BusSelect.BusTxt1.Text)
            BusSelect.BusTxt1.SetFocus
        End If
    ElseIf BusSelect.BusOption5.Value = True Then
    
        '先确定有哪些公交车经过站点
        '=========================================================================================================
        cmd.CommandText = "select * from SiteName where SiteName=? order by BusNameID ASC"
        
        '设置para相关属性
        para.Type = adBSTR
        para.Direction = adParamInput
        para.Value = BusSelect.BusTxt1.Text

        '把para添加到参数集
        cmd.Parameters.Append para
        cmd.Parameters(0) = BusSelect.BusTxt1.Text

        '执行command对象
        Set rs = cmd.Execute
        If Not rs.EOF Then
            n = rs.RecordCount
            ReDim BusfirstName(n)
            For i = 0 To n - 1
                BusfirstName(i) = rs("BusName").Value
                rs.MoveNext
            Next
            rs.Close
        '=========================================================================================================

        '然后对每一俩公交车进行排除
        '=========================================================================================================
            For i = 0 To n - 1
                Call connetion
                cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
        
                '设置para相关属性
                para.Type = adBSTR
                para.Direction = adParamInput
                para.Value = BusfirstName(i)

                '把para添加到参数集
                cmd.Parameters.Append para
                cmd.Parameters(0) = BusfirstName(i)

                '执行command对象
                Set rs = cmd.Execute
                through = True
                Do While Not rs.EOF
                    If rs("SiteName").Value = Trim(BusSelect.BusTxt2.Text) Then       '直接到达
                        BusSelect.BusList1.AddItem "您可以直接乘坐第" & BusfirstName(i) & "公交车"
                        Exit Sub
                    Else                                                              '无直接到达
                        through = False
                    End If
                    rs.MoveNext
                Loop
                rs.Close
        '======================================================================================================

        '无直接到达
        '======================================================================================================
                If through = False Then
                    '=============================================================================================
                    Call connetion
                    cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
                    '设置para相关属性
                    para.Type = adBSTR
                    para.Direction = adParamInput
                    para.Value = BusfirstName(i)

                    '把para添加到参数集
                    cmd.Parameters.Append para
                    cmd.Parameters(0) = BusfirstName(i)

                    '执行command对象
                    Set rs = cmd.Execute
                    If Not rs.EOF Then
                        t = rs.RecordCount
                        ReDim bussite(t)
                        For p = 0 To t - 1
                            bussite(p) = rs("SiteName").Value
                            rs.MoveNext
                        Next
                        rs.Close
                    End If
                    For l = 0 To t
                        Call connetion
                        cmd.CommandText = "select * from SiteName where SiteName=? order by BusNameID ASC"
                        '设置para相关属性
                        para.Type = adBSTR
                        para.Direction = adParamInput
                        para.Value = Trim(BusSelect.BusTxt2.Text)

                        '把para添加到参数集
                        cmd.Parameters.Append para
                        cmd.Parameters(0) = Trim(BusSelect.BusTxt2.Text)

                        '执行command对象
                        Set rs = cmd.Execute
                        If Not rs.EOF Then
                            m = rs.RecordCount
                            ReDim BuslastName(m)
                            For j = 0 To m - 1
                                BuslastName(j) = rs("BusName").Value
                                rs.MoveNext
                            Next
                            rs.Close
                            For k = 0 To m - 1
                                Call connetion
                                cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
                                '设置para相关属性
                                para.Type = adBSTR
                                para.Direction = adParamInput
                                para.Value = BuslastName(k)

                                '把para添加到参数集
                                cmd.Parameters.Append para
                                cmd.Parameters(0) = BuslastName(k)

                                '执行command对象
                                Set rs = cmd.Execute
                                Do While Not rs.EOF
                                    If rs("SiteName").Value = bussite(l) Then           '公交线路换乘
                                        BusSelect.BusList1.AddItem "您可以先乘坐第" & BusfirstName(i) & "公交车"
                                        BusName(0) = BusfirstName(i)
                                        BusSelect.BusList1.AddItem "接着转乘第" & BuslastName(k) & "车即可到达目的"
                                        BusName(1) = BuslastName(k)
                                        Exit Sub
                                    End If
                                    rs.MoveNext
                                Loop
                            Next
                        Else       '无此站点
                            MsgBox "没有" & BusSelect.BusTxt2.Text & "站点的相关信息,请您确认是模糊查询还是精确查询", 48, "提示信息"
                            BusSelect.BusTxt2.SelStart = 0
                            BusSelect.BusTxt2.SelLength = Len(BusSelect.BusTxt2.Text)
                            BusSelect.BusTxt2.SetFocus
                            Exit Sub
                        End If
                    Next
                End If
            Next
        Else   '无此站点
            MsgBox "没有" & BusSelect.BusTxt1.Text & "站点的相关信息,请您确认是模糊查询还是精确查询", 48, "提示信息"
            BusSelect.BusTxt1.SelStart = 0
            BusSelect.BusTxt1.SelLength = Len(BusSelect.BusTxt1.Text)
            BusSelect.BusTxt1.SetFocus
        End If
    End If
End Sub

Private Sub BusCmd1_Click()
    
    Call buschang
    
End Sub