تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : تنسيق التاريخ بقاعدة البيانات : الأكسس
#1
السّلام عليكم و رحمة الله و بركاته
سادتي الأفاضل .. لو ممكن أجد لديكم الفكرة المناسبة لتصحيح الخلل ..
أقوم باستيراد البيانات من ملف الإكسل إلى الداتا جريد .. و التاريخ كما هو مبيّن بملف الإكسل أو على الداتا جريد .. يظهر بطريقة عادية جدا .. بمعنى تاريخ فقط بدون .. توقيت ..
المشكلة .. عند التصدير من الداتا جريد إلى الجدول بقاعدة البيانات الأكسس .. يتحول التاريخ إلى : تاريخ و توقيت
مع العلم أنّ التاريخ بجدول الأكسس من نوع نصّي و ليس تاريخ


أين الخلل برأيكم .. بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء
تحياتي واحتراماتي
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي عبد العزيز هل تقوم بتصدير البيانات الى الاكسس ام تقوم بالحفظ؟
الرد
#3
(02-06-19, 03:31 AM)ابراهيم ايبو كتب :
السلام عليكم ورحمة الله وبركاته
اخي عبد العزيز هل تقوم بتصدير البيانات الى الاكسس ام تقوم بالحفظ؟

السّلام عليكم و رحمة الله و بركاته
أهلا بالأخ الغالي " إبراهيم إيبو " ..
أنا أقوم بعملية الحفظ بالجملة المتعارف عليها INSERT INTO
و هذا الكود المستعمل في عملية الحفظ ..
كود :
   Private Sub Export_Data_Grid_View_To_Access_Table()
       Try
           Dim StudentId As Integer, FirstName, LastName, Birthday, LieuBirth, Gender, Nationalite As String

           For xyz As Integer = 0 To DataGridView1.Rows.Count - 1

               StudentId = Me.DataGridView1.Rows(xyz).Cells(0).Value
               FirstName = Me.DataGridView1.Rows(xyz).Cells(1).Value.ToString
               LastName = Me.DataGridView1.Rows(xyz).Cells(2).Value.ToString
               Birthday = Me.DataGridView1.Rows(xyz).Cells(3).Value.ToString
               LieuBirth = Me.DataGridView1.Rows(xyz).Cells(4).Value.ToString
               Gender = Me.DataGridView1.Rows(xyz).Cells(5).Value.ToString
               Nationalite = Me.DataGridView1.Rows(xyz).Cells(6).Value.ToString


               Dim Sql_Str As String = "INSERT INTO TBL_STUDENT( STUDENT_Id, STUDENT_Name, STUDENT_Surname, STUDENT_Date_Naissance, STUDENT_Lieu_Naissance, STUDENT_Gender, STUDENT_Nationalite ) Values ( @STUDENT_Id, @STUDENT_Name, @STUDENT_Surname, @STUDENT_Date_Naissance, @STUDENT_Lieu_Naissance, @STUDENT_Gender, @STUDENT_Nationalite)"
               Dim Cmd As New OleDb.OleDbCommand(Sql_Str, Conne)

               Cmd.Parameters.AddWithValue("@STUDENT_Id", StudentId)
               Cmd.Parameters.AddWithValue("@STUDENT_Name", FirstName)
               Cmd.Parameters.AddWithValue("@STUDENT_Surname", LastName)
               Cmd.Parameters.AddWithValue("@STUDENT_Date_Naissance", Birthday)
               Cmd.Parameters.AddWithValue("@STUDENT_Lieu_Naissance", LieuBirth)
               Cmd.Parameters.AddWithValue("@STUDENT_Gender", Gender)
               Cmd.Parameters.AddWithValue("@STUDENT_Nationalite", Nationalite)

               Cmd.ExecuteNonQuery()
               Cmd.Dispose()
           Next
           Conne.Close()
           MessageBox.Show("تمّ تصدير البيانات بنجاح", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
       Catch ex As OleDb.OleDbException
           MsgBox(ex.Message, MsgBoxStyle.Critical, "خطأ برمجي غير معيّن")
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical, "خطأ عام غير معيّن")
       End Try
   End Sub
الرد
تم الشكر بواسطة:
#4
اخي عبد العزيز 
بما انك تدخل التواريخ بشكل نص افحص حقول التاريخ في قاعدة البيانات ربما تكون من نوع تاريخ وهذا ماأظن
قم بجعل تلك الحقول Text
الرد
#5
(02-06-19, 03:57 AM)ابراهيم ايبو كتب :
اخي عبد العزيز 
بما انك تدخل التواريخ بشكل نص افحص حقول التاريخ في قاعدة البيانات ربما تكون من نوع تاريخ وهذا ماأظن
قم بجعل تلك الحقول Text


 أخي الغالي .. أنا جد متأكّد أنّ الحقل بجدول الأكسس هو من نوع نصّي .. لاحظ لو تكرّمت الصورة أدناه

تحياتي
الرد
تم الشكر بواسطة: ابراهيم ايبو , اسامه الهرماوي
#6
تعال هنا وعد السطرين التالية :


كود :
 Birthday = Me.DataGridView1.Rows(xyz).Cells(3).Value.ToString

لتصبح كالتالي :


كود :
 Birthday = Me.DataGridView1.Rows(xyz).Cells(3).Value.ToString("dd/MM/yyyy")
الرد
#7
اخي عبد العزيز كلمة text  هكذا تكتب وليس هكذا  Texte 
اليك مثال فيه التاريخ بشكل نص اكتب التاريخ كبفما تريد سيحفظه في القاعدة كما هو 


الملفات المرفقة
.rar   Abdalaziz.rar (الحجم : 85.66 ك ب / التحميلات : 8)
الرد
#8
(02-06-19, 04:31 AM)حريف برمجة كتب : تعال هنا وعد السطرين التالية :


كود :
 Birthday = Me.DataGridView1.Rows(xyz).Cells(3).Value.ToString

لتصبح كالتالي :


كود :
 Birthday = Me.DataGridView1.Rows(xyz).Cells(3).Value.ToString("dd/MM/yyyy")

السلام عليكم و رحمة الله و بركاته
تسلم أستاذنا الغالي " حريف برمجة " على المساهمة .. لكن المشكل بقي قائمًا ..
تحياتي واحتراماتي

(02-06-19, 04:46 AM)ابراهيم ايبو كتب :
اخي عبد العزيز كلمة text  هكذا تكتب وليس هكذا  Texte 
اليك مثال فيه التاريخ بشكل نص اكتب التاريخ كبفما تريد سيحفظه في القاعدة كما هو 

فاتتك هذه أخي الحبيب الغالي " إبراهيم إيبو " و لم تخطر ببالك .. الأوفيس لديّ نسخة فرنسية و لذلك فعبارة Text تكتب Texte
سأجرّب الملف و أكيد سأخبرك بالنتيجة إن شاء الله
تحياتي واحتراماتي لشخصك الكريم

قمت بتحويل الكود أخي الغالي " ابراهيم " بهذا النسق تماما مثل كود سيادتك .. و جربت الحفظ و بقي المشكل قائما .. ما حيرني فعلا هو أنّ صيغة التاريخ من نوع نصي من المفروض أن يأخذ شكل ما هو عليه الداتا جريد فيو .. سأحاول غدا بإذن الله وضع الملف كاملا على الأقل لمشاركتي الإشكالية عن قرب .. بارك الله في الجميع
كود :
    Cmd.Parameters.Add(New OleDbParameter("@STUDENT_Id", OleDbType.Integer)).Value = StudentId
               Cmd.Parameters.Add(New OleDbParameter("@STUDENT_Name", OleDbType.VarWChar)).Value = FirstName
               Cmd.Parameters.Add(New OleDbParameter("@STUDENT_Surname", OleDbType.VarWChar)).Value = LastName
الرد
تم الشكر بواسطة: ابراهيم ايبو , سعود
#9
و عليكم  السلام ورحمة الله وبركاته
اذا كان نص التاريخ بالاساس من دون توقيت هذا يعني انه بتنسيق ShortDate تاكد من نوع الحقل في الاكسس  ومن  تنسيقه.
[صورة مرفقة: ccc.png]
الرد
#10
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك الله خيرا أستاذنا العزيز " سعود " .. و كل الإخوة الأفاضل الذين شاركوني المشكلة
فعلا لم أجد الحل لهذه الإشكالية .. فالرجاء لو سمحتم تجربة الملف بالمرفقات .. و بارك الله في الجميع مقدما .. ملف الإكسل موجود بالمرفقات .
تحياتي


الملفات المرفقة
.rar   تنسيق التاريخ بالجدول أكسس.rar (الحجم : 1.73 م ب / التحميلات : 16)
الرد
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلةفي تحديث البيانات او تحميل البيانات على الداتا جريد فيو alshandodi 1 80 14-07-19, 04:58 PM
آخر رد: سعود
Question كيفية التخلص من تكرار تخزين البيانات الرائد 12 312 11-07-19, 10:51 PM
آخر رد: Al Wilaya
  [VB.NET] سؤال حول فرز البيانات في Combobox Al Wilaya 5 162 11-07-19, 12:12 AM
آخر رد: Al Wilaya
  ربط الفورم بقاعدة بيانات اكسل ابو العلاء 2 77 09-07-19, 01:16 AM
آخر رد: ابو العلاء
Question [VB.NET] كيفية عرض الصور من قاعدة البيانات على picturebox الرائد 9 279 07-07-19, 02:30 AM
آخر رد: ابراهيم ايبو
  هل هناك امكانية لتشفير نص اتصال قاعدة البيانات سامي محمد 7 192 06-07-19, 01:11 AM
آخر رد: سامي محمد
  [VB.NET] مشكل مفتاح قاعدة البيانات Autonumber sniperjawadino 4 244 30-06-19, 06:38 PM
آخر رد: sniperjawadino
  [VB.NET] تنسيق الرقم مثلا 100,000,000 khairallah 7 266 28-06-19, 12:34 PM
آخر رد: سامي محمد
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 13 460 26-06-19, 02:16 AM
آخر رد: الرائد
  [VB.NET] سحب التاريخ والوقت من السيرفر khairallah 7 256 21-06-19, 06:46 PM
آخر رد: elgokr

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


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