اولا السلام عليكم
بس في شئ غريب يحصل بامر التعديل لدى برنامجي
اسمعوا الحكايه
برنامجي يعدل
طبعا بدات بالتعديل على عمود عمود في الجدول
لكن عندما وصل الى العمود level
يقول لي خطا "خطا في بنا جمله ال UPDATE"
وانا متاكده من صحه الامر
الا اذا كنت غافل والله اعلم
ارجو المساعدة
Try
Dim Cmd As New OleDb.OleDbCommand
Dim SqlStr As String
Cmd.Connection = myconnection
Cmd.CommandType = CommandType.Text
SqlStr = "UPDATE hotels SET hotel_name = '" & Trim(ComboBox1.Text) & _
"' , country_name = '" & Trim(ComboBox2.Text) & _
"' , city_name= '" & Trim(ComboBox3.Text) & _
"' , hotel_location='" & Trim(ComboBox4.Text) & _
"' , level='" & Trim(ComboBox5.Text) & _
"'WHERE hotel_name = '" & Form1.ComboBox6.Text & _
"' and city_name='" & Form1.ComboBox5.Text & "'"
Cmd.CommandText = SqlStr
myconnection.Open()
Cmd.ExecuteNonQuery()
myconnection.Close()
MsgBox("تمت عملية التعديل في قاعدة البيانات بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try
وهذا البرنامج
التعديل في الفورم رقم 2
الرجاء الافاده
اخوكم INCOMPLETE