VBµ÷ÓÃinetÏòlinuxÉÏ´«ÎĵµµÄÎÊÌâ¡£Çë´ó¼Ò°ï棡
URL.TextÊÇftp://xzdx:123456@192.168.0.20,ÓÃxzdzÓû§µÇ½linuxµÄĬÈÏ·¾¶ÊÇ/home/xzdz£¬Èç¹û²»¸ü¸ÄlinuxĬÈÏ·¾¶£¬ÔÚVBÖÐʵÏÖ·¾¶µÄ¸ü¸Ä£¬ÀýÈçתµ½/home/abc/bin¸ÃÈçºÎʵÏÖ£¬ÒÔÏÂÊÇĬÈÏ·¾¶ÉÏ´«µÄ´úÂ룬Çë´óÏÀÃÇ¿´¿´Ó¦¸ÃÈçºÎ¸ü¸Ä·¾¶£¬Ð»Ð»£¡
Private Sub cmdSend_Click()
Dim myfilepath As String
myfilepath = File1.Path & "\" & File1.FileName
StateStyle = 1
Inet1.Execute URL.Text, "SEND" & myfilepath & " " & File1.FileName
MsgBox "ÉÏ´«Òѳɹ¦£¡", , "ϵͳÌáʾ"
StateStyle = 0
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = 21
Inet1.Execute URL.Text£¬¡°DIR¡±
End Sub
´óÏÀ¶¼¹ýÄêÈ¥Á˰¡ £¬ÔõôÕâô¶àÌ춼ûÈ˻ظ´
inet Ã²ËÆ²»³É¡£»»¸öftpµÄ£¬ËÑË÷ChilkatFTP£¬Óиö°æ±¾ÊÇÃâ·ÑµÄ¡£
лл¥ÉÏ£¬×Ô¼º¶¥Ò»Ï£¬inet²»ÄÜʵÏÖÂð£¿
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ÈçÌ⣬ÔÚWINDOWSµ×ϵÄCODE»á£¬µ«ÔÚLINUXϲ»ÖªµÀÈçºÎʵÏÖ£¬JSµÄ´úÂëÓ¦¸ÃÊDz»Ò»ÑùµÄ¡£ Çó½Ì¡£
·Ö²»¹»ÔÙ¼Ó¡£
http://topic.csdn.net/u/20100113/08/17ba1e71-4c33-43f6-91a5-0e031c86e5ed.html
linux ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......