تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Sql
#1
سلام عليكم 
عندي جدولين في sql server 
جدولT1 وبه عمود name1 وجدولt2 وبه عمود name2
كل ما اريده هو اظهار اسماء الجدول الاول t1 بدون اسماء الموجودة في جدول الثاني t2
استخدمت الاستعلام التالي
كود :
Select name1 from t1,t2 where not name1 = name2
 لكن للاسف لاتعمل 
حيث يعطيني اسماء مكرره كثير وهو حاصل ضرب عدد الاسماء الموجودة في الجدول الاول والثاني
هل هناك حل اخر 
وبارك الله فيكم
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة: سعود , asemshahen5
#2
PHP كود :
select from tb1 where name not in (select name from tb2
كتبتها من حفظي ممكن تحتاج تعديل.

PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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 
الان جربتها وتعمل كلها



الملفات المرفقة
.zip   Testsql.zip (الحجم : 35.24 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة: w.osama , ابو انس , محمود صالح , asemshahen5
#3
(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 ObjectAs EventArgsHandles 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 
الان جربتها وتعمل كلها

جزاك الله خير الجزاء على كل
جزاك الله خيرا وبارك فيك 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة: سعود , asemshahen5


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


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