تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اللصق على الداتا كريت فيو
#1
احبائي في الله هل يمكن اللصق على الداتا كريت فيو
عندي اكثر من مئة اسم على الاكسل واريد ان اقوم بلصقهم على الداتا كريت فيو ياريت المساعدة
الرد }}}
تم الشكر بواسطة:
#2
كود :
Dim conn As OleDbConnection
Dim dtr As OleDbDataReader
Dim dta As OleDbDataAdapter
Dim cmd As OleDbCommand
Dim dts As DataSet
Dim excel As String
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim fi As New FileInfo(OpenFileDialog.FileName)
Dim FileName As String = OpenFileDialog.FileName

excel = fi.FullName
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
dta = New OleDbDataAdapter("Select * From [Sheet1$]", conn)
dts = New DataSet
dta.Fill(dts, "[Sheet1$]")
DataGridView1.DataSource = dts
DataGridView1.DataMember = "[Sheet1$]"
conn.Close()

قم بتسمية الورقة الموجودة في الاكسل
كود :
Sheet1
استيراد البيانات من اكسل الى الداتا جريد
جرب الكود لسابق
الرد }}}
تم الشكر بواسطة: ابو انس , EMAD MM
#3
(01-06-21, 06:30 PM)alfaiz678 كتب :
كود :
Dim conn As OleDbConnection
Dim dtr As OleDbDataReader
Dim dta As OleDbDataAdapter
Dim cmd As OleDbCommand
Dim dts As DataSet
Dim excel As String
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim fi As New FileInfo(OpenFileDialog.FileName)
Dim FileName As String = OpenFileDialog.FileName

excel = fi.FullName
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
dta = New OleDbDataAdapter("Select * From [Sheet1$]", conn)
dts = New DataSet
dta.Fill(dts, "[Sheet1$]")
DataGridView1.DataSource = dts
DataGridView1.DataMember = "[Sheet1$]"
conn.Close()

قم بتسمية الورقة الموجودة في الاكسل
كود :
Sheet1
استيراد البيانات من اكسل الى الداتا جريد
جرب الكود لسابق

اخي الكريم جربت الكود ولكن لايعمل  ارفقت مشروع مصغر ياريت تساعدني كيف بقدر انقل البيانات من ورقة اكسل الى الداتا كريت فيو


الملفات المرفقة
.rar   khldon m.rar (الحجم : 3.35 م ب / التحميلات : 27)
الرد }}}
تم الشكر بواسطة:
#4
الكود يعمل جيدا لكن اظنك لم تطبقه بالشكل الصحيح

على العموم
البرنامج جاهز
حمله من الفرقات

مرفق معه ملف اكسل للتجربة


الملفات المرفقة
.zip   khldon m.zip (الحجم : 3.99 م ب / التحميلات : 44)
الرد }}}
تم الشكر بواسطة:
#5
(03-06-21, 01:34 PM)alfaiz678 كتب : الكود يعمل جيدا لكن اظنك لم تطبقه بالشكل الصحيح

على العموم
البرنامج جاهز
حمله من الفرقات

مرفق معه ملف اكسل للتجربة

اخي الكريم شكرا لك لكن حملت المشروع المرفق واضفت بيانات على ملف الاكسل للاخ emad mm وتم لصق البيانات بشكل صحيح على الداتا كريت فيو لكن المشكلة حاولت حفظ البيانات الجديدة  المشكلة لم يتم حفظ هذه البيانات الجديدة على قاعدة البيانات الاساسية ياريت المساعدة


الملفات المرفقة
.rar   khldon m.rar (الحجم : 3.21 م ب / التحميلات : 46)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 461 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 462 03-11-23, 09:57 PM
آخر رد: fares_mohammed
Photo [سؤال] تجميع قيم العناصر المتشابهة في الداتا جريد فيو علاء الكبابي 6 565 13-08-23, 01:00 PM
آخر رد: تركي الحلواني
Wink كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2010 RADOS 1 397 09-08-23, 09:39 PM
آخر رد: أبووسم
  اريد ترقيم الداتا جريد فيو سمير جمال 10 5,075 29-04-23, 02:01 AM
آخر رد: lar
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم

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


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