تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الرجاء المساعدة( تحديد نوع الادخال بقاعدة البيانات)
#1
السلام عليكم ,,,

عندي مشكلة عند حفظ مدخل في قاعدة البيانات
حيث انني عملت قاعدة بيانات عبارة عن
الاسم - الرقم - تاريخ الميلاد
لكن عند الضغط على حفظ
يضع اشارة على الكود

Adodc1.Recordset.Fields("Emp_Bdate") = txtBdate.Text

Emp_Bdate : اسم الحقل
txtBdate: مربع نص
اي ان نوع الاخال غير صحيح بالنسبة للتاريخ
هل يوجد اضافة لهذا الكود ليقبل الحفظ
مع العلم انه التاريخ في قاعدة البيانات اكسس من نوع date/time

اساس المشكلة انه عندما ابقي مربع التاريخ فارغاً  او اكتب شيئ غير تاريخ او وقت يظهر عندي مشكلة بالحفظ


وشكراُ لمساعدتكم
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
اخي هاني ارفق لنا مثال بسيط لنتمكن من حل المشكلة
(( وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ ))
الرد }}}
تم الشكر بواسطة: ahmedabdelaliem , Ahmed_Mansoor , fahad764 , haniblack
#3
السلام عليكم ورحمة الله وبركاته
اخي الكريم حقل التاريخ لا يقبل غير التاريخ والوقت فقط  يجب اجبار المستخدم على ادخال تاريخ
الحفظ يكون بتنسيق افضل جرب ان تدخل تاريخ في التكست وعدل كود الحفظ هكذا


PHP كود :
Adodc1.Recordset.Fields("Emp_Bdate") = Format(txtBdate.Text"dd/mm/yyyy"

بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , fahad764 , haniblack
#4
السلام عليكم...

بما أن الحقل في قاعدة البيانات من النوع Date/Time فيجب تحويل قيمة مربع النص إلى تاريخ عند إسنادها إلى الحقل:

كود :
Adodc1.Recordset("Emp_Bdate") = CDate(txtBdate.Text)    ' abc
الجزء ' abc فقط لمنع ظهور الكود بشكل مقلوب!!!

فد يقع الخطأ في هذا السطر أيضاً إذا كان المكتوب في مربع النص لا يمكن تفسيره كتاريخ صحيح، مثل 35/13/2016
و لضمان إدخال تاريخ صحيح استخدم المكون DateTimePicker الخاص بالتاريخ و الوقت:
كود :
Adodc1.Recordset("Emp_Bdate") = DateTimePicker1.Value


نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: ahmedabdelaliem , Ahmed_Mansoor , Ahmed_Mansoor , haniblack , administrator
#5
بارك الله فيك اخي ناجى وزادك من علمه
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة:
#6
أهلا بك أخي العزيز ناجي إبراهيم ألف شكراً جزيلا ً لك على ردك الرائع والوافي الذي عودتنا عليه , بالنسبه لضبط تنسيق الكود الذي تود وضعه في أي رد تستطيع إستخدام تاق البي إتش بي بدل من تاق الكود مع تاق الـ align , يعطيك العافيه .
الرد }}}
تم الشكر بواسطة: haniblack
#7
(26-02-16, 06:40 AM)Ahmed_Mansoor كتب : أهلا بك أخي العزيز ناجي إبراهيم ألف شكراً جزيلا ً لك على ردك الرائع والوافي الذي عودتنا عليه , بالنسبه لضبط تنسيق الكود الذي تود وضعه في أي رد تستطيع إستخدام تاق البي إتش بي بدل من تاق الكود  مع تاق الـ align , يعطيك العافيه .

شكراً لكم جميعاً
على اهمامكم بالموضوع
لقد استفدت منكم جميعاً على هذه المعلومات لقد قمت بتغيير الكود كما ارسلتوه
لكن عندي مشكلة انه في حال انني لاارغب بوضع باضاقة او املك التاريخ يعني يجب انه ادعه فارغ
كيف يمكن ان اعمل حفظ
لانني عند ضغط حفظ يظهر خطأ عند كود التاريخ

وشكرا لكم جميعً
واتمنا لكم النجاح والتوفيق
الرد }}}
تم الشكر بواسطة:
#8
ارفع مثالك
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#9
(29-02-16, 05:41 PM)ahmedabdelaliem كتب : ارفع مثالك

سيد احمد هذا المثال صنعته بسرعة

ارجو منك ان  تدلني على طريقة حتى لو تركت مربع التاريخ فارغ لايظر اي رسالة خطأ

مثلا اريد ادخال الاسم فقط ولا املك التواريخ حالياً

وشكراً  لك


الملفات المرفقة
.rar   my project.rar (الحجم : 9.67 ك ب / التحميلات : 46)
الرد }}}
تم الشكر بواسطة:
#10
اخي حقل التاريخ لا يقبل ان يكون خالي يجب اسناد قيمة له ولكن اذا ضروري يمكنك تعديل الكود هكذا

PHP كود :
Private Sub Command1_Click()
On Error Resume Next
Dim Response 
As String
Dim uname 
As String


uname 
Text1.Text

Response 
MsgBox("Update this record?"vbYesNo vbQuestion"Confirmation")

If 
Response vbNo Then
Adodc1
.Refresh
Adodc1
.Recordset.CancelUpdate
Adodc1
.Refresh

MsgBox 
"Save Cancelled!"

ElseIf Text1.Text "" Then
MsgBox 
"Please fill the Employee ID !"vbCriticalTime
ElseIf Response vbYes Then

 Adodc1
.Recordset.Fields("name") = IIf(IsNull(Text1.Text), ""Text1.Text)
 
Adodc1.Recordset.Fields("pass") = IIf(IsNull(Text2.Text), ""CDate(Text2.Text))
 
Adodc1.Recordset.Fields("eqama") = IIf(IsNull(Text4.Text), ""CDate(Text4.Text))
 
Adodc1.Recordset.Fields("startdate") = IIf(IsNull(Text4.Text), ""CDate(Text4.Text))
 
Adodc1.Recordset.Update
MsgBox 
"Record Saved!"vbInformationTime
End 
If
End Sub 


بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 0 375 21-01-24, 12:58 PM
آخر رد: haitham Muhammed
  [vb6.0] تصدير البيانات محمد عياش 0 470 12-12-22, 07:10 PM
آخر رد: محمد عياش
  بخصوص صيغة التاريخ عند الحفظ في قاعدة البيانات hannileo 0 551 03-07-22, 12:19 PM
آخر رد: hannileo
  [vb6.0] طلب : كود عرض نص معين من قاعدة البيانات وعرضه في label في داتا ريبورت hamada salah90 3 1,561 26-07-21, 06:43 PM
آخر رد: hamada salah90
  [vb6.0] أريد شرح مبسط وواضح للعلاقات بين جداول قاعدة البيانات وشرح الإستعلامات بهذه العلاقات hamada salah90 0 1,006 01-06-21, 02:12 AM
آخر رد: hamada salah90
  [vb6.0] مشكل في ادخال البيانات من البارتاج lkjnfg 0 1,087 26-10-20, 10:03 PM
آخر رد: lkjnfg
  تحديد عدد السجلات المعروضة في التقرير haider kh 8 3,241 22-03-20, 01:38 AM
آخر رد: haider kh
  [سؤال] المساعدة فى عمل برنامج المصحف الملعلم - كيف ادماج ملف صوتى battman2020 1 1,485 28-02-20, 04:41 PM
آخر رد: Ahmed_Mansoor
  مشاركة قاعدة البيانات على الانترنت haniblack 6 4,957 21-01-20, 05:24 PM
آخر رد: abubasilIraq
  مشكلة بقاعدة البيانات hannileo 5 2,812 06-01-20, 03:16 PM
آخر رد: ahmedabdelaliem

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


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