[محمود صالح]

سلام عليكم 
عندي جدولين في sql server 
جدولT1 وبه عمود name1 وجدولt2 وبه عمود name2
كل ما اريده هو اظهار اسماء الجدول الاول t1 بدون اسماء الموجودة في جدول الثاني t2
استخدمت الاستعلام التالي

كود :

Select name1 from t1,t2 where not name1 = name2

 لكن للاسف لاتعمل 
حيث يعطيني اسماء مكرره كثير وهو حاصل ضرب عدد الاسماء الموجودة في الجدول الاول والثاني
هل هناك حل اخر 
وبارك الله فيكم

[سعود]

PHP كود :

select * from tb1 where name not in (select name from tb2) 


كتبتها من حفظي ممكن تحتاج تعديل.

---

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
        Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & dbpath & "\db.accdb")
        Dim cm As New OleDb.OleDbCommand("", con)
        If con.State = ConnectionState.Closed Then con.Open()
        Dim dr As OleDb.OleDbDataReader
        ListBox1.Items.Clear()
        cm.Parameters.Clear()
        cm.CommandText = "select tname from tb1"
        dr = cm.ExecuteReader
        If dr.Read Then
            While dr.Read
                ListBox1.Items.Add(dr(0))
            End While
            dr.Close()
        End If
        '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        ListBox2.Items.Clear()
        cm.Parameters.Clear()
        cm.CommandText = "select tname from tb2"
        dr = cm.ExecuteReader
        If dr.Read Then
            While dr.Read
                ListBox2.Items.Add(dr(0))
            End While
            dr.Close()
        End If
        '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        ListBox3.Items.Clear()
        cm.Parameters.Clear()
        cm.CommandText = "select tname from tb1 where tname not in (select tname from tb2)"
        dr = cm.ExecuteReader
        If dr.Read Then
            While dr.Read
                ListBox3.Items.Add(dr(0))
            End While
            dr.Close()
        End If
        '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        ListBox4.Items.Clear()
        cm.Parameters.Clear()
        cm.CommandText = "select tname from tb2 where tname not in (select tname from tb1)"
        dr = cm.ExecuteReader
        If dr.Read Then
            While dr.Read
                ListBox4.Items.Add(dr(0))
            End While
            dr.Close()
        End If
        If con.State = ConnectionState.Open Then con.Close()
    End Sub 


الان جربتها وتعمل كلها

[محمود صالح]

(20-11-21, 02:54 AM)سعود كتب :

PHP كود :

select * from tb1 where name not in (select name from tb2) 


كتبتها من حفظي ممكن تحتاج تعديل.

---

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
        Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & dbpath & "\db.accdb")
        Dim cm As New OleDb.OleDbCommand("", con)
        If con.State = ConnectionState.Closed Then con.Open()
        Dim dr As OleDb.OleDbDataReader
        ListBox1.Items.Clear()
        cm.Parameters.Clear()
        cm.CommandText = "select tname from tb1"
        dr = cm.ExecuteReader
        If dr.Read Then
            While dr.Read
                ListBox1.Items.Add(dr(0))
            End While
            dr.Close()
        End If
        '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        ListBox2.Items.Clear()
        cm.Parameters.Clear()
        cm.CommandText = "select tname from tb2"
        dr = cm.ExecuteReader
        If dr.Read Then
            While dr.Read
                ListBox2.Items.Add(dr(0))
            End While
            dr.Close()
        End If
        '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        ListBox3.Items.Clear()
        cm.Parameters.Clear()
        cm.CommandText = "select tname from tb1 where tname not in (select tname from tb2)"
        dr = cm.ExecuteReader
        If dr.Read Then
            While dr.Read
                ListBox3.Items.Add(dr(0))
            End While
            dr.Close()
        End If
        '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        ListBox4.Items.Clear()
        cm.Parameters.Clear()
        cm.CommandText = "select tname from tb2 where tname not in (select tname from tb1)"
        dr = cm.ExecuteReader
        If dr.Read Then
            While dr.Read
                ListBox4.Items.Add(dr(0))
            End While
            dr.Close()
        End If
        If con.State = ConnectionState.Open Then con.Close()
    End Sub 


الان جربتها وتعمل كلها

جزاك الله خير الجزاء على كل
جزاك الله خيرا وبارك فيك