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µÄ¸±±¾£¬ÎÒÏëÕâ²¢²»ÊÇÄãÏëÒªµÄЧ
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......