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

¹ØÓÚ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


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

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

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

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ