[الاصيله]

إليك مثالًا يانرجس على كيفية كتابة كود التعديل:

Imports System.Data.OleDb

Public Class Form1
Private conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=path_to_your_database.accdb")

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
conn.Open()
Dim cmd As New OleDbCommand("UPDATE Students SET Name = ?, NationalID = ?, Grade = ? WHERE ID = ?", conn)
cmd.Parameters.AddWithValue("Name", TextBox1.Text)
cmd.Parameters.AddWithValue("NationalID", TextBox2.Text)
cmd.Parameters.AddWithValue("Grade", TextBox3.Text)
cmd.Parameters.AddWithValue("ID", TextBox4.Text)
cmd.ExecuteNonQuery()
conn.Close()
MsgBox("تم التعديل بنجاح")
Catch ex As Exception
MsgBox("خطأ في التعديل")
End Try
End Sub
End Class

وهذا مثالًا اخر على كيفية كتابة كود البحث عن طريق الاسم أو الرقم الوطني:

Imports System.Data.OleDb

Public Class Form1
Private conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=path_to_your_database.accdb")

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
conn.Open()
Dim cmd As New OleDbCommand("SELECT * FROM Students WHERE Name = ? OR NationalID = ?", conn)
cmd.Parameters.AddWithValue("Name", TextBox5.Text)
cmd.Parameters.AddWithValue("NationalID", TextBox5.Text)
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
If dt.Rows.Count > 0 Then
TextBox1.Text = dt.Rows(0)("Name").ToString()
TextBox2.Text = dt.Rows(0)("NationalID").ToString()
TextBox3.Text = dt.Rows(0)("Grade").ToString()
Else
MsgBox("لا يوجد سجلات مطابقة")
End If
conn.Close()
Catch ex As Exception
MsgBox("خطأ في البحث")
End Try
End Sub
End Class

عليك استبدال "path_to_your_database.accdb" بمسار قاعدة البيانات الخاصة بك.