مرحبا
مشروعي باختصار حوسبة اعمال رئيس قسم
عندي قاعدة بيانات وطبعا رابطتها برمجيا مع الفيجوال دوت نت 2003
المشكله اللي عندي :
لما اجي اضيف البيانات ( سجلات جديده ) في الاكسس يطلع لي مشكله
فمثلا عندي جدول خاص بالبريد فيه الحقول:(number,day,month,year,title,attaches,from)
طيب وكتبت هذا الكود للاضافه :
mynumber = TxtArrNum.Text
mytitle = TxtArrTitle.Text
myfrom = TxtArrFrom.Text
myday = Com_day.SelectedItem
mymonth = Com_month.SelectedItem
myyear = Com_year.SelectedItem
myattach = Com_attach.SelectedItem
If (flage = 1) Then
_ str = "Insert Into arriving"
_ "(number,day,month,year,title,attaches,from)" &
_ ") Values " &
_ "'" & mynumber & "', " &
_ "'" & myday & "', "&
_ "'" & mymonth & "', " &
_ "'" & myyear & "', " &
_ "'" & mytitle & "', " &
_ "'" & myattach & "', " &
"(" & "'" & myfrom &
( MsgBox(str
(Dim objcommand As New OleDbCommand(str, Con
() res = objcommand.ExecuteNonQuery
MsgBox("تمت الاضافه ", MsgBoxStyle.Information, "تأكيد")بحيث ان ال con معرفته في module وعرفت ال coniction string في الفورم load
وحتى التعديل مايضبط وغير كذا التقارير لما اجي اسويها تشتغل عندي ولما اشغل البرنامج على جهاز ثاني تختفي يعني يطلع لي error
وياليت لو احد عنده فكره عن كيف اسوي relation برمجيا بما ان الفيجوال مايشوف الrelation الموجوده بالاكسس
لاني عندي فورم فيه حقول من جدولين بينهم علاقه بالاكسس وودي اذا تحركت بين السجلات تتحرك من كلا الجدولين حسب العلاقه
واللي عنده فكره بعد عن كيفية الربط بين الlist والاكسس يسوي خير