+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] احد طرق البحث في vb.net (/showthread.php?tid=15553)
الصفحات:
1
2
احد طرق البحث في vb.net - رومنس الشوق - 22-04-16
السلام عليكم ورحمة الله وبركاته
انا تناقشت مع مجموعه من الشباب في موضوع سابق عن طرق البحث
وماقصرو ونزلو اكثر من طريقه للبحث ولكن انا اريد طريقه معينه للبحث وهي كالتالي
الشرح
انا راح اضيف البيانات كما هو موضح
رقم الهويه الاسم رقم الجوال
طبعا لثلاثه اشخاص
اريد بعد حفظ بياناتهم البحث عن احدهم بكتابه رقم هويه في التكست بوكس الخاص بالحث وضغط على زر البحث
وبعدها يقوم باظهاراها لي بياناته في الاعلي
انا راح ارفق لك المثال للتعديل عليه وكتابه كود زر البحث
كود الاضافه انا كاتبه باقي زر البحث فقط
شاكر لكم تعاونكم
RE: احد طرق البحث في vb.net - رومنس الشوق - 22-04-16
اخي هل حصلت الكود الخاص بزر البحث
اما بالنسبه لمشاركت انا ان نقوم بفتح موضوع خاص بها ونتشارك في حله مع الشباب
RE: احد طرق البحث في vb.net - WAEL ABED - 22-04-16
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim CmdSelect As New OleDbCommand("Select * from table1 where [ID1]=" & TextBox16.Text & "", conn)
Dim dt As New DataTable
conn.Open()
dt.Load(CmdSelect.ExecuteReader())
ha1.Text = dt.Rows(0)(0).ToString
na1.Text = dt.Rows(0)(1).ToString
ph1.Text = dt.Rows(0)(2).ToString
ha2.Text = dt.Rows(0)(3).ToString
na2.Text = dt.Rows(0)(4).ToString
ph2.Text = dt.Rows(0)(5).ToString
ha3.Text = dt.Rows(0)(6).ToString
na3.Text = dt.Rows(0)(7).ToString
ph3.Text = dt.Rows(0)(8).ToString
conn.Close()
End Sub
RE: احد طرق البحث في vb.net - رومنس الشوق - 22-04-16
للاسف بعد الضغط على زر البحث يطلع هالخطا
الخطا اني لما اضع رقم 1 مثل الهويه
تظهر لي جميع السجلات
الهويه للرقم 1
والرقم2
والرقم 3
يعني لايظهر لي السجل المطلوب فقط وهو رقم 1
تظهر كل السجلات
RE: احد طرق البحث في vb.net - WAEL ABED - 22-04-16
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If (Trim(TextBox16.Text) = "") Then
MsgBox(" Fill Data In TextBox")
Exit Sub
End If
Dim CmdSelect As New OleDbCommand("Select * from table1 where [ID1]=" & TextBox16.Text & "", conn)
Dim dt As New DataTable
conn.Open()
dt.Load(CmdSelect.ExecuteReader())
If (dt.Rows.Count = 0) Then
MsgBox("Not found Data")
Exit Sub
End If
ha1.Text = dt.Rows(0)(0).ToString
na1.Text = dt.Rows(0)(1).ToString
ph1.Text = dt.Rows(0)(2).ToString
ha2.Text = dt.Rows(0)(3).ToString
na2.Text = dt.Rows(0)(4).ToString
ph2.Text = dt.Rows(0)(5).ToString
ha3.Text = dt.Rows(0)(6).ToString
na3.Text = dt.Rows(0)(7).ToString
ph3.Text = dt.Rows(0)(8).ToString
conn.Close()
End Sub
RE: احد طرق البحث في vb.net - رومنس الشوق - 22-04-16
يالغالي انا ارفقت لك البرنامج بعد التعديل عليه
انت اضف بيانات جديده
وابحث برقم الهويه
راح تطلع معاك كل البيانات
وبعدا ابحث مره ثانيه قبل تقفل البرنامج وستظهر لك رساله اخري
RE: احد طرق البحث في vb.net - WAEL ABED - 22-04-16
من الواضح انك بتقولى حاجه وانا بنفذ حاجه تانى خالص ممممممممممم
RE: احد طرق البحث في vb.net - رومنس الشوق - 22-04-16
اتمني تكون لديك الكود اللي ابحث عنه
اكون شاكر ومقدر لك يالغالي
RE: احد طرق البحث في vb.net - WAEL ABED - 22-04-16
دى اكواد المشروع كله
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data99.mdb")
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim cmdinsert As New OleDbCommand("insert into table1 (ID1, name1, numbeer1,ID2, name2, number2,ID3, name3, number3) values ('" & ha1.Text & "','" & na1.Text & "','" & ph1.Text & "','" & ha2.Text & "','" & na2.Text & "','" & ph2.Text & "','" & ha3.Text & "','" & na3.Text & "','" & ph3.Text & "')", conn)
cmdinsert.ExecuteNonQuery()
MsgBox("تم حفظ البيانات بنجاح")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ha1.Text = ""
na1.Text = ""
ph1.Text = ""
ha2.Text = ""
na2.Text = ""
ph2.Text = ""
ha3.Text = ""
na3.Text = ""
ph3.Text = ""
If (Trim(TextBox16.Text) = "") Then
MsgBox(" Fill Data In TextBox")
Exit Sub
End If
Dim CmdSelect As New OleDbCommand
CmdSelect.Connection = conn
CmdSelect.CommandType = CommandType.Text
CmdSelect.CommandText = "Select * from table1 where [ID1]=" & TextBox16.Text & ""
Dim dt As New DataTable
dt.Clear()
dt.Load(CmdSelect.ExecuteReader())
Using dt
If (dt.Rows.Count <> 0) Then
ha1.Text = dt.Rows(0)(0).ToString
na1.Text = dt.Rows(0)(1).ToString
ph1.Text = dt.Rows(0)(2).ToString
End If
End Using
CmdSelect.CommandText = "Select * from table1 where [ID2]=" & TextBox16.Text & ""
dt.Clear()
dt.Load(CmdSelect.ExecuteReader())
Using dt
If (dt.Rows.Count <> 0) Then
ha2.Text = dt.Rows(0)(3).ToString
na2.Text = dt.Rows(0)(4).ToString
ph2.Text = dt.Rows(0)(5).ToString
End If
End Using
CmdSelect.CommandText = "Select * from table1 where [ID3]=" & TextBox16.Text & ""
dt.Clear()
dt.Load(CmdSelect.ExecuteReader())
Using dt
If (dt.Rows.Count <> 0) Then
ha3.Text = dt.Rows(0)(6).ToString
na3.Text = dt.Rows(0)(7).ToString
ph3.Text = dt.Rows(0)(8).ToString
End If
End Using
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conn.Open()
End Sub
End Class
اتمنى اكود وفقت
RE: احد طرق البحث في vb.net - رومنس الشوق - 22-04-16
بيض الله وجهك يالغالي
شغال الكود تمام التمام
راح انقله لمشروعي الكامل
اونشالله ماتظهر فيه اخطاء
وراح اتابع معاك لو فيه شي