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

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

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


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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعبئة الكومبوكس في الداتا قريدفيو مصمم هاوي 8 138 , 07:31 PM
آخر رد: Taha Okla
  الترقيم التلقائي في الداتا قريدفيو مصمم هاوي 4 210 11-08-22, 06:28 PM
آخر رد: مصمم هاوي
  ارتباط كومبو بوكس مع كومبو بوكس في الداتا كرد فيو نيمو 1 150 27-07-22, 12:50 PM
آخر رد: نيمو
  الداتا كرد فيو mohamedassim 3 176 16-07-22, 04:49 PM
آخر رد: mohamedassim
  التصدير من الداتا الى الاكسل العيدروس 9 3,800 24-06-22, 04:29 PM
آخر رد: atefkhalf2004
  كيف يتم جعل اول سطر فى الداتا جريد فيو يظهر الرصيد السابق السيد الجوهري 8 3,476 27-05-22, 05:06 AM
آخر رد: حيدر الحداد
  [سؤال] طريقة الادخال اليدوي في الداتا جريد فيو وحفظها تلقائيا safralfahd 11 1,637 19-03-22, 07:59 PM
آخر رد: safralfahd
Sad هل استطيع حذف بيانات العمود فى الداتا جريد لعدة صفوف حسين ادريس 2 623 19-03-22, 08:21 AM
آخر رد: حسين ادريس
  [VB.NET] جمع عمود داتا كريت فيو EMADSS 1 444 01-03-22, 04:42 PM
آخر رد: ابو انس
  تعبئة الداتا جريد من اكثر من قاعدة البيانات mohmeed 3 850 20-02-22, 10:25 PM
آخر رد: mohmeed

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


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