وهذا هو كود الحفظ ... لذا ارجو من الاخوة المبرمجين مساعدتنا واكون شاكرا ومقدرا
Dim Str As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Emp.mdb;user id=admin;jet oledb:database password=123")
Dim con As New OleDbConnection(str)
Dim issql As String = "select * from main where b2='" & Me.TextBox2.Text & "'"
Dim isds As New DataSet
Dim isda As New OleDb.OleDbDataAdapter(issql, con)
isda.Fill(isds, "b2")
If Me.BindingContext(isds, "b2").Count > 0 Then
MsgBox("اسم الموظف موجود مسبقا ", MsgBoxStyle.Critical, "خطا")
Exit Sub
End If
'PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
Try
Dim Savecommand As New OleDb.OleDbCommand
'فتح الاتصال بمزود البيانات وهى قاعده البيانات
Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Emp.mdb;user id=admin;jet oledb:database password=123"
Dim newconnection As New OleDbConnection(connectionstring)
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text
'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول
Savecommand.CommandText = "insert into main
([W1],[W2],[W3],[W4],[W5],[W6],[W7],[W8],[W9],[W10],[W11],[W12],[W13],[W14],[W15]) values ('" &
TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text &
"','" & TextBox4.Text & "','" & DateTimePicker1.Text & "','" &
TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" &
DateTimePicker2.Text & "','" & TextBox8.Text & "','" & TextBox12.Text & "','" &
TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox9.Text & "','" & PictureBox1.ImageLocation & "') "
'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الاضافة")