تقييم الموضوع :
  • 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] مشكلة في تحديث البيانات larbihamri 2 62 04-11-17, 07:37 PM
آخر رد: larbihamri
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 63 23-10-17, 03:22 AM
آخر رد: khodor1985
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 6,210 04-10-17, 10:08 PM
آخر رد: sofiane0552
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,706 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 179 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 219 15-08-17, 02:11 PM
آخر رد: abozeyd
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 318 07-08-17, 11:26 PM
آخر رد: أبو نوره
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 195 19-07-17, 03:24 PM
آخر رد: waelalmsry75
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 301 19-07-17, 01:58 PM
آخر رد: Jounior_P
  مشكلة في كود البحث Search khaled12345 5 289 16-07-17, 08:22 PM
آخر رد: سعود

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


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