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

تحياتي ..
الرد }}}}
تم الشكر بواسطة:
#3
ممكن صورة للبيانات بعد استيرادها من الاكسل؟
لاجل ان نعرف فقط صيغة التاريخ والوقت
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 5)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم مصفوفة الى قسمين bidaya 17 196 اليوم, 01:13 AM
آخر رد: bidaya
  كيف اقوم بحفظ بيانات بقاعدة اكسيس داتا بيز موجودة على سيرفر رهف العريفي 7 97 22-01-17, 09:00 AM
آخر رد: رهف العريفي
Exclamation سؤال حول المعامل Ctype ndjakoub 2 73 17-01-17, 10:54 AM
آخر رد: silverlight
  سؤال محمد بن عطية 3 105 13-01-17, 12:10 AM
آخر رد: مساعدة
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,338 04-01-17, 12:48 PM
آخر رد: مساعدة
  [VB.NET] سؤال في text box engmedomed@gmail.com 1 80 31-12-16, 07:20 PM
آخر رد: مساعدة
  [VB.NET] سؤال في الرسم البياني engmedomed@gmail.com 0 63 27-12-16, 11:42 PM
آخر رد: engmedomed@gmail.com
  .سؤال محيرني.. محمد 2017 4 160 25-12-16, 10:02 PM
آخر رد: محمد 2017
  اول سؤال لي في منتداكم الرائع ..... من اين ابداء وبما ابداء البرمجة zin1zamanh 16 332 23-12-16, 06:45 PM
آخر رد: zin1zamanh
  [نقاش] هل من مناقش- سؤال خاص بالباركود وال كيوار كود لو تكرمتم اخواني الكرام zinom 6 179 21-12-16, 07:02 PM
آخر رد: mohamed haroon

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


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