+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] txtsearch (/showthread.php?tid=12233)
txtsearch - ملك الوورد - 06-05-15
السلام عليكم
ارجو المساعده في جعل (textbox) الخاص في البحث ان يبحث بعدة طرق او بعدة اوامر مثلا
حاليا لديه txtsearch موجود على فورم الست فيو(listvew) يبحث برقم فاتورة البيع فتظهر معلومات الفاتورة كاملا
الذي اريده هو
ان ان اجعل الـ txtsearch يبحث في التاريخ او اسم العميل وغيرها من المعلومات الموجوده داخل الست فيو حيث جربت
حيث جربت اغير حقل الخاصر بالبحث من (id) الى date لم تنجح وادناة الكود
Private Sub txtsearch_Change()
If txtsearch = "" Or rs.RecordCount = 0 Then
check_RS
rs.Open "select * from sales", Cnn
fill
Else
check_RS
rs.Open "select * from sales where salesno = " & txtsearch, Cnn
fill
check_RS1
rs1.Open "select * from sales_total where sales_no = " & txtsearch, Cnn
If rs1.RecordCount <> 0 Then
Set lst = salesList.ListItems.Add(, , "")
lst.SubItems(3) = "Total Amount : "
lst.SubItems(4) = rs1(1)
End If
End If
If txtsearch = "" Then
cmdShow.Enabled = False
Else
cmdShow.Enabled = True
End If
RE: txtsearch - ملك الوورد - 06-05-15
شكرا استاذ ولكن مع الاسف يقوم بجمع المبلغ الاجمالي فقط للكل وتبقى كل التواريخ ظاهره حينما اكتب مثلا 6/5/2015 والمقصود ما ابيع بهذا التاريخ تبقى كل التواريخ السابقة ظاهره
اتمنى اجد لديك الحل في وضع اكثر من تيكست بحث وكل بحث يختص بامر معين
وتقبل ودي واحترامي
RE: txtsearch - محمد العبيدي - 09-05-15
افرغ اللست قبل ان تجري عملية بحث جديدة
ضع هذا الكود lst.Clear في بداية عملية البحث
PHP كود :
Private Sub cmdSearch_Click()
lst.Clear
Dim sql As String
If IsDate(txtOredrDate) Then sql = " AND sales_date = #" & txtOredrDate & "#"
If IsNumeric(txtOrderNo) Then sql = " AND sales_no = " & txtOrderNo
If Trim(txtName) <> "" Then sql = " AND sales_name = '%" & txtName & "%'"
check_RS
rs.Open "select * from sales Where 1=1 " & sql, Cnn
fill
check_RS1
rs1.Open "select * from sales_total Where 1=1 " & sql, Cnn
If rs1.RecordCount <> 0 Then
Set lst = salesList.ListItems.Add(, , "")
lst.SubItems(3) = "Total Amount : "
lst.SubItems(4) = rs1(1)
End If
If rs.RecordCount = 0 Then
cmdShow.Enabled = False
Else
cmdShow.Enabled = True
End If
End Sub
RE: txtsearch - ملك الوورد - 09-05-15
شكرا لك استاذ محمد العبيدي ( ابو جاسم)
ولكن مع الاسف لاتنجح هذه العملية لان تكيست البحث اصلا يعمل بشكل جيد ولكن برقم الفاتوره فتظهر كل المعلومات ومنها التاريخ
وعندما اضفت هذا الكود يعترض على عملية التنظيف lst.Clear ؟؟؟ علما ان حقل التاريخ اسمه Sdate . فغيرت ذلك
كنت اتمنى ان اجعل تيكست بحث اخر او اكثر يبحث في تاريخ البيع او باسم المشتري (الزبون)
1- جدول البيع باسم (sales)
- حقل التاريخ باسم (sdate)
- حقل الزبون باسم (customer)
وتقبل احترامي وتقديري -
RE: txtsearch - محمد العبيدي - 09-05-15
عفوا اخي العزيز لاني لم انتبه الی انك قد استخدمت اداة الlistview عتقدت انها listbox
فقط استبدل السطر
lst.Clear وضع بدل عنها lst.listitems.clear
RE: txtsearch - ملك الوورد - 09-05-15
اتعبتك معي اخي محمد
ولكن (( مع الاسف لم تنجح العملية)
تمنياتي لك بالتوفيق
RE: txtsearch - محمد العبيدي - 09-05-15
اخي ياريت لو ترفع البرنامج للتعديل عليه
لاني انا ايضا اريد اعرف شنو المشكله بالكود
RE: txtsearch - ملك الوورد - 10-05-15
شكرا لك اخ محمد الملف كبير ولا استطيع رفعة وتقبل ودي وتقديري