تقييم الموضوع :
  • 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 م ب / التحميلات : 12)
الرد
تم الشكر بواسطة:
#4
الكود يعمل جيدا لكن اظنك لم تطبقه بالشكل الصحيح

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

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


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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 14 6,453 08-06-21, 01:23 AM
آخر رد: Ammarahmed
  [VB.NET] حفظ البيانات المستوردة من اكسل الى الداتا Munther 5 202 05-06-21, 06:00 AM
آخر رد: Fareed
  [VB.NET] سؤال في عدم تمكين احد خلايا الداتا جريد ismaeel 6 482 05-05-21, 05:11 AM
آخر رد: a7med saba
  الحفظ والتعديل مباشرة من الداتا جريد aftfm 1 337 06-04-21, 11:26 AM
آخر رد: عبد العزيز البسكري
  تعبئة الداتا قريد aftfm 6 422 31-03-21, 08:48 PM
آخر رد: messry
  سؤال في الداتا جريد فيو Emam emam 10 1,941 21-03-21, 06:44 PM
آخر رد: رضوان الجماعي
  [سؤال] كيفية تصدير اعمدة محددة من الداتا قريد الي الاكسل عبدالكريم برشدان 2 446 20-03-21, 09:48 PM
آخر رد: عبدالكريم برشدان
  حساب الفرق بين وقتين من خلال الداتا قريد aftfm 6 552 20-02-21, 04:50 PM
آخر رد: أبو عبدالله الحلواني
  مشكلة عند تصدير الداتا قريد إلى الاكسل يظهر الوقت مع التاريخ ؟ أبووسم 3 609 19-02-21, 08:53 PM
آخر رد: أبووسم
  [سؤال] مساعدة في انشاء combobox في الداتا جريد fawazm15019797 1 540 18-02-21, 10:37 PM
آخر رد: سعيد كنيمو

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


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