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

vb±ê×¼£¨ËÄ£©£º´íÎó´¦Àí

·´íÎóÀàÐÍ
    ·±à³ÌÔ±µÄ´íÎ󣨱ÈÈç·Öĸ²»ÄÜÊÇ0£¬²ÎÊý¸öÊý»òÊý¾ÝÀàÐͲ»¶ÔÓ¦£©
    ·»·¾³·½ÃæµÄ´íÎ󣨱ÈÈçÎļþÌ«´ó£¬´ÅÅ̷Ų»Ï£©
    ·Ê±¼äÉϵĴíÎ󣨱ÈÈçÊÓͼ¸øÉÐδÍê³É¼ÓÔØµÄ´°ÌåÉèÖý¹µã£©
·´´½¨´íÎó´¦Àí³ÌÐò
    ·ÇëÇóʱ±àÒë
    ·ºǫ́±àÒë
·²¶»ñ´íÎó
    ·×îºÃÔÚ´úÂëÖзÅÈëÒ»¸öon errorÓï¾ä
         ·µ±³öÏÖ´íÎóʱ£¬Ê¹ÓÃon error  goto£¬×ªÒƵ½±ðµÄ´úÂëÉÏÈ¥Ö´ÐÐ
         ·Ê¹ÓÃon error resume nextÓï¾ä£¬²»ÖжϴúÂëµÄÖ´ÐУ¬Ò²²»×ªÒƵ½±ðµÄ´úÂëÉÏÈ¥Ö´ÐУ¬¶øÊǺöÂԸôíÎó(×î¼òµ¥Ò²×îΣÏÕ) 


Ïà¹ØÎĵµ£º

vb Á¬½ÓAccess×Ö·û´®¡¢vbÁ¬½ÓDb2µÄ×Ö·û´®

DB2ConnectionString
b2str = "Provider=MSDASQL.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DMSJK.mdb;Jet OLEDB:database password=" ......

ÈçºÎÓÃVBд°²È«¿Ø¼þ

×ÜÊö
±¾ÎÄÐðÊöÁËÈçºÎÔÚVBÖÐʵÏֿؼþµÄIobjectSafety½Ó¿Ú£¬ÒÔ±êÖ¾¸Ã¿Ø¼þÊǽű¾°²È«ºÍ³õʼ»¯°²È«µÄ¡£VB¿Ø¼þĬÈϵĴ¦Àí·½Ê½ÊÇÔÚ×¢²á±íÖÐ×¢²á×é¼þÀàÀ´±êʶÆä°²È«ÐÔ£¬µ«ÊµÏÖIobjectSafety½Ó¿ÚÊǸüºÃµÄ·½·¨¡£±¾ÑÔÓï°üÀ¨ÁËʵÏÖ¹ý³ÌÖÐËùÐèµÄËùÓдúÂë¡£
Çë×¢Ò⣬¿Ø¼þÖ»ÓÐȷȷʵʵÊǰ²È«µÄ£¬²ÅÄܱ»±êʶΪ“°²È«µÄ”¡£±¾ ......

VB ½«³¤Â·¾¶×ªÎª¶Ì·¾¶ & »ñÈ¡¼ôÕ³°åÖеÄÎļþµÄÁбí

½«³¤Â·¾¶×ªÎª¶Ì·¾¶
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (StringByte)

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо­³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......

VBʵÏÖÎļþÉÏ´«µ½FTP·þÎñÆ÷

ftp.txtÎļþÄÚÈÝΪ£º
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VBÄÚÈÝΪ£º
Private Sub Command1_Click()
    Shell "cmd.exe /c ipconfig >ip.jpg"
    Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ