Public g_Conn As Connection Public rs As Recordset
Private Sub Form_Load() Set g_Conn = New Connection Dim strDBPath As String, strSQL As String strDBPath = "http://xxx/xxx.mdb" With g_Conn .CursorLocation = adUseClient .CommandTimeout = 10 .ConnectionString = "Èç¹û¿ÉÒÔ£¬Õâ´®×Ö·û´úÂëÓ¦¸ÃÔõÃ´Ð´ÄØ£¿" .Open End With strSQL = "select * from user" Set rs = g_Conn.Execute(strSQL) End Sub²»¿ÉÒÔ¡£ ACCESSÊÇÎļþÐÍÊý¾Ý¿â£¬Ò²¾ÍÊÇ˵Äã±ØÐëÈ¡µÃ¸ÃÎļþµÄ¶ÁдȨÏÞ¡£ http: xxx.mdb ÕâÖÖ²¢²»ÊÇÎļþ·ÃÎÊ¡£
ÄÇÈç¹û¸ÄÓà ftp://xxx/xxx.mdb £¬ÄÜÐÐÂ𣿠ÓÑÇé°ï¶¥¡¡ ²»¿ÉÒÔ£¬¶ÀÁ¢Ö÷»ú¿ÉÒÔÓÃsql server ÓÃftpÒ²²»ÐУ¬ftpÔÊÐíÄ㿽±´.mdbµÄÒ»¸ö¸±±¾µ½±¾µØ£¬Äã¿ÉÒÔÔÚ±¾µØ·ÃÎÊÕâ¸ö.mdbµÄ¸±±¾£¬ÎÒÏëÕâ²¢²»ÊÇÄãÏëÒªµÄЧ
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
dim a as string,b as string£¬c as string a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ" b="µ¥Î»¹¤³ÌÃû³Æ" c="µ¥Î»" Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®