تقييم الموضوع :
  • 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 ك ب / التحميلات : 23)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , سعود
#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 م ب / التحميلات : 57)
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 600 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil

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


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