تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
يا اخوان ارجو المساعدة في كود جمع جدول في قاعدة البيانات بتاريخ معين
#1
لدي جدول فيه التاريخ والميلغ اريد ان اقوم بجمع عدة حقول بتاريخ معين
text2 التاريخ label1 المجموع
ولاكن في رسالة خطاء وهي
run time error '2147217913 80040e07
النص
نوع البيانات غير متطابق فيتعبير المعايير
وهذا الكود


If rs.State = 1 Then rs.Close
DoEvents

rs.Open "Select SUM(many) as many From tot where da='" & Text2.Text & "'", db, adOpenKeyset, adLockPessimistic
DoEvents


If rs.RecordCount > 0 Then
Label1.Caption = rs![many]
DoEvents
Else
Label1.Caption = "0"
DoEvents
End If
If rs.State = 1 Then rs.Close
DoEvents
الرد }}}}
تم الشكر بواسطة:
#2
ضع الكود التالي في الكوماند

كود :
Label1.Caption = "0"
If rs.State = 1 Then rs.Close
rs.Open "SELECT SUM(many) as total FROM tot where da='" & Text2.Text & "'", db, adOpenKeyset, adLockPessimistic

Label1.Caption = rs!total
rs.Close
الرد }}}}
تم الشكر بواسطة:
#3
نفس المشكلة ارجو الافادة
الرد }}}}
تم الشكر بواسطة:
#4
ارجو من الاخوان الافادة في الموضوع
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

- أخي علوش . تأكد أولا من صحة كتابة التاريخ . ثانيا تأكد من أن نوع الحقل da نصي لأنك أستخدم علامة التنصيص المفرد ' . وتأكد أيضا من أن نوع الحقل many رقمي أو عمله . وإذا إستمرت المشكلة فغير نوع الحقل da إلى "تاريخ وقت" وضع بدل علامة التنصيص المفرد # .

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#6
المشكلة عندك لأن الحقل من نوع تاريخ ولحل هذي المشكلة ضع الاستعلام هذا بدل السابق

rs.Open "SELECT SUM(many) as total FROM tot where da=#" & Text2.Text & "#", cn, adOpenKeyset, adLockPessimistic
الرد }}}}
تم الشكر بواسطة:
#7
اخواني ارفقت صورة الخطاء بعد تعديل الكود الى
If rs.State = 1 Then rs.Close

rs.Open "Select SUM(many) as many From tot where da=#" & Text2.Text & "#", db, adOpenKeyset, adLockPessimistic


Label1.Caption = rs![many]

ارجو الاطلاع
[ATTACH=CONFIG]2383[/ATTACHنوع الخطاء
run time error 94
invalid use of null


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#8
أهلا ، قم بتغير السطر الملون بالأصفر اللي فيه الخطأ إلى هذا :

كود :
IF Not IsNull(rs!many) Then Label1.Caption = rs!many Else Label1.Caption = "0"

- ومعنى الخطأ إن قيمة الحقل كانت فارغه لذلك لابد أن تتأكد القيمة الحقل ليست فارغه كما هو في هذا السطر المعدل .

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#9
اخوي vb_coder عافاك الله واشكرك على التفاعل معي ولاكن مازلت النشكلة لذلك ارفقت المثال للأطلع عليه
http://www.mediafire.com/?4ecdmcoh31vz95a
الرد }}}}
تم الشكر بواسطة:
#10
أهلا , قاعدة البيانات 2007 والأوفيس اللي عندي 2003 ولم اتعامل من قبل مع قاعدة بيانات بتنسيق 2007 .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في تجميع مسحوبات كل صنف للعميل nourmandour 0 19 منذ 9 ساعة مضت
آخر رد: nourmandour
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 244 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 60 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 195 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 202 15-04-17, 04:13 AM
آخر رد: sendbad100
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 10 422 20-03-17, 10:50 PM
آخر رد: awidan76
  [نقاش] نسخ المفات في مجلد معين بالجهاز maher 1 111 09-03-17, 09:14 AM
آخر رد: Ashraf Elafify
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 147 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 268 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 407 19-11-16, 04:27 AM
آخر رد: ابو ليلى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم