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 & "
Ïà¹ØÎÊ´ð£º
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
ÕжÔÈÕVB¹¤³Ìʦ
ÒªÇó¶þÄêÒÔÉϵÄVB¾Ñé
Óйý¶ÔÈÕÏîÄ¿µÄ×îºÃ£¬ÄÜ¿´¶®ÈÕÓïµÄ
ÓкÏÊʵķ¢¼òÀúµ½ÓÊÏäxiaocm2004@163.com
¸çÃÇ
´óÁ¬ÓÐÄãµÄµØÅÌÂð£¿
VBû×ö¹ýÕ¦Õû£¡
VB6µ¹ÊÇûÎÊÌ⣬¿Éϧ²»¶®ÈÕ ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......