تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السلام عليكم الموضوع كود البحث بالاسم عن طريق التكست
#1
هذا كود البحث عن طريق الرقم واريد بجانبة البحث عن طريق الاسم ولكم جزير الشكر"
Private Sub btnsrch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsrch.Click
Try

''...............................
If txttiktno.Text.Trim = "" Then
MsgBox("أدخل رقم الموظف لاجراء البحث المطلوب", MsgBoxStyle.Information)
txttiktno.Focus()


btnsrch.Enabled = True

Exit SubQ

End If
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If

'.....................................

search = ""
sql = ""

'.....................................

Dim FirstCont As Boolean = True
If txttiktno.Text <> "" Then 'اذا تكست البحث لا يساوي فاضي
If FirstCont = False Then
search = search & " hajz.ticket_no = " & txttiktno.Text & ""
Else
FirstCont = False
search = search & " hajz.ticket_no = " & txttiktno.Text & ""
End If
End If

sqlcon.Open()


classpro.FillDataGrid(DGpassnger, "select hajz.ticket_no,hajz.pass_name,sub_line.sub_name,hajz_date,journey.jor_date from hajz ,sub_line,journey where hajz.sub_no=sub_line.sub_no and journey.jor_no=hajz.jor_no and " & search)

DGpassnger.Columns(0).HeaderText = "رقم التذكره"
DGpassnger.Columns(1).HeaderText = "الاسم المسافر"
DGpassnger.Columns(2).HeaderText = "المسار"
DGpassnger.Columns(3).HeaderText = "تاريخ الحجز"
DGpassnger.Columns(4).HeaderText = "تاريخ الرحله"

Dim cmd As New SqlCommand()
cmd.Connection = sqlcon

Dim dr As SqlDataReader = cmd.ExecuteReader



If dr.HasRows Then 'في حالة قراءة البيانات
dr.Read() 'نفذ القراءة التالي


DGpassnger.DataSource = ds.Tables





Else






MsgBox("السجل المطلوب غير موجود", MsgBoxStyle.Exclamation, "تنبيه")

End If

If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If

Catch ex As Exception

End Try

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 116 24-10-16, 07:54 PM
آخر رد: saimon
  مشكله في عملية البحث علي كعبي 12 231 01-06-16, 01:21 AM
آخر رد: علي كعبي
Question [سؤال] كود البحث طول جدا و بطى alims 6 401 23-01-16, 06:11 PM
آخر رد: alims
  مثال على البحث في جدولين بالداتا قريد sql rookan 6 777 12-01-16, 01:17 PM
آخر رد: abdhassan
  ابحث عن كود يقوم بالبحث داخل DataGridView عن طريق القيم داخل list box يرجى المساعدة moh61 4 846 04-09-15, 07:40 AM
آخر رد: khodor1985
  [سؤال] كيف اعرف اسم الجدول عن طريق DataTable سعود 2 286 29-08-15, 09:23 PM
آخر رد: أبو عمر
  [VB.NET] ارجو المساعده في كود البحث عن تاريخ DArk LiGhT 1 349 13-08-15, 11:54 PM
آخر رد: Sajad
  [سؤال] البحث اكتر من مره لا يعرض الصور sa86ra 0 350 07-04-15, 07:08 PM
آخر رد: sa86ra
  حفظ السجلات عن طريق الداتا قريد فيو aftfm 2 1,226 06-02-15, 11:46 PM
آخر رد: ahmed saba
  [VB.NET] ملأ DATAGRID بالمعلومات عن طريق DO WHILE الطائي 1 467 13-01-15, 03:08 PM
آخر رد: سعود

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


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