10-11-20, 06:04 PM
السلام عليكم اخوتي انا بحاجة الى كود اظهار progresse bar متزامن اثناء اضافة البيانات الى قاعدة البيانات اكسس باستعمال فجوال بسيك
كود الاضافة هو كالتالي
' تحويل الملف الى Byte
كود الاضافة هو كالتالي
' تحويل الملف الى 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