تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] بحث بواسطة رقم
#1
السلام عليكم ورحمة الله 
ارجو مساعدتي في عمل كود لبحث بواسطة رقم داخل الحقل مثلا 
الارقام  المخزنة مثل هذي الارقام مكونة من احدى عشر  رقم   33245632555

اريد البحث عن طريق خانة  رقم 4  من اليمين
استخدم برنامج فيجوال بيسك 2010
 قاعدة البيانات 
sql 2019
===============================================
Public Class Class1
  Public Function number_num(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 P_Pension where PensionNo like '%" & Full_Name & "' order by  PensionNo ")
        Return DT
    End Function
End Class
================================================
    Private Sub Button1_Click(ByVal sender As system.Object, ByVal e As system.EventArgs) Handles Button1.Click
        Try
        Dim count_ As Integer = 0
        Dim dt As New DataTable
        dt.Clear()
        dt = Class1_.number_num(TextBox5.Text)
        If dt.Rows.Count > 0 Then
            DGV.RowCount = dt.Rows.Count
            For i As Integer = 0 To dt.Rows.Count - 1
                DGV.Rows(count_).Cells(0).Value = dt.Rows(i)(0).ToString()
                DGV.Rows(count_).Cells(1).Value = dt.Rows(i)(1).ToString()
                DGV.Rows(count_).Cells(2).Value = dt.Rows(i)(2).ToString()
                DGV.Rows(count_).Cells(3).Value = dt.Rows(i)(3).ToString()
                count_ = count_ + 1
                TextBox1.Text = DGV.Rows.Count
            Next
        Else
            DGV.Rows.Clear()
                MessageBox.Show("  لا توجد بيانات  ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception

        End Try
    End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لارسال البريد الالكتروني بواسطة الاوتولوك saudd4001 3 424 25-06-21, 01:03 PM
آخر رد: saudd4001
  كيف ازيد ارتفاع سطر في داتا جريد فيو-تم الحل بواسطة /ابوانس/ خالد20 2 453 25-06-21, 12:58 PM
آخر رد: خالد20
  انتقال إلى سطر جديد بواسطة ضغط الزر انتر Alhootti1 10 1,538 03-02-21, 01:23 PM
آخر رد: Alhootti1
  ممكن كود فلترة الصنف بواسطة الكمبوبوكس sofiane-phy 2 767 18-11-20, 04:01 PM
آخر رد: INFLaaTy.cR
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 839 16-09-20, 03:57 PM
آخر رد: رامى محمد
  شباب احتاج مساعدتكم للضرورة بأرسال ملفPDF بواسطة الواتس اب ويب من خلال Report Viewer mohamedgadain61 0 744 12-06-20, 03:42 PM
آخر رد: mohamedgadain61
  [سؤال] الطباعة من وورد بواسطة فيجوال بيسك AnasAlhussain 4 1,123 19-05-20, 04:42 AM
آخر رد: AnasAlhussain
  [سؤال] بدي أعمل LCD Interfacing with VB بواسطة ال parallel port abd saqqa 1 758 19-12-19, 01:07 PM
آخر رد: abd saqqa
Rainbow [VB.NET] الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك علي إبراهيم الحاج علي 4 1,559 15-10-19, 05:15 PM
آخر رد: علي إبراهيم الحاج علي
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 20 3,536 02-09-19, 07:32 PM
آخر رد: Abdalazim19

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


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