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

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

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


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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن توضيح بسيط فى الداتا جريد فيو خالد كامل1 1 295 04-09-21, 07:14 PM
آخر رد: ابو انس
  [VB.NET] مشكله في قسمه عددين في الداتا جريد فيو mohammed_abdu 1 129 03-09-21, 06:02 PM
آخر رد: Anas Mahmoud
  [سؤال] اريد اظهار تلميحات الخلية في الداتا جريد فيو اثناء الكتابة فيها alfaiz678 3 254 01-09-21, 02:52 PM
آخر رد: alfaiz678
  إضافة سطر في آخر الداتا جريد aftfm 4 364 31-08-21, 07:06 AM
آخر رد: aftfm
  الانتقال إلى سجل محدد في الداتا قرايد فيو بدون استخدام select معتز حسن 5 452 31-08-21, 04:28 AM
آخر رد: a7med saba
  عرض البيانات من الداتا قريد فيو الى الادوات aftfm 7 300 28-08-21, 10:50 PM
آخر رد: aftfm
  كيف يتم ملئ خلية فى الداتا جريد فيو بناء على اختيار قيمة خلية اخرى عبارة عن كومبو بوك talatm 1 186 14-08-21, 08:27 PM
آخر رد: اسامه الهرماوي
  تحقق عن قيمة فى الداتا جريد مع قيمة فى داتا جريد اخري mostafa12 4 1,462 22-07-21, 09:33 PM
آخر رد: إليسار
  تغيير قيمة الكومبوبوكس في الداتا جريد momani33 1 287 24-06-21, 03:53 PM
آخر رد: ابو انس
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 14 7,151 08-06-21, 01:23 AM
آخر رد: Ammarahmed

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


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