بسم الله الرحمن الرحيم
السلام عليم ورحمة الله وبركاته
عن سؤال وياليت القاء اجابته لانه دوخني
\انا ابغى ارف ملفات لقاعدة البيانات
انا عامل برنامج على الشبكة وابغى المستخدم يرفع ملف من العميل لقاعدة البيات ايا كان نوعه حتى لو تنفيذي وبعدين اقدر استخرجه
من قاعد البيانات
جربت طريقة
Open FileName For Binary As f
...
لكن عندي مشكلة في امرين
الاول
اني ماني عارف كيف ادخل بيانات داخل قاعدة البيانات
يعني الحين يوم ادخل بيانات ادخلها عن طريق adodc ويكون مرتبط ب text لكن ابغى اعرف كيف ادخل على طول
داخل الحقل يعني ادخل المتغير داخل الحق على طول
جربت طريقة
Adodc1.Recordset.Fields(1) = "ut"
او
Adodc1.Recordset.AddNew("اسم الحقل","القيمة المراد وضعها")
طبعا باجتهاد مدري صح او خطاء ولا رضي يقبل معاي
المشكلة الثانية اني لما انقل ملف عن طريق Open FileName واسوي له قراءه ينقله من مكان الى اخر اذا كان الملف صغير
اما اذا اصبح الملف كبير يعطيني خطا ولا ينقل شي ويثقل الجهاز
وعشان اوضح الامر هذا الكود كامل اللي انا كاتبه
Dim f As Integer
Dim s, s1 As String
Adodc1.Refresh
CommonDialog1.ShowOpen
ffa = CommonDialog1.FileName
ffs = CommonDialog1.FileTitle
f = FreeFile
FileName = ffa
Open FileName For Binary As f
Do While Not EOF(f)
Put #f, 1, s
Loop
Close #f
FileName2 = "c:\" & ffs
Open FileName2 For Binary As f
Do While Not EOF(f)
Get #f, 1, s1
Loop
Close #f