منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال عن استعلام بدون تكرار البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال عن استعلام بدون تكرار البيانات (/showthread.php?tid=32556)

سؤال عن استعلام بدون تكرار البيانات - Emam emam - 17-12-19

السلام عليكم اخوتي الاحباب

عندي فورم فيه 2 داتا جريد فيو

الاولي : يتم فيها عرض تحاليل المريض وبالتالي ممكن المريض يظهر اكثر من مره

اريد عند الضغط علي البوتن تظهر نفس البيانات السابقه من نفس الجدول ولكن بدون تكرار وتوضع البيانات في الداتا جريد الثانيه

ارفقت صوره لتوضيح الامر اكثر

[attachment=23683]

وده الكود المستخدم لملء الداتا جريد الاولي
PHP كود :
Dim dt As New DataTable
        Dim da As New SqlDataAdapter
        Dim searchDate1 As Date = DateTimePicker1.Value
        Dim searchDate2 As Date = DateTimePicker2.Value.AddDays(1)
        dt.Clear()
        da = New SqlDataAdapter("select [Patient_Code],[RegistrationDate],[ResultDate],
            [PatientName] from Analysis_Table WHERE 
            ResultDate >= '" & searchDate1.Year & "/" & searchDate1.Month & "/" & searchDate1.Day & "'
            and ResultDate <= '" & searchDate2.Year & "/" & searchDate2.Month & "/" & searchDate2.Day & "'", connSQL)
        da.Fill(dt)
        DataGridView1.DataSource = (dt) 


RE: سؤال عن استعلام بدون تكرار البيانات - asemshahen5 - 17-12-19

PHP كود :
    Dim dt As New DataTable
    Dim da As New SqlDataAdapter
    Dim searchDate1 As Date = DateTimePicker1.Value
    Dim searchDate2 As Date = DateTimePicker2.Value.AddDays(1)
    dt.Clear()
    da = New SqlDataAdapter("select DISTINCT[Patient_Code],[RegistrationDate],[ResultDate],
        [PatientName] from Analysis_Table WHERE 
        ResultDate >= '" & searchDate1.Year & "/" & searchDate1.Month & "/" & searchDate1.Day & "'
        and ResultDate <= '" & searchDate2.Year & "/" & searchDate2.Month & "/" & searchDate2.Day & "'", connSQL)
    da.Fill(dt)
    DataGridView1.DataSource = (dt) 
كلمة : DISTINCT قبل العامود لمنع تكرار النتيجة .

RE: سؤال عن استعلام بدون تكرار البيانات - محمد اسماعيل - 17-12-19

(17-12-19, 05:10 AM)Emam emam كتب : السلام عليكم اخوتي الاحباب

عندي فورم فيه 2 داتا جريد فيو

الاولي : يتم فيها عرض تحاليل المريض وبالتالي ممكن المريض يظهر اكثر من مره

اريد عند الضغط علي البوتن تظهر نفس البيانات السابقه من نفس الجدول ولكن بدون تكرار وتوضع البيانات في الداتا جريد الثانيه

ارفقت صوره لتوضيح الامر اكثر



وده الكود المستخدم لملء الداتا جريد الاولي
PHP كود :
Dim dt As New DataTable
        Dim da As New SqlDataAdapter
        Dim searchDate1 As Date = DateTimePicker1.Value
        Dim searchDate2 As Date = DateTimePicker2.Value.AddDays(1)
        dt.Clear()
        da = New SqlDataAdapter("select [Patient_Code],[RegistrationDate],[ResultDate],
            [PatientName] from Analysis_Table WHERE 
            ResultDate >= '" & searchDate1.Year & "/" & searchDate1.Month & "/" & searchDate1.Day & "'
            and ResultDate <= '" & searchDate2.Year & "/" & searchDate2.Month & "/" & searchDate2.Day & "'", connSQL)
        da.Fill(dt)
        DataGridView1.DataSource = (dt) 

راجع الرابط دة فية كل انواع الاستعلامات

https://www.w3schools.com/sql/

RE: سؤال عن استعلام بدون تكرار البيانات - Emam emam - 20-12-19

(17-12-19, 03:17 PM)asemshahen5 كتب :
PHP كود :
    Dim dt As New DataTable
    Dim da As New SqlDataAdapter
    Dim searchDate1 As Date = DateTimePicker1.Value
    Dim searchDate2 As Date = DateTimePicker2.Value.AddDays(1)
    dt.Clear()
    da = New SqlDataAdapter("select DISTINCT[Patient_Code],[RegistrationDate],[ResultDate],
        [PatientName] from Analysis_Table WHERE 
        ResultDate >= '" & searchDate1.Year & "/" & searchDate1.Month & "/" & searchDate1.Day & "'
        and ResultDate <= '" & searchDate2.Year & "/" & searchDate2.Month & "/" & searchDate2.Day & "'", connSQL)
    da.Fill(dt)
    DataGridView1.DataSource = (dt) 
كلمة : DISTINCT قبل العامود لمنع تكرار النتيجة .

اعتزر  عن التاخير في الرد
ولكن يعجز لساني عن شكرك اخي عاصم  لما تقدمه من مساعده لي ولكل من يطلب المساعده 
بارك الله فيك وجعله الله في ميزان حسناتك
(17-12-19, 03:21 PM)محمد اسماعيل كتب :
(17-12-19, 05:10 AM)Emam emam كتب : السلام عليكم اخوتي الاحباب

عندي فورم فيه 2 داتا جريد فيو

الاولي : يتم فيها عرض تحاليل المريض وبالتالي ممكن المريض يظهر اكثر من مره

اريد عند الضغط علي البوتن تظهر نفس البيانات السابقه من نفس الجدول ولكن بدون تكرار وتوضع البيانات في الداتا جريد الثانيه

ارفقت صوره لتوضيح الامر اكثر



وده الكود المستخدم لملء الداتا جريد الاولي
PHP كود :
Dim dt As New DataTable
        Dim da As New SqlDataAdapter
        Dim searchDate1 As Date = DateTimePicker1.Value
        Dim searchDate2 As Date = DateTimePicker2.Value.AddDays(1)
        dt.Clear()
        da = New SqlDataAdapter("select [Patient_Code],[RegistrationDate],[ResultDate],
            [PatientName] from Analysis_Table WHERE 
            ResultDate >= '" & searchDate1.Year & "/" & searchDate1.Month & "/" & searchDate1.Day & "'
            and ResultDate <= '" & searchDate2.Year & "/" & searchDate2.Month & "/" & searchDate2.Day & "'", connSQL)
        da.Fill(dt)
        DataGridView1.DataSource = (dt) 

راجع الرابط دة فية كل انواع الاستعلامات

https://www.w3schools.com/sql/

الف شكر اخي محمد اسماعيل علي الرابط الجميل ده
رابط ممتاز واستفدت منه كثير بارك الله فيك

RE: سؤال عن استعلام بدون تكرار البيانات - asemshahen5 - 20-12-19

الحمد الله و الشكر الله رب العالمين .