+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : تصحيح كود للبحث عن طريق اداة adodc (/showthread.php?tid=8594)
تصحيح كود للبحث عن طريق اداة adodc - مبرمج بلا حدود - 22-04-13
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ممكن احد يصححلي كود البحث عن طريق اداة adodc
هذا جزاكم الله خير
PHP كود :
Dim s As String
s = InputBox("ÇáÈÍË ÏÇÎá ÇáÓÌáÇÊ", , "ÃÏÎá ÇáÇÓã ÇáãÑÇÏ ÇáÈÍË Úäå")
Adodc1.RecordSource = "Select * from Table1 where namee like '" + s + "*' "
Adodc1.Refresh
تصحيح كود للبحث عن طريق اداة adodc - مبرمج بلا حدود - 22-04-13
طبعا الكتابة الي مو واضحة هي رسالة بالعربي ماكو مشكلة ربي يحفظكم
تصحيح كود للبحث عن طريق اداة adodc - حريف برمجة - 22-04-13
مبرمج بلا حدود كتب :بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ممكن احد يصححلي كود البحث عن طريق اداة adodc
هذا جزاكم الله خير
PHP كود :
Dim s As String
s = InputBox("ÇáÈÍË ÏÇÎá ÇáÓÌáÇÊ", , "ÃÏÎá ÇáÇÓã ÇáãÑÇÏ ÇáÈÍË Úäå")
Adodc1.RecordSource = "Select * from Table1 where namee like '" + s + "*' "
Adodc1.Refresh
عدل هذا السطر
Adodc1.RecordSource = "Select * from Table1 where namee like '" + s + "*' "
إلى هذا
[COLOR="#FF0000"] Adodc1.RecordSource = "Select * from Table1 where namee like '" + s + "'"
[/COLOR]
وتأكد من اسم الجدول (Table1) وأسم الحقل المراد البحث عنه نصي بأسم (namee)
تصحيح كود للبحث عن طريق اداة adodc - مبرمج بلا حدود - 22-04-13
تم تصحيح الكود شكرا جزيلا وبارك الله فيكم
ربي يحفظكم
ولمن يهتم هذا الكود
PHP كود :
s = InputBox("البحث داخل السجلات", , "ادخل الاسم المراد البحث عنه")
Adodc1.RecordSource = "select * from Table1 where namee Like '" & (s) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
تصحيح كود للبحث عن طريق اداة adodc - مبرمج بلا حدود - 22-04-13
شكرا جزيلا اخي حريف اسف لم احدث الصفحة قبل ان اقول بالرد الاخير
شكرا جزيلا رح اجرب طريقتك واردلك خبر
ربي يحفظك