تقييم الموضوع :
  • 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 .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 522 04-09-22, 09:17 AM
آخر رد: mohammed_atallah
Rainbow [سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 العولقي١١ 5 2,908 07-03-22, 04:18 AM
آخر رد: مصمم هاوي
Question سؤال عن نوع قاعدة بيانات AmR EiSa 0 901 04-01-22, 11:10 PM
آخر رد: AmR EiSa
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,796 21-11-21, 05:43 PM
آخر رد: mona82
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,404 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
Rainbow مساعدة في قاعدة بيانات VB6+ACESS tareqhabib15 2 1,507 01-12-20, 08:54 PM
آخر رد: tareqhabib15
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 1,850 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com
  [vb6.0] كود استخراج البيانات من داتا جرايد الى الاكسل karmina2012 0 1,345 01-05-20, 07:08 AM
آخر رد: karmina2012
  برنامج جدول الضرب kader30 5 4,915 29-04-20, 05:17 AM
آخر رد: Amir_Alzubidy
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 1,908 30-12-19, 01:25 PM
آخر رد: amazonette

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


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