12-07-15, 12:53 PM
السلام عليكم ورحمة الله وبركاته...
لدي برنامج بالفيجوال بيسك دوت نت 2012 مرتبط بقاعدة بيانات access والبرنامج يعمل بشكل جيد ولكن قمت بانشاء جدول في قاعدة البيانات يحتوي على حقل من نوع Attachment لكي اقوم بارفاق ملفات فيه لاني اريد استخدامه في واجهة في برنامج يجمع بيانات عن اجتماعات الموظفين ومع كل اجتماع اريد ان يكون هناك ارفاق لملف يحتوي على محضر الاجتماع , المطلوب ما هو الامر أو الدالة في الفيجوال بيسك دوت نت التي تمكنني من ارفاق الملفات الى قاعدة البيانات؟.
مرفق ادناه جزء من الكود المستخدم في اضافة سجل بدون ال attachment:
لدي برنامج بالفيجوال بيسك دوت نت 2012 مرتبط بقاعدة بيانات access والبرنامج يعمل بشكل جيد ولكن قمت بانشاء جدول في قاعدة البيانات يحتوي على حقل من نوع Attachment لكي اقوم بارفاق ملفات فيه لاني اريد استخدامه في واجهة في برنامج يجمع بيانات عن اجتماعات الموظفين ومع كل اجتماع اريد ان يكون هناك ارفاق لملف يحتوي على محضر الاجتماع , المطلوب ما هو الامر أو الدالة في الفيجوال بيسك دوت نت التي تمكنني من ارفاق الملفات الى قاعدة البيانات؟.
مرفق ادناه جزء من الكود المستخدم في اضافة سجل بدون ال attachment:
Try
Dim cmd As New OleDbCommand("Insert into Objective_Customer_Visits(Customer_Name,SAM_Manager_Id,Visit_Date,Comments) values ('" & comboObjectiveCustVisitCustName2Add.Text & "', " & userId & ", # " & DTPObjectiveCustVisitDate2Add.Value.ToString("yyyy / MM / dd") & " #,'" & textBoxObjectiveCustVisitComent2Add.Text & "' )", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Add Succeeded")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
ولكم خالص الشكر والتقدير.
Dim cmd As New OleDbCommand("Insert into Objective_Customer_Visits(Customer_Name,SAM_Manager_Id,Visit_Date,Comments) values ('" & comboObjectiveCustVisitCustName2Add.Text & "', " & userId & ", # " & DTPObjectiveCustVisitDate2Add.Value.ToString("yyyy / MM / dd") & " #,'" & textBoxObjectiveCustVisitComent2Add.Text & "' )", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Add Succeeded")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try