tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: csv→mdbへのインポート
投稿日: 2008/04/08(Tue) 07:55
投稿者YK
こんにちは。

> VB6.0でcsvをmdbにインポートは出来るのでしょうか?
> 一括で変換する方法はありますでしょうか?

サンプルです。

Sub MdbInsertTEST()
    Dim strMDB  As String
    Dim strSQL  As String
    Dim strCSV  As String
    Dim strPath As String
    Dim TblName As String
    Dim adoConn As ADODB.Connection

    strMDB = "D:\TEST.mdb"      'MDB のFullPath
    strCSV = "TEST.CSV"         'CSV File 名
    strPath = "D:\TEST\"        'CSV File の Path
    TblName = "T_TEST"          'Table 名
    
    strSQL = "INSERT INTO " & TblName & " " & _
             "SELECT * FROM [" & strCSV & "] IN '" & strPath & "' " & _
             "'Text;HDR=YES'"
        
    Set adoConn = New ADODB.Connection
    
    With adoConn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & strMDB
        .Open
        .Execute strSQL
    End With

    adoConn.Close
    Set adoConn = Nothing
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。