تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث في قاعدة البيانات
#1
Brick 
السلام عليكم ورحمة الله وبركاتة
لدي قاعدة بيانات للطلاب واريد طريقة البحث في الاسماء حيث ان لدي عمود للاسم الاول وعمود للاسم الثاني وعمود للاسم الثالث
وفي المقابل
يوجد بالفورم 3 تكست بوكس لكل منهم اريد طريقة للبحث المتقدم عند كتابة اسم الاول والثاني معا او الثاني والثالث معا او الاول والثالث معا او احداهما
Heart
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً

Heart
الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته
كود :
    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim sqlSearch As String
        If txtName1.Text <> "" And txtName2.Text.Trim <> "" And txtName3.Text.Trim = "" Then
            sqlSearch = "Select * from MyTable where Name1 like '" & txtName1.Text & "' and Name2 like '" & txtName2.Text & "'"
        ElseIf txtName1.Text <> "" And txtName2.Text.Trim = "" And txtName3.Text.Trim <> "" Then
            sqlSearch = "Select * from MyTable where Name1 like '" & txtName1.Text & "' and Name3 like '" & txtName3.Text & "'"
        ElseIf txtName1.Text = "" And txtName2.Text.Trim <> "" And txtName3.Text.Trim <> "" Then
            sqlSearch = "Select * from MyTable where Name2 like '" & txtName2.Text & "' and Name3 like '" & txtName3.Text & "'"
        ElseIf txtName1.Text <> "" And txtName2.Text.Trim <> "" And txtName3.Text.Trim <> "" Then
            sqlSearch = "Select * from MyTable where Name1 like '" & txtName1.Text & "' and Name2 like '" & txtName2.Text & "' and Name3 like '" & txtName3.Text & "'"
        ElseIf txtName1.Text <> "" And txtName2.Text.Trim = "" And txtName3.Text.Trim = "" Then
            sqlSearch = "Select * from MyTable where Name1 like '" & txtName1.Text & "'"
        ElseIf txtName1.Text = "" And txtName2.Text.Trim <> "" And txtName3.Text.Trim = "" Then
            sqlSearch = "Select * from MyTable where  Name2 like '" & txtName2.Text & "'"
        ElseIf txtName1.Text = "" And txtName2.Text.Trim = "" And txtName3.Text.Trim <> "" Then
            sqlSearch = "Select * from MyTable where Name1  Name3 like '" & txtName3.Text & "'"
        Else
            MsgBox("فضلا إملأ على الأقل اسم واحد", MsgBoxStyle.Information, "خطأ")
            Exit Sub
        End If
    End Sub


السلام عليكم و رحمة الله و بركاته
الرد
تم الشكر بواسطة: Sajad , @@أبورائد@@ , سعود
#3
السلام عليكم ورحمة الله وبركاته


عندي طريقة أستخدمتها قديماً، أرجو أن تفيدكم (لاحظوا: توجد مسافة موجود في نهاية كل جملة نصية)
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim sql As String = "SELECT * FROM [table1] "

    Dim where As String = ""
    If Me.txtName1.Text.Trim <> "" Then where &= "AND [name1] = @name1 "
    If Me.txtName2.Text.Trim <> "" Then where &= "AND [name2] = @name2 "
    If Me.txtName3.Text.Trim <> "" Then where &= "AND [name3] = @name3 "

    If where <> "" Then sql &= "WHERE " & where.Substring(4)

    Dim comm As New OleDb.OleDbCommand(sql, conn)
    If Me.txtName1.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name1", Me.txtName1.Text.Trim)
    If Me.txtName2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name2", Me.txtName2.Text.Trim)
    If Me.txtName3.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name3", Me.txtName3.Text.Trim)

    MsgBox(sql)
    Dim dt As New DataTable

    Dim da As New OleDb.OleDbDataAdapter(comm)

    If da.Fill(dt) > 0 Then
        '
        '
        '
    End If

End Sub


السلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة: تركي قرمزلي , سعود , Japan


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 57 21-02-19, 04:38 PM
آخر رد: elgokr
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 112 20-02-19, 11:08 AM
آخر رد: alfaiz678
  [VB.NET] فتح مسار مجلد موجود بقاعدة البيانات خاص بكل اسم EMADSSS 0 56 13-02-19, 01:03 AM
آخر رد: EMADSSS
  قاعدة بيانات بيانات ال sql مع الفجوال 2008 raaddawood 0 106 02-02-19, 11:16 AM
آخر رد: raaddawood
  تصحيح كود الحفظ لقاعدة البيانات raaddawood 15 248 28-01-19, 08:53 PM
آخر رد: raaddawood
  كود sql اضافة او تغير كلمة المرور لقاعدة البيانات اللورد محمود 1 77 28-01-19, 06:56 PM
آخر رد: عبد العزيز البسكري
  اجمالى الفواتير فى قاعدة البيانات atef_020 10 342 22-01-19, 03:44 PM
آخر رد: atef_020
  [سؤال] اريد جعل قاعدة البينات تقبل ادخل لاكثر من يوزر فى نفس الوقت issamsaidd 2 209 30-12-18, 08:33 PM
آخر رد: issamsaidd
  عمل قاعدة البيانات salah mansour 5 205 19-12-18, 01:31 AM
آخر رد: حريف برمجة
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 1 283 16-12-18, 09:07 PM
آخر رد: viv

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم