**************************************************************************
'**
'** احفظ/قراءة الملفات إلى قاعدة البيانات باستخدام adodb.stream
'** مرجع Microsoft ActivexDataObjects2.5Library وما فوق
'**
'** ----- سلسلة اتصال قاعدة البيانات نموذج-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'** قاعدة بيانات الوصول
'** iconcstr = "provider = microsoft.jet.oledb.4.0 ؛ permitistecurityInfo = false" & _
'** "؛ dataSource = اسم قاعدة البيانات"
'**
'** قاعدة بيانات SQL
'** iconcstr = "Provider = sqloledb.1 ؛ perferSecurityInfo = true ؛" & _
'** "userId = username ؛ password = password ؛ initialCatalog = اسم قاعدة البيانات ؛ dataSource = SQL Server Name"
'**
'************************************************************************************************
'
"احفظ الملف إلى قاعدة البيانات
subs_savefile ()
DimiStmasadodb.stream
Dimireasadodb.Recordset
Dimiconcstrasstring
سلسلة اتصال قاعدة البيانات
ICONCSTR = "Provider = Microsoft.jet.oledb.4.0 ؛ perferSecurityInfo = false" & _
"؛ dataSource = f:/myDocuments/بيانات العميل 1.MDB"
اقرأ الملف إلى المحتوى
setistm = newadodb.stream
withistm
.type = الوضع الثنائي adtypebinary
.يفتح
.loadfromfile "C: /test.doc"
endwith
افتح الجدول الذي يحفظ الملف
setire = newadodb.recordset
معاير
. فتح "الجدول" ، أيقونة ، engenkeyset ، adlockoptimistic
.addnew'add رقم قياسي جديد
.
.تحديث
endwith
أغلق الكائن بعد الانتهاء
IRE.Close
istm.close
ينتهي
اقرأ البيانات من قاعدة البيانات وحفظها كملف
subs_readfile ()
DimiStmasadodb.stream
Dimireasadodb.Recordset
Dimiconcasstring