منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الاستعلام عن أقدم تاريخ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

اريد طريقة الاستعلام عن أقدم تاريخ من 5 جداول مختلفة ومشاهدة القيمة بالداتا تايم بيكر

انا بستعلم عادي من جدول واحد بالطريقة دية :

الإستعلام

كود :
SELECT TOP 1 PROFIT_DATE FROM PROFIT_TB  ORDER BY PROFIT_DATE asc


ظهور نتيجة الإستعلام بأداة التاريخ بالداتا تيم بالكود دة :


كود :
Convert.ToDateTime(DSADD.Tables("PROFIT_TB").Rows(0)("PROFIT_DATE").ToString).ToShortDateString
وعليكم السلام ورحمة الله وبركاته

كود الاستعلام سيكون
كود :
SELECT TOP 1 PROFIT_DATE FROM PROFIT_TB1 ORDER By PROFIT_DATE ASC UNION ALL SELECT TOP 1 PROFIT_DATE FROM  PROFIT_TB2 ORDER By PROFIT_DATE ASC UNION ALL SELECT TOP 1 PROFIT_DATE FROM PROFIT_TB3 ORDER By PROFIT_DATE ASC

قم بتغيير كلاً من 
PHP كود :
PROFIT_TB1 PROFIT_TB2 PROFIT_TB3 

الى اسماء الجداول التى تتحدث عنها
وكذلك تغيير PROFIT_DATE الى اسم العمود الخاص بالتاريخ

والان كود عرض النتائج
قيمة الجدول الاول
كود :
Convert.ToDateTime(DSADD.Tables("PROFIT_TB").Rows(0)("PROFIT_DATE").ToString).ToShortDateString

قيمة الجدول الثاني
كود :
Convert.ToDateTime(DSADD.Tables("PROFIT_TB").Rows(1)("PROFIT_DATE").ToString).ToShortDateString

قيمة الجدول الثالث
كود :
Convert.ToDateTime(DSADD.Tables("PROFIT_TB").Rows(2)("PROFIT_DATE").ToString).ToShortDateString

مع مراعاه تغيير اسم PROFIT_DATE الى اسم العمود الخاص بالتاريخ

تحياتى لك
وتمنياتى لك التوفيق
(19-04-19, 12:57 PM)elgokr كتب : [ -> ]
وعليكم السلام ورحمة الله وبركاته

كود الاستعلام سيكون
كود :
SELECT TOP 1 PROFIT_DATE FROM PROFIT_TB1 ORDER By PROFIT_DATE ASC UNION ALL SELECT TOP 1 PROFIT_DATE FROM  PROFIT_TB2 ORDER By PROFIT_DATE ASC UNION ALL SELECT TOP 1 PROFIT_DATE FROM PROFIT_TB3 ORDER By PROFIT_DATE ASC

قم بتغيير كلاً من 
PHP كود :
PROFIT_TB1 PROFIT_TB2 PROFIT_TB3 

الى اسماء الجداول التى تتحدث عنها
وكذلك تغيير PROFIT_DATE الى اسم العمود الخاص بالتاريخ

والان كود عرض النتائج
قيمة الجدول الاول
كود :
Convert.ToDateTime(DSADD.Tables("PROFIT_TB").Rows(0)("PROFIT_DATE").ToString).ToShortDateString

قيمة الجدول الثاني
كود :
Convert.ToDateTime(DSADD.Tables("PROFIT_TB").Rows(1)("PROFIT_DATE").ToString).ToShortDateString

قيمة الجدول الثالث
كود :
Convert.ToDateTime(DSADD.Tables("PROFIT_TB").Rows(2)("PROFIT_DATE").ToString).ToShortDateString

مع مراعاه تغيير اسم PROFIT_DATE الى اسم العمود الخاص بالتاريخ

تحياتى لك
وتمنياتى لك التوفيق

اشكرك علي ردك علي موضوعي جزاك الله كل خير
الطريقة تقريبا  مفهومة وأسف علي تكرار الموضوع .
انا بستخدم الطريقة في حسابات الخزينة لمعرفة اول تاريخ نقدي من كل الجداول
و كدة مش عارف اول تاريخ نقدي كان في  اي جدول من الخمسة
كل الي محتاجة اول تاريخ نقدي قديم او اقدم تاريخ في الخمسة جداول مش كل تاريخ قديم في الخمسة
التاريخ الاقدم من كل الخمسة جداول معا فقط .
الشكر لله والحمد لله
والحمد لله على كل حال

الامر بسيط اخى الفاضل
بعد اتمام الاستعلام بالاعلى ولنقول ان تم ترحيل الاستعلام الى DT

واللى هو كمثال
كود :
       da.Fill(dt)

كل ما عليك فعله وضع الكود التالى اسفل هذا السطر مباشراً
كود :
       Dim GetMinDate As DataTable = dt.Select(Nothing, "PROFIT_DATE ASC").CopyToDataTable()

الان لاستخدام قيمة اصغر تاريخ كل ما عليك استخدام هذا الكود
كود :
GetMinDate(0)(0)

لعرضها برسالة
كود :
       MsgBox(GetMinDate(0)(0))


تحياتى لك
وتمنياتى لك التوفيق