تقييم الموضوع :
  • 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
من يجيب اخوتي
الرد
تم الشكر بواسطة:



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


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