تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال : عن داتا قريد تقسيم قيمة الى عمودين
#1
انا عملت استيراد لشيت اكسل وعمود من اعمدة الاكسل يوجد به تاريخ ووقت في نفس العمود وهو عمود حضور والانصراف اريد فصل الوقت عن تاريخ و وضعهم في عمودين ومن كان لديه فكرة عن استراد بيانات جهاز البصمة الى دوت نت وعرضه ذلك افضل ..
ننتظر المساعدة اخواني الاعزاء 
جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
ارفق مثال و ستجد المساعدة انشاء الله

تحياتي ..
الرد }}}
تم الشكر بواسطة:
#3
ممكن صورة للبيانات بعد استيرادها من الاكسل؟
لاجل ان نعرف فقط صيغة التاريخ والوقت
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#4
الحمد لله بفضل الله وكرمه
حل المشكلة وهذا هو الكود
وجزاكم الله خيرا الجزاء
OpenFileDialog1.Filter = "all files |*.*| excel files |*.xlsx"
       If OpenFileDialog1.ShowDialog + DialogResult.OK Then
           con = New OleDbConnection("provider=microsoft.ace.oledb.12.0; data source=" + OpenFileDialog1.FileName + "; extended properties=excel 12.0")
           da1 = New OleDbDataAdapter("select * from [1$]", con)
           dt = New DataTable
           da1.Fill(dt)

           DataGridView1.DataSource = dt
           DataGridView1.Columns(0).Visible = True
           DataGridView1.Columns(1).Visible = False
           DataGridView1.Columns(2).HeaderText = "رقم الموظف"
           DataGridView1.Columns(3).HeaderText = "التاريخ"
           DataGridView1.Columns(4).HeaderText = "الحالة"
           DataGridView1.Columns(4).Visible = False
           DataGridView1.Columns(6).Visible = False
           DataGridView1.Columns(7).Visible = False
           DataGridView1.Columns(8).Visible = False

       End If
       Dim i As Integer
       i = DataGridView1.CurrentRow.Index

       Dim line As String = DataGridView1.Item(3, i).Value
       Dim separators() As String = {",", " "}
       Dim name() As String
       Dim lo As String
       Dim x As String
       name = line.Split(separators, StringSplitOptions.RemoveEmptyEntries)

       TextBox1.Text = DataGridView1.Item(3, i).Value
       lo = DataGridView1.Item(3, i).Value
       x = (RSet(lo, 10))

       TextBox3.Text = name(1)
       TextBox4.Text = x.ToString
       Dim colu As New DataGridViewTextBoxColumn
       colu.HeaderText = "SomeText"
       DataGridView1.Columns.Add(colu)
       For Each row In Me.DataGridView1.Rows
           row.Cells(9).Value = x.ToString
       Next row
الرد }}}
تم الشكر بواسطة:
#5
اخي الفاضل مثل ما تكرم الاخ ابو عمر و طلب منك عينة للبيانات المستورده من الملف
يا ليت عينه من ملف الاكسيل ، يعني ارفق ملف اكسيل عشان نعرف هيئة التاريخ الموجود بالملف او حقل التاريخ بشكل نصي ، و بناءاً عليه نقدر نساعدك
اسم معرفي : محمد يحيى
الرد }}}
تم الشكر بواسطة:
#6
هذا الملف الاكسيل في المرفق


الملفات المرفقة
.xls   879.xls (الحجم : 6 ك ب / التحميلات : 27)
الرد }}}
تم الشكر بواسطة:



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


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