[محمود صالح]

(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 


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

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