-
-
'** บันทึก/อ่านไฟล์ไปยังฐานข้อมูลโดยใช้ adoDB.stream
'** อ้างอิง Microsoft ActivexDataObjects2.5Library และเหนือ
-
'** ----- สตริงการเชื่อมต่อฐานข้อมูล เทมเพลต ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -
'** ฐานข้อมูลการเข้าถึง
'** iconcstr = "ผู้ให้บริการ = microsoft.jet.oledb.4.0;
'** "; dataSource = ชื่อฐานข้อมูล"
-
'** ฐานข้อมูล SQL
'** iconcstr = "ผู้ให้บริการ = sqloledb.1; ยังคงมีความปลอดภัยในการรักษาความปลอดภัย = true;" & _
'** "userId = ชื่อผู้ใช้รหัสผ่าน = รหัสผ่าน; initialCatalog = ชื่อฐานข้อมูล; dataSource = ชื่อเซิร์ฟเวอร์ SQL"
-
-
-
'บันทึกไฟล์ไปยังฐานข้อมูล
subs_savefile ()
dimistmasadodb.stream
dimireasadodb.recordset
dimiconcstrasstring
'สตริงการเชื่อมต่อฐานข้อมูล
iconcstr = "ผู้ให้บริการ = microsoft.jet.oledb.4.0; ยังคงมีความปลอดภัยในการรักษาความปลอดภัย = false" & _
"; dataSource = f:/myDocuments/ข้อมูลลูกค้า 1.MDB"
'อ่านไฟล์ไปยังเนื้อหา
setistm = newadodb.stream
Withistm
.type = โหมดไบนารี adtypebinary '
.เปิด
.loadFromFile "C: /test.doc"
จบลงด้วย
'เปิดตารางที่บันทึกไฟล์
setire = newadodb.recordset
เหี่ยวแห้ง
.Open "Table", Iconc, Adopenkeyset, Adlockoptimistic
.Addnew'add บันทึกใหม่
.Fields ("ฟิลด์ที่บันทึกเนื้อหาไฟล์") = istm.read
.อัปเดต
จบลงด้วย
'ปิดวัตถุหลังจากเสร็จสิ้น
Ire.close
istm.close
enddub
'อ่านข้อมูลจากฐานข้อมูลและบันทึกเป็นไฟล์
subs_readfile ()
dimistmasadodb.stream
dimireasadodb.recordset
dimiconcasstring