ゲスト様は
このギルドの
訪問者
です。
参加ギルド
ゲスト様ようこそ～！
☈☇電脳コイル☇☈
その他---------------
新設
2010/10/23
メンバー
2
今日
参加
0
訪問
361
自由掲示板
No.
2
作成者
TAKETEN
登録日
2011/05/20
照会
9
タイトル
sample_vbs2 アクセスのテーブルに自動でデータを取り込む
拡張子 vbsで保存して実行
ここから最後までコピーしてテキストに貼り付け
'Import a .CSV File into an Access Database
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const ForReading = 1
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = c:scriptstest.mdb"
objRecordSet.Open "SELECT * FROM UserServiceRecord", _
objConnection, adOpenStatic, adLockOptimistic
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:ScriptsUserServiceRecord.csv")
Do Until objFile.AtEndOfStream
strUserServiceRecord = objFile.ReadLine
arrUserServiceRecord = Split(strUserServiceRecord, ",")
'は￥のこと
'エラーは出ないが使うと一行ゴミが付加される On Error Resume Next
On Error Resume Next'エラーを無視する
'ここからがアクセスのテーブルに取り込む内容
'UserServiceRecordとはテーブルの名前
' "で囲まれたのは(" ")列名(フィールド名)それぞれのテーブルに依存
'アクセスのテーブルの設定を文字数、空文字許可、数値・テキストなどの設定（定義）
'を確実に行わないとエラーメッセージが出ます＾＾；；
objRecordSet.AddNew
objRecordSet("reservation_no") = arrUserServiceRecord(0)
objRecordSet("registered_date") = arrUserServiceRecord(1)
objRecordSet("gid") = arrUserServiceRecord(2)
objRecordSet("sid") = arrUserServiceRecord(3)
objRecordSet("pay") = arrUserServiceRecord(4)
objRecordSet("total") = arrUserServiceRecord(5)
objRecordSet("delivery") = arrUserServiceRecord(6)
objRecordSet("all_total") = arrUserServiceRecord(7)
objRecordSet("point") = arrUserServiceRecord(8)
objRecordSet("cash") = arrUserServiceRecord(9)
objRecordSet("lastname") = arrUserServiceRecord(10)
objRecordSet("firstname") = arrUserServiceRecord(11)
objRecordSet("lastnameKana") = arrUserServiceRecord(12)
objRecordSet("firstnameKana") = arrUserServiceRecord(13)
objRecordSet("HealthInsuranceNumber") = arrUserServiceRecord(14)
objRecordSet("company") = arrUserServiceRecord(15)
objRecordSet("employeeId") = arrUserServiceRecord(16)
objRecordSet("email") = arrUserServiceRecord(17)
objRecordSet("zipCode") = arrUserServiceRecord(18)
objRecordSet("otodokesaki") = arrUserServiceRecord(19)
objRecordSet("address") = arrUserServiceRecord(20)
objRecordSet("u_lastname") = arrUserServiceRecord(21)
objRecordSet("u_firstname") = arrUserServiceRecord(22)
objRecordSet("u_lastnameKana") = arrUserServiceRecord(23)
objRecordSet("u_firstnameKana") = arrUserServiceRecord(24)
objRecordSet("tel") = arrUserServiceRecord(25)
objRecordSet("bikou") = arrUserServiceRecord(26)
objRecordSet("foot_size") = arrUserServiceRecord(27)
objRecordSet("shohin_no") = arrUserServiceRecord(28)
objRecordSet("maker") = arrUserServiceRecord(29)
objRecordSet("shohin_name") = arrUserServiceRecord(30)
objRecordSet("hinban") = arrUserServiceRecord(31)
objRecordSet("color_size") = arrUserServiceRecord(32)
objRecordSet("quantity") = arrUserServiceRecord(33)
objRecordSet("kakaku") = arrUserServiceRecord(34)
objRecordSet("kosuu") = arrUserServiceRecord(35)
objRecordSet("payment_id") = arrUserServiceRecord(36)
objRecordSet("payment_status") = arrUserServiceRecord(37)
objRecordSet("kenpo_aid") = arrUserServiceRecord(38)
objRecordSet("ctw_fee") = arrUserServiceRecord(39)
objRecordSet("comment") = arrUserServiceRecord(40)
objRecordSet("uid") = arrUserServiceRecord(41)
objRecordSet("status") = arrUserServiceRecord(42)
objRecordSet("amano_code") = arrUserServiceRecord(43)
objRecordSet("present") = arrUserServiceRecord(44)
'objRecordSet("Dumy") = arrUserServiceRecord(45)
objRecordSet.Update
Loop
objRecordSet.Close
objConnection.Close
メンバー 2今日 参加 0 訪問 361 
