+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تغيير محتوى listbox (/showthread.php?tid=16593)
RE: تغيير محتوى listbox - Incubus - 30-07-16
تسلم يا غالي
جزاك الله كل خير
اي نعم انت قسمتها على thenumber و thedate بس انا جمعتهم على حقل واحد واشتغلت تمام
اعتقد المشكله في اسم الحقل نفسه؟ علشان كنت بكرر اسم الحق
وكمان العدد المهول من الاقواس يدوخ الصراحه
بس في مشكله في عدله التاريخ بقى
شوف الصوره
جربت تباديل وتوافيق بين الارقام بس مظبتش
الف الف شكر يا باشا وياريت نقدر نردهالك في الافراح
RE: تغيير محتوى listbox - الوادي - 30-07-16
تم التعديل أنظر إليه مجددا
استخدم CONVERT مع تحديد نوع التحويل (وهو هنا نص VARCHAR) وطوله (وهو هنا 8 أرقام) يدلا من STR في SQLServer بالشكل التالي
PHP كود :
SelectString = "SELECT " & _
" * , " & _
" ( STR(number0) + ' في ' + SUBSTRING(CONVERT(VARCHAR(8), [date0]), 1, 4) + '/' + SUBSTRING(CONVERT(VARCHAR(8), [date0]), 5, 2) + '/' + SUBSTRING(CONVERT(VARCHAR(8), [date0]), 7, 2) ) AS [thedate] , " & _
" ( ' قيد ' + STR(registration_no) ) AS [thenumber] " & _
"FROM [company] " & _
"WHERE [registration_no] =" & TextBox1.Text
أصبح التاريخ يظهر بالشكل الصحيح بعد التعديل
RE: تغيير محتوى listbox - Incubus - 31-07-16
الف الف الف شكر ليك يا غالي
جزاك الله كل خير
تعمل بشكل جيد لله الفضل ثم لك
وانا عدلت عليها خحات بسيطه وده النهائي
PHP كود :
SelectString = "SELECT " & _
" * , " & _
" STR(number0) + ' في ' + (SUBSTRING(CONVERT(VARCHAR(8), date0), 1, 4) + '/' + SUBSTRING(CONVERT(VARCHAR(8), date0), 5, 2) + '/' + SUBSTRING(CONVERT(VARCHAR(8), date0), 7, 2) " & _
" + ' قيد ' + STR(registration_no) ) AS [thenumber] " & _
"FROM [company] " & _
"WHERE [registration_no] =" & TextBox1.Text
الف شكر
RE: تغيير محتوى listbox - الوادي - 31-07-16
وهذا تعديل أفضل
PHP كود :
SelectString = "SELECT " & _
" * , " & _
" CONVERT(VARCHAR(100), [number0]) " & _
" + ' في ' + SUBSTRING(CONVERT(VARCHAR(8), [date0]), 1, 4) + '/' + SUBSTRING(CONVERT(VARCHAR(8), [date0]), 5, 2) + '/' + SUBSTRING(CONVERT(VARCHAR(8), [date0]), 7, 2) " & _
" + ' قيد ' + CONVERT(VARCHAR(100), [registration_no]) " & _
" AS [thenumber] " & _
"FROM [company] " & _
"WHERE [registration_no] =" & TextBox1.Text
التحسين تراه في عدم وجود المسافة الطويلة في بداية النص وبعد كلمة (قيد) التي كانت تتسبب بها الكلمة STR فاستبدلتها ب CONVERT والتي نسيها استبدالها في الكود الأخير.
ترى الفرق في مقارنة هذه الصورة مع الصورة السابقة
