Excel VBA で CSVファイル を SQL Server に登録してみる

環境はWin10 Pro x64 + Excel2013 x32 + SQL Server 2016 Express x64

使用したデータはこちら郵便番号検索の17ISHIKA.CSV。

使用したテーブルはこちら

検索してみると native driver 使ってる例が多いんだけど、odbcで試してみる

CSVのバリデーションチェックは　どういうのがいいんだろうなぁ・・・

Connection.CursorLocation = adUseClient の記述がないと Recordset.RecordCount = -1 に固定となること位かな？

メモなので　必要な部分のみ抜き出し（transaction 位　書けとも思うが）

    Dim adoCon      As ADODB.Connection
    Dim adoRst      As ADODB.Recordset
    Dim vAry        As Variant
    Dim host        As String
    Dim user        As String
    Dim pass        As String
    Dim conn        As String
    Dim strSQL      As String
    Dim fd          As Integer
    Dim strLine     As String
    Dim fName       As String

    host = "SQLSVODBC32"    'コンパネから odbc 32bit で設定
    user = "userName"
    pass = "passwd"
    fName = "/path/to\17ISHIKA.CSV"
    fd = FreeFile

    conn = "DSN=" & host & ";UID=" & user & ";PWD=" & pass
    Open fName For Input As #fd

    Set adoCon = New ADODB.Connection
    adoCon.ConnectionString = conn
    adoCon.CursorLocation = adUseClient

    Call adoCon.Open
    strSQL = "TRUNCATE TABLE POSTAL"
    Call adoCon.Execute(strSQL, 0)

    While Not EOF(fd)
        Line Input #fd, strLine

        strLine = Replace(strLine, """", "")
        vAry = Split(strLine, ",")
        strSQL = "INSERT INTO POSTAL (POSTAL, CITY, ADRLINE1) VALUES "
        strSQL = strSQL & "('" & Trim(vAry(2)) & "','" & Trim(vAry(7)) & "','" & Trim(vAry(8)) & "')"
        Call adoCon.Execute(strSQL, 0)
    Wend

    adoCon.Close
    Set adoCon = Nothing
    Close #fd