Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb ado¿Ø¼þ²éѯÎÊÌâ

Adodc2.RecordSource = "select * from ±ÏÒµÖ¤ÐÅÏ¢±í where ÐÕÃû in('" & List1.List(List1.ListIndex) & "')"
Õâ¾ä´úÂëÔõô´íÁ˰¡ ÎÒÏëʵÏÖ²éѯÃû×ÖÔÚlistboxÄÚµÄËùÓÐÈËÔ±ÐÅÏ¢
VB code:

Dim i As Integer
Dim strNames As String

strNames = ""

For i = 1 To List1.ListCount
strNames = ",'" & List1.Text & "'"
Next i
strNames = Right(strNames, Len(strNames) - 1)
If Len(strNames) = 0 Then
Exit Sub
End If

Adodc2.RecordSource = "select * from ±ÏÒµÖ¤ÐÅÏ¢±í where ÐÕÃû in(" & strNames & ")"



in()À¨ºÅÄڵĸ÷ÔªËØÒªÓöººÅ¸ô¿ª

VB code:
Private Sub Command1_Click()
Dim i As Long, strTmp As String

For i = 0 To List1.ListCount-1
strTmp = IIf(strTmp = "", "'" & List1.List(i) & "'", strTmp & ",'" & List1.List(i) & "'")
Next i

Adodc2.RecordSource = "select * from ±ÏÒµÖ¤ÐÅÏ¢±í where ÐÕÃû in(" & strTmp & ")"
End Sub



Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

²ËÄñѧVB£¬

²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail.  huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾­³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.

¶¯ÊÖʵ¼ùд´úÂë,¾­³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......

VBµ÷ÓÃUsb7kC.dll

¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll

³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ
Ô­ÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨

´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß· ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ