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

VBʵÏÖ¶ÔÁ½ÕÅÊý¾Ý¿â±íµÄ¸´ºÏ²éѯ

ÓÐÁ½¸öÊý¾Ý±ítable1ºÍtable2,table1ÓÐÈý¸ö×ֶΡ°Èë¿âµ¥ºÅ¡±£¬¡°²Ö¿â¡±£¬¡°¹©Ó¦ÉÌ¡±£¬table2Ò²¶ÔÓ¦Èý¸ö×ֶΡ°Èë¿âµ¥ºÅ¡±£¬¡°ÉÌÆ·Ãû³Æ¡±£¬¡°ÊýÁ¿¡±£¡

    ÓÐÒ»¸ö½çÃæ£¬ÓÐÎå¸ö¸´Ñ¡¿ò°´Å¥£¬check1¶ÔÓ¦Îı¾¿ò1£¨Èë¿âµ¥ºÅ£©£¬check2¶ÔÓ¦Îı¾¿ò2£¨²Ö¿â£©£¬check3¶ÔÓ¦Îı¾¿ò3£¨¹©Ó¦ÉÌ£©£¬check4¶ÔÓ¦Îı¾¿ò4£¨ÉÌÆ·Ãû³Æ£©£¬check5¶ÔÓ¦Îı¾¿ò5£¨ÊýÁ¿£©£¬ÅÔ±ßÓÐÒ»¸ö²éѯ°´Å¥£¬´°Ìå¼ÓÔØÊ±£¬Èë¿âµ¥µÄÄÚÈÝÏÔʾÔÚdatagrid1ÖУ¬È»ºóÆäÈë¿âµ¥ºÅ¶ÔÓ¦µÄtable2ÄÚÈÝÏÔʾÔÚdatagrid2ÖУ¬ÏÖÔÚ¸ù¾Ý×ۺϲéѯÈòéѯµÄ½á¹û£¬ÔÚdatagrid1ºÍdatagrid2ÖÐÏÔʾ³öÀ´£¿
   
 
ÏÖÔÚµÄÎÊÌâÊÇÈçºÎд¸´ºÏ²éѯµÄÓï¾äѽ£¿ÎÒ²âÊÔÁ˺þ㬶¼²»ÄÜʵÏÖÎÒµÄÒªÇó£¿
Dim str11 As String
Dim str12 As String
Dim ww
dim t
str11 = "select  *  from table1  where 1=1"
str12 = "select  *  from table2  where 1=1"
If Check1.Value = 1 Then                                  'Ñ¡Öи´Ñ¡¿ò1£¬½«¸ù¾Ýµ¥ºÅµÄ²éѯÌõ¼þ¼Óµ½²éѯÓï¾äÖÐ
str11 = str11 & " and  Èë¿âµ¥ºÅ= '" & text1.Text & "'  "
End If
If Check2.Value = 1 Then                                  'Ñ¡Öи´Ñ¡¿ò2£¬½«¸ù¾Ý²Ö¿âµÄ²éѯÌõ¼þ¼Óµ½²éѯÓï¾äÖÐ
str11 = str11 & " and  ²Ö¿â= '" & text2.Text & "&#


Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

vb²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

vb²åÈëÊý¾Ý¿âÖØ¸´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ