07-03-18, 12:45 PM
السلام عليكم
احتاج مساعدة لبرنامج اقوم بتطويره عبر لغة vb.net
وقمت بعمل كود استعلام تحديث سجل في قاعدة البيانات
ولكن تجيني رسالة خطأ (نوع البيانات غير متطابق في تعبير المعايير)
للأمانة لي اسبوعين احاول ابحث عن حل لم اجده
ومبتدأ في البرمجة واشكر لكم المادة العلمية الثرية في هذا المنتدى التي مكنتني من الانطلاق من لا شيء
احتاج كرما مساعدتكم في ذلك
وهذا الكود
احتاج مساعدة لبرنامج اقوم بتطويره عبر لغة vb.net
وقمت بعمل كود استعلام تحديث سجل في قاعدة البيانات
ولكن تجيني رسالة خطأ (نوع البيانات غير متطابق في تعبير المعايير)
للأمانة لي اسبوعين احاول ابحث عن حل لم اجده
ومبتدأ في البرمجة واشكر لكم المادة العلمية الثرية في هذا المنتدى التي مكنتني من الانطلاق من لا شيء
احتاج كرما مساعدتكم في ذلك
وهذا الكود
كود :
Try
Dim xy As String
If RadioButton2.Checked = True Then
xy = 1
ElseIf RadioButton1.Checked = True Then
xy = 0
Else
Exit Sub
End If
Dim str As String = String.Format("update tb_info set [info_name]='{0}', [info_phon]='{1}', [info_email]='{2}', [info_city]='{3}', [info_job]='{4}', [info_tr]='{5}', [info_tr_sys]='{6}', [info_tr_bank]='{7}', [info_tr_bname]='{8}', [info_tr_prog]='{9}', [info_date]='{10}' WHERE [info_id]='{11}'", TextBox1.Text, TextBox2.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, xy, ComboBox1.Text, ComboBox2.Text, TextBox13.Text, ComboBox3.Text, DateTimePicker1.Value.Date, Label7.Text)
Dim erw As New OleDbCommand(str, con)
con.Open()
erw.ExecuteNonQuery()
MsgBox("تم التحديث")
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try