منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم 
انا عملت قاعدة بيانات اكسيس وربطتها بفجوال ستوديو 2012منظومة لتسجيل طلاب مدرسة بس ما عرفت كود التعديل وكود البحث عن طريق الاسم أو الرقم الوطني ارجووووو المساعدة

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

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" بمسار قاعدة البيانات الخاصة بك.