14-05-20, 06:25 PM
14-05-20, 08:00 PM
مفيش حد يفيدني ياجماعه
14-05-20, 08:02 PM
(14-05-20, 06:25 PM)منه كتب : [ -> ]السلام عليكم ورحمه الله وبركاتهتقصدى استيراد ملف اكسيل الى داتا جريد
كيفيه استرداد ملف اكسل الي الداتا جريد
بمعنى آخر فتح داتا جريد على فورم ثم ضغط على زر فيقوم بعرض بيانات ملف اكسيل على الجريد ؟؟؟
14-05-20, 08:04 PM
ايوه لو سمحت
14-05-20, 08:05 PM
راجع الموضوع التالي ان شاء الله نسنفيد منه وهو خاص بتصدير الى exel
https://vb4arb.com/vb/showthread.php?tid=15232
انا بخصوص استرداد ملف exel الى داتا قريد الله اعلم اخي ان شاء الله نستفيد من طرحك السؤال
https://vb4arb.com/vb/showthread.php?tid=15232
انا بخصوص استرداد ملف exel الى داتا قريد الله اعلم اخي ان شاء الله نستفيد من طرحك السؤال
14-05-20, 08:32 PM
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim DtSet As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\vb.net-informations.xls';Extended Properties=Excel 8.0;")
MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)
MyCommand.TableMappings.Add("Table", "Net-informations.com")
DtSet = New System.Data.DataSet
MyCommand.Fill(DtSet)
DataGridView1.DataSource = DtSet.Tables(0)
MyConnection.Close()
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim DtSet As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\vb.net-informations.xls';Extended Properties=Excel 8.0;")
MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)
MyCommand.TableMappings.Add("Table", "Net-informations.com")
DtSet = New System.Data.DataSet
MyCommand.Fill(DtSet)
DataGridView1.DataSource = DtSet.Tables(0)
MyConnection.Close()
End Sub
End Class
14-05-20, 09:15 PM
بس انا شغاله علي الاكسس
14-05-20, 09:22 PM
14-05-20, 10:06 PM