アクセスにタブ区切りテキストデータをアップロードするプログラムの例(VB)
一切動作を保証しません!
Function LoadData(db1, TBL, FileName) As Boolean
Dim conn As New ADODB.Connection
Dim SQL As String
Dim RS As New ADODB.Recordset
Dim count As Long
Dim cnt
Dim Line As String
LoadData = True
On Error GoTo FileError
DBNAME = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db1
conn.Open DBNAME
Open FileName For Input As #1
SQL = "SELECT * FROM " & TBL
RS.Open SQL, conn, 3, 2
cnt = 0
Do Until EOF(1)
Line Input #1, Line
Lst = Split(Line, Chr$(9))
I = 0
RS.AddNew
Do Until I > UBound(Lst)
Data = Lst(I)
If Data <> "" Then
L = Len(Data)
'If Mid(Data, L, 1) = "-" Then
' Data = "-" & Mid(Data, 1, L - 1)
'End If
RS.Fields(I) = Data
End If
I = I + 1
Loop
cnt = cnt + 1
Loop
Close #1
RS.Update
RS.Close
conn.Close
Set conn = Nothing
Set RS = Nothing
Exit Function
FileError:
Msg$ = Error$(Err)
MsgBox Msg$
LoadData = False
End Function