تقييم الموضوع :
  • 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 تاكد من نوع الحقل في الاكسس  ومن  تنسيقه.
الرد
#10
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك الله خيرا أستاذنا العزيز " سعود " .. و كل الإخوة الأفاضل الذين شاركوني المشكلة
فعلا لم أجد الحل لهذه الإشكالية .. فالرجاء لو سمحتم تجربة الملف بالمرفقات .. و بارك الله في الجميع مقدما .. ملف الإكسل موجود بالمرفقات .
تحياتي


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] نسخ و تقسيم التاريخ nabil.1710 5 56 منذ 10 ساعة مضت
آخر رد: mostafa12
  مشكله في ترتيب البيانات mostafa12 1 36 منذ 10 ساعة مضت
آخر رد: mostafa12
Rainbow [VB.NET] الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك علي إبراهيم الحاج علي 4 175 15-10-19, 05:15 PM
آخر رد: علي إبراهيم الحاج علي
  سؤال حول قواعد البيانات ابو روضة 11 168 15-10-19, 05:02 AM
آخر رد: elgokr
  طريقة حفظ بإسم لجدول موجود في قاعدة البيانات مع بقاء الجدول الأساسي جيولوجي مبتدئ 11 212 15-10-19, 05:00 AM
آخر رد: elgokr
Sad [VB.NET] نقل بيانات جدول بقاعدة بيانات الى جدول اخر بقاعدة بيانات ثانية اسامه الهرماوي 7 133 14-10-19, 11:12 PM
آخر رد: elgokr
  [ تمّ الحل ] : تساؤل حول إستعمال مكتبة الديف إكسبرس عبد العزيز البسكري 1 64 13-10-19, 02:06 AM
آخر رد: Rabeea Qbaha
Bug [VB.NET] الاتصال بقاعدة البيانات على الشبكة مشكل أتعبني حقا sniperjawadino 4 151 08-10-19, 06:15 PM
آخر رد: sniperjawadino
  [VB.NET] مسار قاعدة البيانات محمد اسماعيل 12 260 06-10-19, 01:52 PM
آخر رد: محمد اسماعيل
  [ تمّ الحل ] : الوزن المثالي عبد العزيز البسكري 9 236 03-10-19, 09:00 PM
آخر رد: asemshahen5

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


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