+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : النقاش والأسئلة حول الإصدارات الأحدث من الفيجوال ستوديو (http://vb4arb.com/vb/forumdisplay.php?fid=155)
+--- الموضوع : [مشروع] كود البحث في فيجوالبيسك 2012 (/showthread.php?tid=28382)
كود البحث في فيجوالبيسك 2012 - نرجس نرجس - 27-01-19
السلام عليكم
انا عملت قاعدة بيانات اكسيس وربطتها بفجوال ستوديو 2012منظومة لتسجيل طلاب مدرسة بس ما عرفت كود التعديل وكود البحث عن طريق الاسم أو الرقم الوطني ارجووووو المساعدة
RE: كود البحث في فيجوالبيسك 2012 - الاصيله - 10-06-25
إليك مثالًا يانرجس على كيفية كتابة كود التعديل:
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" بمسار قاعدة البيانات الخاصة بك.