VB で データベース ホームページ

ADO でインターネット上のファイルを読み込む

概要

ADO は Saveメソッドで保存したファイルをインターネット上から読み込むことが可能です。
ファイルはあらかじめFTPなどでインターネット上に転送しておく必要があります。
Saveメソッドの利用方法は 「ADO でレコードセットをファイルに保存する」からご覧ください。

サンプル

「プロジェクト」-「参照設定」
[Microsoft ActiveX Data Objects 2.X Library] のチェックをオンにする必要があります。

　ADO でインターネット上のファイルを読み込む

Option Explicit
Private Sub cmdOpen_Click()

    Dim rsNet As Object
     Dim strURL As String
     
    ' アドレスを指定（以下のURLにサンプルデータがあります）
    strURL = "http://homepage2.nifty.com/inform/vbdb/bookmark.dat"
    
    ' インターネット上のファイルを開く
    Set rsNet = CreateObject("ADODB.Recordset")
    rsNet.Open strURL, "Provider=MSPersist"
    
    Do While Not rsNet.EOF
    
        Debug.Print rsNet.Fields("名称").Value
        Debug.Print rsNet.Fields("アドレス").Value
        Debug.Print rsNet.Fields("登録日").Value
    
        rsNet.MoveNext
    Loop
         
    rsNet.Close ' 閉じる

End Sub


VB で データベース ホームページ

©2000 VBMANIA