الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية البحث في شاشة

بدأه thepast في 11 أبريل 2012 · 3 رد · 484 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

انا استخدم الكود التالي في البحث

con = New OleDbConnection("Provider=MSDAORA.1;Password=Q;User ID=E;Data Source=R;Persist Security Info=True")

        Dim cmaa As New OleDbCommand("select attach from att where sno = " & sno.Text & "", con)

        con.Open()
        cmaa.Parameters.AddWithValue("@sno", sno.Text)
        Dim Reader As OleDbDataReader = cmaa.ExecuteReader()
        If Reader.Read() Then
            TextBox1.Text = Reader("attach").ToString()
            HyperLink2.NavigateUrl = TextBox1.Text


        End If

        con.Close()
    End Sub

هذا استخدمه للرقم وشغال معاي تمام

بس اريد ان استخدم كود البحث لللاسم ايضا مثال انا عندي شخص لا اعرف سوا اسم من اسمائه " إبراهيم"

اريد بمجرد ان اكتب ابراهيم في التكست يأتي بجميع الاسماء اللتي تحتوي على "ابراهيم " لا ادري تكون في لسته او اي شي وعندما اختار الاسم اللذي اريده تأتي بيناته في الحقول

ارجو وووووووو المساعدة العاجلة

#2
thepast كتب:

السلام عليكم ورحمة الله وبركاته

انا استخدم الكود التالي في البحث

con = New OleDbConnection("Provider=MSDAORA.1;Password=Q;User ID=E;Data Source=R;Persist Security Info=True")

        Dim cmaa As New OleDbCommand("select attach from att where sno = " & sno.Text & "", con)

        con.Open()
        cmaa.Parameters.AddWithValue("@sno", sno.Text)
        Dim Reader As OleDbDataReader = cmaa.ExecuteReader()
        If Reader.Read() Then
            TextBox1.Text = Reader("attach").ToString()
            HyperLink2.NavigateUrl = TextBox1.Text


        End If

        con.Close()
    End Sub

هذا استخدمه للرقم وشغال معاي تمام

بس اريد ان استخدم كود البحث لللاسم ايضا مثال انا عندي شخص لا اعرف سوا اسم من اسمائه " إبراهيم"

اريد بمجرد ان اكتب ابراهيم في التكست يأتي بجميع الاسماء اللتي تحتوي على "ابراهيم " لا ادري تكون في لسته او اي شي وعندما اختار الاسم اللذي اريده تأتي بيناته في الحقول

ارجو وووووووو المساعدة العاجلة

ممكن تستخدم دواره while وعند إيجاد أول واحد يضيفه إلى list وهكذا إلى أخر عنصر

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

select * from user where user_name = ' ابراهيم'

هذه محاوله مني جرب

وإن شاء الله أكون أفتدك

#3

لم افهم ارجوووو التوضيح اكثر

كيف استطيع عمل بحث بالاسم

#4

هذه حل :-

حيث يأخذ الأسم الذي في التكست ويبحث في قاعدة البيانات ويضيفه إلى داتا قرايد مع جميع بياناتهم

dbcon.Open_connection()

dbcon.cmd.CommandText = "select name_user from emp where name_emp ='" & TextBox1.Text & "'"

dbcon.cmd.Connection = dbcon.conn

dbcon.rder = dbcon.cmd.ExecuteReader

If dbcon.rder.Read Then

dbcon.rder.Close()

dbcon.Close_connection()

dbcon.Open_connection()

dbcon.cmd.Connection = dbcon.conn

dbcon.rder.Close()

dbcon.adp = New OleDbDataAdapter("select * from emp where name_emp = '" & TextBox1.Text & "'", dbcon.conn)

Else

MsgBox(" لا توجد نتائج ", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Information, " تنبيه ")

'

End If

أنت ممكن تغير فيه

وإي سؤال أنا جاهزه

مواضيع مشابهة