[VB.NET] بحث بواسطة رقم - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] بحث بواسطة رقم (/showthread.php?tid=40178) |
بحث بواسطة رقم - محمد بوقزاحة - 07-12-21 السلام عليكم ورحمة الله ارجو مساعدتي في عمل كود لبحث بواسطة رقم داخل الحقل مثلا الارقام المخزنة مثل هذي الارقام مكونة من احدى عشر رقم 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 |