اقرأ المعلومات من الملفات النصية وتخزينها في قاعدة البيانات

<٪

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 (

RST.ActivEconnection = conn

dimfread

dowhilenotf1.atendofstream

"إدراج البيانات مع DO ... حلقة حلقة

fread = f1.Readline

خط = انقسام (فريد ، ":::")

rst.source = "insertIntIntObarcode1 (barcode1) قيم (" & trim (line (0)) و ")"

rsst.Open

حلقة

F1.Close

conn.close

''''على كل

٪>