¹ØÓÚVBµ÷ÓÃexcel´òÓ¡ÅÅÐòÎÊÌâ
¸÷λVB´ïÈË:
СµÜÓÐÒ»ÎÊÌâ:ÓÃVBµ÷ÓÃEXCEL´òÓ¡±¨±í,ÏÖÒÑʵÏÖ. ÏÖÏëʵÏÖ½«´òÓ¡³öÀ´µÄÊý¾Ý°´ÊýÖµ´óС½øÐÐÉýÐò»ò½µÐòÅÅÁÐ
¼´:´òÓ¡³öÀ´µÄ±¨±íÊÇÅÅÐòºÃÁ˵Ä,ÇëÎʸÃÈçºÎʵÏÖ?
ÒÔÏÂÊÇÎҵĴòÓ¡´úÂë:
On Error Resume Next
Set cnn = New ADODB.Connection '´´½¨Ò»¸öÁ¬½ÓºÍ´ò¿ª Cnn Á¬½Ó
Set rs = New ADODB.Recordset '´´½¨Ò»¸ö¼Ç¼¼¯
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lxryyz.mdb"
sql = "select * from nb where 1=1"
If DTPicker1 <> "" Then
sql = sql & "And timeq>= #" & DTPicker1 & "# "
End If
sql = sql & "And timeq <= #" & DTPicker2 & "# "
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount < 1 Then
MsgBox "²éѯ½á¹ûΪ¿Õ£¬ÇëÐ޸IJéѯÌõ¼þºóÔÙÖ´ÐдËÏî²Ù×÷£¡", vbInformation, "Ìáʾ"
GoTo 100
End If
D
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......