السلام عليكم الموضوع كود البحث بالاسم عن طريق التكست - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40) +--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41) +--- الموضوع : السلام عليكم الموضوع كود البحث بالاسم عن طريق التكست (/showthread.php?tid=1888) |
السلام عليكم الموضوع كود البحث بالاسم عن طريق التكست - الهيثم007 - 12-02-14 هذا كود البحث عن طريق الرقم واريد بجانبة البحث عن طريق الاسم ولكم جزير الشكر" 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 |