¹ØÓÚ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
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......