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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في كود البحث Search khaled12345 5 212 16-07-17, 08:22 PM
آخر رد: سعود
  كيفية عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس khaled12345 19 467 16-07-17, 07:23 PM
آخر رد: حريف برمجة
  [سؤال] استفسار عن كود البحث المتعدد Marwan9990 22 941 15-07-17, 11:51 AM
آخر رد: أبوبكر سويدان
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 655 03-07-17, 05:04 AM
آخر رد: K39
  [سؤال] السلام عليكم عندي سوال وهو طريقة جعل ال server وسيط بين عدة clients jalal alfarawi 3 181 31-05-17, 11:30 PM
آخر رد: Adrees
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 459 24-10-16, 07:54 PM
آخر رد: saimon
  مشكله في عملية البحث علي كعبي 12 631 01-06-16, 01:21 AM
آخر رد: علي كعبي
Question [سؤال] كود البحث طول جدا و بطى alims 6 601 23-01-16, 06:11 PM
آخر رد: alims
  مثال على البحث في جدولين بالداتا قريد sql rookan 6 1,205 12-01-16, 01:17 PM
آخر رد: abdhassan
  ابحث عن كود يقوم بالبحث داخل DataGridView عن طريق القيم داخل list box يرجى المساعدة moh61 4 1,216 04-09-15, 07:40 AM
آخر رد: khodor1985

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


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