منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احبائي في الله هل يمكن اللصق على الداتا كريت فيو
عندي اكثر من مئة اسم على الاكسل واريد ان اقوم بلصقهم على الداتا كريت فيو ياريت المساعدة

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

(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

استيراد البيانات من اكسل الى الداتا جريد
جرب الكود لسابق

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

الكود يعمل جيدا لكن اظنك لم تطبقه بالشكل الصحيح

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

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

(03-06-21, 01:34 PM)alfaiz678 كتب : [ -> ]الكود يعمل جيدا لكن اظنك لم تطبقه بالشكل الصحيح

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

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

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