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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb طلب : مشروع الارشفة الالكترونية للوثائق و المستندات عن طريق الماسح الضوئي قاموس نفر 0 1,243 11-01-22, 02:21 AM
آخر رد: قاموس نفر
  تشغيل الsql server على جهاز متصل بالسيرفر عن طريق vpn bassant 1 1,079 20-09-21, 11:10 AM
آخر رد: bassant
  [سؤال] كيفية الوصول الى قاعدة بيانات mysql موجودة على الكمبيوتر المحلي xammp عن طريق النت alfaiz678 4 1,883 25-06-21, 09:46 AM
آخر رد: alfaiz678
  سؤال : طريقة ربط الفيجوال بيسك بقاعدة بيانات mysql عن طريق صفحة php وسيطة alfaiz678 6 4,020 02-10-20, 07:42 AM
آخر رد: alfaiz678
  اريد عمل تواصل بين الادارات عن طريق ال SQL Serverو الدوت نت الحزين اوى 1 1,387 02-07-20, 09:47 AM
آخر رد: kiki
  [سؤال] اخواني السلام عليكم ورحمة الله انا مبتدي في البرمجة اريد كود ربط sql server 2014 mohamedhota 1 1,998 04-04-19, 07:55 PM
آخر رد: elgokr
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 2,270 21-02-19, 04:38 PM
آخر رد: elgokr
  السلام عليكم طريقة عرض السجلات بطريقة افقية mohamedgadain61 0 2,007 16-10-18, 05:01 PM
آخر رد: mohamedgadain61
  [سؤال] السلام عليكم اصدقاء المتوجدون الان محبه البرمجه 0 1,120 05-04-18, 12:46 PM
آخر رد: محبه البرمجه
  مشكلة في كود البحث Search khaled12345 5 3,132 16-07-17, 08:22 PM
آخر رد: سعود

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


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