المشاركات : 205
المواضيع 112
الإنتساب : Feb 2016
السمعة :
1
الشكر: 22
تم شكره 78 مرات في 52 مشاركات
اخوتي الكرام السلام عليكم ورحمة الله
ارجوا مساعدتي في استعلام عن اخر رقم من الحقل مثلا عندي حقل رقم الوظيفي الموظف
مثلا:_
الرقم الموظف
1235
6311
3164
6133
2616
6449
9791
6649
2594
3478
3164
البحث بنهاية الرقم ولكن مثلا الرقم 4 فيظهر نتيجة البحث
3164
2594
3164
تكون نيجة البحث
ارجو مساعدتي حتى بفكرة
والسلام عليكم ورجمة الله
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
12-10-19, 09:20 PM
(آخر تعديل لهذه المشاركة : 12-10-19, 09:29 PM {2} بواسطة حريف برمجة.)
UserID = حقل رقم الموظف
Table1 = اسم الجدول
TextBox1 = الرقم المراد البحث عنه
3 = بداية عملية البحث من الرقم الرابع لأن الرقم الأول يبدأ بصفر والرقم الثاني 1 وهكذا
1 = طول الرقم المراد البحث عنه
عدل ما يلزم ليتناسب مع تطبيقك .
كود :
SELECT *
FROM Table1
WHERE
substring(UserID,3,1) LIKE '%" & TextBox1.Text & "%'
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 205
المواضيع 112
الإنتساب : Feb 2016
السمعة :
1
الشكر: 22
تم شكره 78 مرات في 52 مشاركات
حريف برمجة
جزاااك الله كل خير
جربت الطريقة لكن لم تنجح ولا اعرف السبب
رقم الموظف عندي يتكون من 10 خانات مثلا (5570000555)
اي من 0 الى 9 في برمجة الكود
ممكن التوضيح اكثر بارك الله فيك
المشاركات : 87
المواضيع 29
الإنتساب : Sep 2019
السمعة :
1
الشكر: 33
تم شكره 54 مرات في 33 مشاركات
17-10-19, 03:06 AM
(آخر تعديل لهذه المشاركة : 17-10-19, 03:11 AM {2} بواسطة mostafa12.)
اه حط 9 محل 4
UserID = حقل رقم الموظف
Table1 = اسم الجدول
TextBox1 = الرقم المراد البحث عنه
3 = بداية عملية البحث من الرقم الرابع لأن الرقم الأول يبدأ بصفر والرقم الثاني 1 وهكذا
1 = طول الرقم المراد البحث عنه
عدل ما يلزم ليتناسب مع تطبيقك
هاذا هو الشرح ارسل الكود الذي لديك لنرى ما الخطأ
المشاركات : 205
المواضيع 112
الإنتساب : Feb 2016
السمعة :
1
الشكر: 22
تم شكره 78 مرات في 52 مشاركات
الكود في الكلاس :_
----------------------------
Public Function testttttt(ByVal Full_Name As String) As DataTable
Dim CON As New Class1
Dim DT As New DataTable
DT.Clear()
DT = CON.SELECT_TXT(" SELECT * FROM dbo.P_Pension WHERE substring(PensionNo,9,1) LIKE '%" & Full_Name & "%'")
Return DT
End Function
-------------------------------------------------------------------------
كود البحث:_
--------------------------------
Sub ARD_d()
Dim DT As New DataTable
DT.Clear()
DT = Class1_.testttttt(TextBox2.Text)
dgv1.DataSource = DT
dgv1.DataSource = DT
dgv1.Columns(0).HeaderText = "الرقم"
dgv1.Columns(0).Width = "100"
End Sub
------------------------------------------------------
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
(17-10-19, 02:42 AM)محمد بوقزاحة كتب : حريف برمجة
جزاااك الله كل خير
جربت الطريقة لكن لم تنجح ولا اعرف السبب
رقم الموظف عندي يتكون من 10 خانات مثلا (5570000555)
اي من 0 الى 9 في برمجة الكود
ممكن التوضيح اكثر بارك الله فيك
سبب وضعي لك رقم 3 لانك وضعت ارقام الموظفين من عدد 4 خانات ...
على العموم استبدل رقم 3 لتصبح 9
يا رحمن الدنيا والآخرة ورحيمهما