تقييم الموضوع :
  • 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
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ البيانات بواسطة اللوب muaamar 0 208 27-06-22, 11:49 PM
آخر رد: muaamar
  كود لارسال البريد الالكتروني بواسطة الاوتولوك saudd4001 3 629 25-06-21, 01:03 PM
آخر رد: saudd4001
  كيف ازيد ارتفاع سطر في داتا جريد فيو-تم الحل بواسطة /ابوانس/ خالد20 2 723 25-06-21, 12:58 PM
آخر رد: خالد20
  انتقال إلى سطر جديد بواسطة ضغط الزر انتر Alhootti1 10 2,143 03-02-21, 01:23 PM
آخر رد: Alhootti1
  ممكن كود فلترة الصنف بواسطة الكمبوبوكس sofiane-phy 2 953 18-11-20, 04:01 PM
آخر رد: INFLaaTy.cR
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 1,027 16-09-20, 03:57 PM
آخر رد: رامى محمد
  شباب احتاج مساعدتكم للضرورة بأرسال ملفPDF بواسطة الواتس اب ويب من خلال Report Viewer mohamedgadain61 0 864 12-06-20, 03:42 PM
آخر رد: mohamedgadain61
  [سؤال] الطباعة من وورد بواسطة فيجوال بيسك AnasAlhussain 4 1,348 19-05-20, 04:42 AM
آخر رد: AnasAlhussain
  [سؤال] بدي أعمل LCD Interfacing with VB بواسطة ال parallel port abd saqqa 1 924 19-12-19, 01:07 PM
آخر رد: abd saqqa
Rainbow [VB.NET] الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك علي إبراهيم الحاج علي 4 1,783 15-10-19, 05:15 PM
آخر رد: علي إبراهيم الحاج علي

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


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