منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] البحث بمجرد الكتابه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] البحث بمجرد الكتابه (/showthread.php?tid=2612)

الصفحات: 1 2 3 4

RE: البحث بمجرد الكتابه - حريف برمجة - 19-04-14

انت حاط استعلامين بينما واحد يكفي ،،
استبد الكود كامل بهذا الكود

كود :
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
        If txtSearch.Text = "" Then
            Dim Msg As String = "فضلاً ادخل السجل المدني الخاص بالعميل الذي تود البحث عن مواعيده"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtSearch.Focus()
            Exit Sub
        End If

        Try
            CMD = New OleDbCommand("SELECT qAllCustomer.CivilRegNum, qAllCustomer.FullName, qAllCustomer.MobileNum, qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum like '%" & txtSearch.Text & "'", ApoSYSconn)
            Dim da As New OleDbDataAdapter
            da.SelectCommand = CMD
            Dim dt As New DataTable
            da.Fill(dt)
            If dt.Rows.Count = 0 Then
                MsgBox("لا يوجود سجلات لعملية البحث")
            Else
                txtCRN.Text = dt.Rows(0)("CivilRegNum").ToString
                txtFullName.Text = dt.Rows(0)("FullName").ToString
                txtMobile.Text = dt.Rows(0)("MobileNum").ToString

                dgv1.DataSource = dt
                dgv1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            End If
          
            'txtSearch.Text = ""
        Catch ex As Exception
            'MessageBox.Show(ex.Message)
        End Try
    End Sub


RE: البحث بمجرد الكتابه - bumb - 19-04-14

نسخت الكود وصارت تطلع الرساله بعد ادخال الخانة الثالثه بينا عدد الخانات 10 خانات
المطلوب تنظيف المربعات والداتا قريد اذا كان السجل مش موجود يعني الكود يمشي مع الادخالات حتى النهايه واذا كان الرقم بالكامل مش كوجود يتم تنظيف التكست بوكس والداتا قريد

شاهد قاعدة البيانات المرفقه
هي فارغه ولكن ضع بها بيانات وجرب عملية البحث عن عميل
كلمة المرور واسم المستخدم
admin
0553546546
ولعرض مكونات القاعده اضغط شفت عند التشغيل



RE: البحث بمجرد الكتابه - حريف برمجة - 19-04-14

بعد الزساله التي تفيد بعدم وجود سجلات ضع هذي الاسطر


Txtcrn.text = ""

واعمل باقي التكستات المطلوب افراغ محتواها

ايضا لتفريغ الداتا قريد
dgv1.datasource = nothing

RE: البحث بمجرد الكتابه - bumb - 19-04-14

عند ادخال رقم السجل المدني مثل 1234567890 فان الرساله تظهر عند الرقم 5

RE: البحث بمجرد الكتابه - bumb - 19-04-14

فوق ياشباب

RE: البحث بمجرد الكتابه - bumb - 19-04-14

شكلكم نسيتوني

RE: البحث بمجرد الكتابه - سعود - 19-04-14

السلام عليكم
كيف حالكم جميعا
تو خلصت اللمسات الاخيرة لمشروع الناسخ الحقيقي للمنتدى
---------------
ايش المطلوب باختصار؟
وماهي المشكلة من البحث باول ادخال في حدث Textchange باستخدام الكود التالي:
PHP كود :
"where tname like'%" & sender.text & "%'" 


RE: البحث بمجرد الكتابه - bumb - 20-04-14

(19-04-14, 02:41 PM)bumb كتب : نسخت الكود وصارت تطلع الرساله بعد ادخال الخانة الثالثه بينا عدد الخانات 10 خانات
المطلوب تنظيف المربعات والداتا قريد اذا كان السجل مش موجود يعني الكود يمشي مع الادخالات حتى النهايه واذا كان الرقم بالكامل مش كوجود يتم تنظيف التكست بوكس والداتا قريد

شاهد قاعدة البيانات المرفقه
هي فارغه ولكن ضع بها بيانات وجرب عملية البحث عن عميل
كلمة المرور واسم المستخدم
admin
0553546546
ولعرض مكونات القاعده اضغط شفت عند التشغيل



RE: البحث بمجرد الكتابه - حريف برمجة - 20-04-14

ايش المطلوب بالضبط ،،، وضح اكثر وحاول يكون طلبك واحد حتى تنتهي منه .

RE: البحث بمجرد الكتابه - bumb - 20-04-14

طلبي هو بحث بمجرد الكتابه