Imports System.Data.OleDb
Public Class Form1
Private connString As String = "PROVIDER=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath() & "\Data.accdb" & "; Persist Security Info=True; Jet OLEDB:Database Password=123"
' الإضافة '
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Using conn As New OleDbConnection(connString)
' الإضافة '
Dim sql As String = _
" INSERT INTO [StudentEvents] " & _
" ( Events_Name, Student_Name, Student_CPR, Events_Date, Events_Price ) " & _
" VALUES " & _
" ( @Events_Name, @Student_Name, @Student_CPR, @Events_Date, @Events_Price ) "
Using cmd As New OleDb.OleDbCommand(sql, conn)
' ترتيب البارامترات هو نفس ترتيب تواجدها في جملة الاسكويل '
cmd.Parameters.AddWithValue("@Events_Name", TextBox15.Text)
cmd.Parameters.AddWithValue("@Student_Name", ComboBox8.Text)
cmd.Parameters.AddWithValue("@Student_CPR", TextBox13.Text)
cmd.Parameters.AddWithValue("@Events_Date", DateTimePicker4.Value.Date)
cmd.Parameters.AddWithValue("@Events_Price", TextBox14.Text)
conn.Open()
Dim result As Integer = cmd.ExecuteNonQuery()
conn.Close()
If result > 0 Then
MessageBox.Show("تمت الإضافة بنجاح", "مبروك", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("لم تتم الإضافة", "إضافة", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
' التعديل '
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Try
Using conn As New OleDbConnection(connString)
' التعديل '
Dim sql As String = _
" UPDATE [StudentEvents] " & _
" SET [Events_Name]=@Events_Name " & _
" , [Student_Name]=@Student_Name " & _
" , [Student_CPR]= @Student_CPR " & _
" , [Events_Date]=@Events_Date " & _
" , [Events_Price]=@Events_Price " & _
" WHERE [id]=@id "
Using cmd As New OleDb.OleDbCommand(sql, conn)
' ترتيب البارامترات هو نفس ترتيب تواجدها في جملة الاسكويل '
cmd.Parameters.AddWithValue("@Events_Name", TextBox15.Text)
cmd.Parameters.AddWithValue("@Student_Name", ComboBox8.Text)
cmd.Parameters.AddWithValue("@Student_CPR", TextBox13.Text)
cmd.Parameters.AddWithValue("@Events_Date", DateTimePicker4.Value.Date)
cmd.Parameters.AddWithValue("@Events_Price", TextBox14.Text)
cmd.Parameters.AddWithValue("@id", id)
conn.Open()
Dim result As Integer = cmd.ExecuteNonQuery()
conn.Close()
If result > 0 Then
MessageBox.Show("تمت الإضافة بنجاح", "مبروك", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("لم أجد الرقم", "تحديث", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
' الحذف '
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Try
Using conn As New OleDbConnection(connString)
' الحذف '
Dim sql As String = _
" DELETE FROM [StudentEvents] " & _
" WHERE [id]=@id "
Using cmd As New OleDb.OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@id", id)
conn.Open()
Dim result As Integer = cmd.ExecuteNonQuery()
conn.Close()
If result > 0 Then
MessageBox.Show("تمت الحذف بنجاح", "مبروك", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("لم أجد الرقم", "حذف", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class