อ่านข้อมูลจากไฟล์ข้อความและจัดเก็บลงในฐานข้อมูล

-

dimfso, f1

constforreading = 1

setfso = createObject ("Scripting.filesystemObject")

'' ใช้วัตถุ FSO เพื่ออ่านข้อมูล

setf1 = fso.opentextfile ("e: /doit/info2.txt", forreading)

'' เปิดไฟล์ที่จะอ่าน

Dimconn, RST

setConn = server.createObject ("adodb.connection"))

'' สร้างการเชื่อมต่อฐานข้อมูลและดำเนินการ

setrst = server.createObject ("adodb.recordset"))

conn.open "driver = {Microsoft AccessDriver (*. mdb)}; dbq =" & server.mappath ("db1.mdb")))

rst.activeConnection = Conn

dimfread

dowhilenotf1.atendofstream

'' แทรกข้อมูลด้วย DO ... วนลูป

fread = f1.readline

line = split (froad, ":::")

rst.source = "insertintobarcode1 (บาร์โค้ด 1) ค่า (" & trim (บรรทัด (0)) & ")"

rsst.open

วง

f1.close

conn.close

'' 'ทั้งหมด

-