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µÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......