تقييم الموضوع :
  • 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 ك ب / التحميلات : 1)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 5 90 منذ 1 ساعه مضت
آخر رد: araxis
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 43 01-12-16, 03:09 AM
آخر رد: khalaroy
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 50 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  تقسيم text الى عدة listbox rabeh.ram 4 98 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 1 70 17-11-16, 10:50 PM
آخر رد: السرور
  [VB.NET] تقسيم ملف نصي rabeh.ram 3 141 16-11-16, 02:02 AM
آخر رد: rabeh.ram
  استدعاء داتا من الداتا بيز عن طريق المعالج araxis 14 275 15-11-16, 07:17 AM
آخر رد: araxis
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 108 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
  [VB.NET] تفريغ داتا جريد tifagreet 5 102 09-11-16, 07:06 PM
آخر رد: thevirus
  نقل قيمة من تكست بوكس الي تكست بوكس فى نموذج اخر السيد الجوهري 4 105 05-11-16, 07:39 PM
آخر رد: shwehdi4pc

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


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