02-06-15, 05:51 PM
السلام عليكم ورحمه الله وبركاته
اخواني الكرام لدي مشروع اقوم بالتعديل عليه
ووصادفت مشكلة هو اثناء عرض موظفين والتعديل عليهم
هذا هو كود البرمجة ولكن عند عرض من قاعدة البينات ومن ثم البدء فى التعديل تظهرلي خطأ ومن ثم لا يقوم بالتعديل
اتمني من احد الاخوه ان يساعدني فى تلك المشكلة
اخواني الكرام لدي مشروع اقوم بالتعديل عليه
ووصادفت مشكلة هو اثناء عرض موظفين والتعديل عليهم
كود :
'الاتصال بمزود البيانات
Dim Connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Employe.mdb;user id=admin;jet oledb:database password=12345b#"
Dim newconnection As New OleDbConnection(Connectionstring)
Dim DataSet1 As New DataSet
Dim SQLstr As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim n As String = Label6.Text
Dim Savecommand As New OleDb.OleDbCommand
'الاتصال بمزود البيانات
Dim Connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Employe.mdb;user id=admin;jet oledb:database password=12345b#"
Dim newconnection As New OleDbConnection(Connectionstring)
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text
'التعديل هنا ويكون ما تكتبه فى التكست بوكس
Savecommand.CommandText = "UPDATE main SET b1 = '" & Trim(TextBox2.Text) & "' , b2 = '" & Trim(TextBox3.Text) _
& "' , b3 = '" & Trim(TextBox4.Text) & "' , b4 = '" & Trim(TextBox5.Text) & "' , b5 = '" & Trim(DateTimePicker1.Text) _
& "' , b6 = '" & Trim(TextBox6.Text) & "' , b7 = '" & Trim(TextBox7.Text) & "' , b8 = '" & Trim(TextBox8.Text) _
& "' , b9 = '" & Trim(DateTimePicker2.Text) & "' , b10= '" & Trim(TextBox9.Text) & "' , b11= '" & Trim(DateTimePicker3.Text) _
& "' , b12 = '" & Trim(ComboBox1.Text) & "' , b13 = '" & Trim(ComboBox2.Text) & "' , b14 = '" & Trim(TextBox10.Text) _
& "' , b15 = '" & Trim(DateTimePicker4.Text) & "' , b16 = '" & Trim(TextBox11.Text) & "' , b17 = '" & Trim(DateTimePicker5.Text) _
& "' , b18 = '" & Trim(TextBox12.Text) & "' , b19 = '" & Trim(DateTimePicker6.Text) & "' , b20 = '" & Trim(TextBox13.Text) _
& "' , b22 = '" & Trim(TextBox14.Text) & "' WHERE id like '" & n & "'"
'فتح الاتصال وعمل التعديل الذى قمت به وبعد ذلك اغلاق الاتصال وتظهر رساله للمستخدم بنجاح التعديل الذى قام به
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("تم التعديل", 64, "نجاح")
' Me.Close()
'اظهار الفورم الرئيسى بعد نجاح التعديل واغلاق فورم التعديل
' main.Show()
'اصطياد الاخطاء
Catch ex As Exception
'عرض الخطا فى رساله
MsgBox(ex.Message, 16, "خطأ")
End Try
End Sub
اتمني من احد الاخوه ان يساعدني فى تلك المشكلة