تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اللسلام عليكم
#1
السلام عليكم اخوتي انا بحاجة الى كود اظهار progresse bar متزامن اثناء اضافة البيانات الى قاعدة البيانات اكسس باستعمال فجوال بسيك 
كود الاضافة هو كالتالي 
' تحويل الملف الى Byte
            Try
        Dim FFS As FileStream = New FileStream(TextBox2.Text, FileMode.Open
                Dim FBR As BinaryReader = New BinaryReader(FFS
                Dim FileCon() As Byte = FBR.ReadBytes(FFS.Length
                FFS.Close
                FBR.Close

                ' اضافة البيانات بقاعدة البيانات
                cmd = New OleDbCommand("Insert into PP (FileName,FileExt,Attachment,loi) Values (@FileName,@FileExt,@Attachment,@loi)", con
                con.Open
                cmd.Parameters.Add(New OleDbParameter("@FileName", OleDbType.LongVarChar)).Value = TextBox1.Text
                cmd.Parameters.Add(New OleDbParameter("@FileExt", OleDbType.VarChar)).Value = Path.GetExtension(TextBox2.Text
                cmd.Parameters.Add(New OleDbParameter("@Attachment", OleDbType.VarBinary)).Value = FileCon
                cmd.Parameters.Add(New OleDbParameter("@loi", OleDbType.Integer)).Value = TextBox4.Text
                cmd.ExecuteNonQuery
                con.Close
الرد }}}
تم الشكر بواسطة:
#2
من يجيب اخوتي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم رشاد حبيب 2 200 12-03-24, 02:43 PM
آخر رد: رشاد حبيب
  السلام عليكم رشاد حبيب 3 304 27-12-23, 01:25 PM
آخر رد: رشاد حبيب
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  طلب مساعدةالسلام عليكم المستجد 1 208 01-09-23, 04:33 AM
آخر رد: اسامه الهرماوي
  السلام عليكم ابو اسماعيل33 1 290 27-08-23, 12:55 AM
آخر رد: ابو انس
  السلام عليكم اريد فتح تطبيق Whatsapp علما بان الواتس ليس لديه مسار ملف بويندوز 10 moh61 7 541 02-08-23, 10:00 PM
آخر رد: ahmed_king2023
  [VB.NET] ياريت مساعدة سريعة بالله عليكم hanylever 4 577 10-06-23, 02:24 AM
آخر رد: dr.programming
  [VB.NET] السلام عليكم... سؤال حول البحث sher 1 485 04-06-23, 02:32 PM
آخر رد: fouadhdfouad
  :D السلام عليكم :angel: ahmedbezia 3 490 09-04-23, 09:34 PM
آخر رد: Taha Okla
  [VB.NET] بالله عليكم مساعده عايز اقفل البرنامج بخصوص عمل اذن صرف اكسس وفيجوال 2013 hanyeltnen 7 1,888 04-02-23, 10:36 AM
آخر رد: hanyeltnen

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم