07-12-21, 01:41 AM
السلام عليكم ورحمة الله
ارجو مساعدتي في عمل كود لبحث بواسطة رقم داخل الحقل مثلا
الارقام المخزنة مثل هذي الارقام مكونة من احدى عشر رقم 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
ارجو مساعدتي في عمل كود لبحث بواسطة رقم داخل الحقل مثلا
الارقام المخزنة مثل هذي الارقام مكونة من احدى عشر رقم 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