¹«½»²éѯϵͳµÄÉè¼ÆÓëʵÏÖ

5.2.2»»³ËËã·¨

µ±Á½¸öÏß·ûÓн»²æ²¿·ÖµÄʱºò¾Í±ØÐë»»³Ë£¬ÓÐʱºò»»³ËÒ»´Î¾ÍÄܹ»µ½´ïÄ¿µÄµØ£¬ÓÐʱºòÐèÒª»»³Ë¶à´Î²ÅÄܵ½´ïÄ¿µÄµØ¡£

¸ù¾Ý³öÐÐÕßÊäÈëµÄÆðµãºÍÖյ㣬ȷ¶¨³öÐÐҪѡÔñµÄÆðʼ¹«½»Õ¾µãAºÍÄ¿µÄ¹«½»Õ¾µãB¡£ËÑË÷Êý¾Ý¿â£¬²éѯվµãAºÍÕ¾µãBÖ®¼äÊÇ·ñÓÐÏàͬµÄ³µ¾­¹ý£¬Èç¹ûÓÐÒ»Ìõ»ò¼¸ÌõÖ±´ïÏß·£¬Í¨¹ý±È½ÏÑ¡Ôñ¾àÀë×î¶ÌµÄ¹«½»ÏßÂ·ÍÆ¼ö¸ø³öÐÐÕß¡£Èç¹ûûÓУ¬Ôò¼ÆËãÕ¾µãAºÍÕ¾µãBÖ®¼äÓÐûÓÐÒ»¸ö¹«¹²Õ¾µãC£¬´ÓÕ¾µãC¿ÉÒÔ»»³Ëµ½´ïÕ¾µãB¡£

Õâ¾ÍÓÐÁ½ÖÖÇé¿ö£º(1)Èç¹ûÓУ¬ÊôÓÚÒ»´Î»»³Ë¡£¼ÆËãÕ¾µãAºÍ¹«¹²Õ¾µãCÖ®¼äÓÐûÓÐÏàͬµÄ¹«½»³µ¾­¹ý²¢´æÈ뼯ºÏX£»Í¬Ñù£¬¼ÆËãÕ¾µãBºÍ¹«¹²Õ¾µãCÖ®¼äÓÐûÓÐÏàͬµÄ¹«½»³µ¾­¹ý²¢´æÈ뼯ºÏY¡£½«ÕâÁ½¸ö¼¯ºÏ±È½Ïºó¾Í¿ÉÒԵõ½´ÓÕ¾µãA¾­¹ý¹«¹²Õ¾µãCµ½´ïÕ¾µãBµÄ¹«½»Ïß·£¬ÔÚÕâЩÏß·ÖнøÐбȽϣ¬Ñ¡Ôñ¾àÀë×î¶ÌµÄÍÆ¼ö¸ø³öÐÐÕß¡££¨2£©Èç¹ûûÓй«¹²Õ¾µãC£¬¾Í³öÏÖÁËÒª»»³ËÁ½´ÎµÄÇé¿ö¡£½«¾­¹ýÕ¾µãAµÄÿÌõ¹«½»Ïß·µÄËùÓÐÕ¾µã´æÈ뼯ºÏO£»Í¬Ñù£¬¾­¹ýÕ¾µãBµÄÿÌõÏß·µÄËùÓÐÕ¾µã´æÈ뼯ºÏP¡£±È½ÏÕâÁ½¸ö¼¯ºÏ£¬Ïȳ˾­¹ýÕ¾µãAµÄijһ·³µµ½´ïijһվµãD£¬¼ÆËãÕ¾µãDÓëÕ¾µãBÖ®¼äÓÐûÓй«¹²Õ¾µãE,Èç¹ûÓÐÔòÕ¾µãD¡¢EΪ»»³ËÕ¾µã¡£ÕâÖÖ·½°¸¿ÉÄÜÓжàÖÖ£¬±È½ÏÑ¡Ôñ¾àÀë×î¶ÌµÄÍÆ¼ö¸ø³öÐÐÕß¡£Èç¹û²»´æÔÚ¹«¹²Õ¾µãE£¬ËµÃ÷¾­¹ýÁ½´Î»»³ËÎÞ·¨´ÓÕ¾µãAµ½´ïÕ¾µãB£¬Í£Ö¹ËÑË÷¼ÆËã ? Ö±´ïËã·¨£º

µ±Á½¸öÕ¾µãÖ®¼äÓÐÖ±´ïÌõ¼þµÄʱºòÊDz»ÐèÒª½øÐл»³ËµÄ£¬¿ÉÒÔͨ¹ý²éѯʵÏÖÖ±´ï£¬Ö±´ïË㷨ΪÔÚÆðʼվµãºÍÄ¿µÄÕ¾µãÑ¡ÔñÒ»Ìõ²»Óû»³ËµÄ³µ´ÎÏß·¡£ÔÚÏß·±íÖвéÕÒÆäʵվµãµÄ³µÁ¾£¬ÐγÉÏß·A£¬ÔÚÔÚÏß·±íÖвéÕÒÄ¿µÄÕ¾µã£¬ÐγÉÏß·B£¬Ïß·AºÍÏß·B½øÐбȽϣ¬µ±Ïß·AºÍÏß·BÖÐÓÐÏཻµÄ²¿·Öʱºò˵Ã÷ÓÐÖ±´ïÏß·£¬·ñÔòÎÞÖ±´ïÏß·£¬ÐèÒª»»³Ë³µ´Î¡£

ÔÚSQlÖеĴúÂëÈçÏ£º select Õ¾µã from

(select Õ¾µã from Ïß·±í) A, (select Õ¾µã from Ïß·±í) B where A.Ïß· = B.Ïß·

? Ò»´Î»»³Ë

¸ù¾ÝÖ±´ïËã·¨£¬Ëã³öÆðʼվµÄËùÓгµÁ¾ÐÅÏ¢A£¬Í¬ÑùµÄ·½Ê½Ëã³öÄ¿µÄÕ¾µãËùÓгµÁ¾ÐÅÏ¢B£¬È»ºóͨ¹ýAÓëBÔÚÏß·¾­¹ýÕ¾µã±íÖнøÐбȶԣ¬ÕÒ³öAÓëBÏཻµÄ²¿·ÖC£¬ÓÉÓÚûÓÐÖ±´ïµÄ³µÁ¾£¬ËùÒÔCΪAÓëBÕ¾µãÏཻµÄÐÅÏ¢¡£Òò´Ë³Ë¿ÍÈôÐèÒª´ÓÆäʵվµãµ½´ïÄ¿µÄÕ¾µãÐèÒªÔÚÏཻÐÅÏ¢´æÔÚµÄÕ¾µãϳµ£¬²¢ÔٴγË×øB³µÁ¾ÐÅÏ¢Ëù°üº¬µÄ³µÁ¾²ÅÄܵ½´ïÄ¿µÄµØ¡£

select Õ¾µã from (

select distinct Õ¾µãfrom Ïß·±í whereÏß·ºÅ in (selectÏß·ºÅ from Ïß·¹ýÕ¾±íwhere Õ¾µã = Æðʼվµã) )A, (

select distinct Õ¾µãfrom Ïß·±í whereÏß·ºÅ in (selectÏß·ºÅ from Ïß·¹ýÕ¾±íwhere Õ¾µã = Æðʼվµã) )B

where A.stop_id= B.stop_id

¶à´Î»»³ËÖ÷ÒªËã·¨´úÂëÈçÏ£º Private Sub Command1_Click() Dim rs As New ADODB.Recordset '¾­¹ýÆðµãAµÄÏß· Dim ArrS() As String Dim ArrE() As String

rs.Open \Ïß· from Ïß·¹ýÕ¾±í where Õ¾µãÃû³Æ='\& \

Set MSH(0).DataSource = rs

If rs.EOF = True Then

MsgBox \ûÓпɴïÏß·£¡\ rs.Close Exit Sub End If rs.Close Text1.Text = \

Dim intMaxCol As Integer

rs.Open \Ïß· from Ïß·¹ýÕ¾±í where Õ¾µãÃû³Æ='\& \

Set MSH(1).DataSource = rs If rs.EOF = True Then

MsgBox \ûÓпɴïÏß·£¡\ rs.Close Exit Sub End If rs.Close

Dim strFA As String Dim intFA As Integer intFA = 1

For i = 1 To MSH(0).Rows - 1

rs.Open \* from Ïß·¹ýÕ¾±í where Ïß· ='\& Trim(MSH(0).TextMatrix(i, 0)) & \Õ¾µãÐòºÅ desc\ If rs.EOF = False Then

ReDim ArrS(rs.RecordCount - 1) rs.MoveFirst

For k = 0 To rs.RecordCount - 1

ArrS(k) = Trim(rs.Fields(\Õ¾µãÃû³Æ\ rs.MoveNext Next rs.Close

For j = 1 To MSH(1).Rows - 1

If Trim(MSH(0).TextMatrix(i, 0)) = Trim(MSH(1).TextMatrix(j, 0)) Then

strFA = \³Ë×ø \Ö±´ï\

Text1.Text = Text1.Text & intFA & \ intFA = intFA + 1 strFA = \ Else

rs.Open \* from Ïß·¹ýÕ¾±í where Ïß· ='\& Trim(MSH(1).TextMatrix(j, 0)) & \Õ¾µãÐòºÅ desc\

If rs.EOF = False Then

ReDim ArrE(rs.RecordCount - 1) rs.MoveFirst

For k = 0 To rs.RecordCount - 1

ArrE(k) = Trim(rs.Fields(\Õ¾µãÃû³Æ\ rs.MoveNext Next rs.Close strFA = \

For m = 0 To UBound(ArrS) For n = 0 To UBound(ArrE) If ArrS(m) = ArrE(n) Then strFA

=

\

³Ë

×ø

\

&

ÁªÏµ¿Í·þ£º779662525#qq.com(#Ìæ»»Îª@)