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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : تعديل كود استعلام (/showthread.php?tid=2072)



تعديل كود استعلام - superwoofer - 28-02-14

قمت باانشاء قاعدة بيانات مكونة من ثلاث حقول
وقمت بتطبيق هذا الاستعلام
SELECT Nn, WW, WW * .07 AS dd, WW + dd AS eee, rr FROM Table1

اريد ان اضع شرط لو زاد الحقل الوهمي eee عن 12 يرجع الي 12
واريد ان يكون الحقل rr يحفظ ناتج eee الوهمي في قاعدة البيانات
مرفق المثال للتعديل عليه


RE: تعديل كود استعلام - تركي الحلواني - 01-03-14

معليش بس اشوفك معقد الموضوع

ممكن تشرح لي وش الفائدة من هذا ولما يكون حقل وهمي


RE: تعديل كود استعلام - VB_Coder - 01-03-14

السلام عليكم

- بدل كود الزر بهذا :

كود :
Private Sub Command3_Click()
Set rs = Nothing

If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "SELECT Nn, WW, WW * .07 AS dd, iif(WW + dd>12,12,WW + dd) AS eee, iif(WW + dd>12,12,WW + dd) AS rr FROM Table1", Adodc1.ConnectionString, 1, 3

Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

- تحياتي .


RE: تعديل كود استعلام - superwoofer - 01-03-14

ممتتتتتاز اخي
بارك الله فيك
بس ينقص شي بسيط
اريد عند فتح قاعدة البيانات اجد
ان الحقل rr قام بحفظ نتيج الاستعلام


RE: تعديل كود استعلام - VB_Coder - 01-03-14

السلام عليكم

- تم التعديل .

- تحياتي .


RE: تعديل كود استعلام - superwoofer - 01-03-14

زادك الله علم