خواندن اطلاعات از فایل اکسل و نمایش در گرید و ذخیره در بانک اطلاعاتی SQLServer

با سلام
دوستان من یک نمونه کار از نحوه خواندن اطلاعات از فایل اکسل و نمایش اون در گرید و سپس ذخیره کلی اطلاعات نمایش داده شده در گرید در بانک اطلاعاتی لازم دارم . اگر دوستان نمونه کد دارند لطفا کمک و راهنمای بفرمایند

دوستان کسی نمونه کار نداره ؟

فقط بیننده داریم کسی جواب نداره ؟

:متفکر: این رو تو فایل های کامپیوترم پیدا کردم امید وارم بدردت بخوره
ضمیمه 109381

دوست عزیز

با این تکه کد مشکلت حل میشه

   Try

            OpenFileDialog1.Filter = "Excel Files (*.xls,*.xlsx)|*.xls,*.xlsx|All Files (*.*)|*.*"

            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

                Dim pathname As String = OpenFileDialog1.FileName

                Dim connect As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection("provider=Micros  oft.Jet.OLEDB.4.0;" & "data source=" & pathname & ";Extended Properties=Excel 8.0;")

                Dim adapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", connect)

                connect.Open()

                adapter.Fill(DS, "DT")

                DGV1.DataSource = DS.Tables("DT").DefaultView

                DGV1.AutoSizeColumnsMode = True

                connect.Close()

                connect = Nothing

            End If

        Catch ex As Exception



        End Try

با تشکر از توجه دوستان عزیز . چک کنم ببینم جواب میگیرم !!!

جواب گرفتی یا نه !!!!!؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/

بله دوست عزیز . از توجهتون ممنون .
فقط دو تا مشکل دیگه میمونه :
1 - اینکه فقط اکسل 97 رو ساپورت میکنه
2 - اگر بخوام بعد از خوندن و نمایش در گرید وقتی که حدود 2000 تا رکورد شده ، حالا چطور کل اطلاعات یعنی 2000 تا رکورد موجود در گرید رو به بانک اطلاعاتی منتقل کنم ؟

و ناگهان در این زمان آیه حلقه FOR نازل شد ... !!!! ( استغفر اله ) :چشمک:

یه حلقه For که گرید رو سطر به سطر بخونه و یه دستور Insert بذار و یکی یکی بخونه و اینسرت کنه !!!

میتونی محبت کنی و کدش رو برام بزاری ؟

در ضمن نگفتی چکار کنم که از اکسل 97 به بعد رو هم ساپورت کنه ؟

نقل قول:

---

نوشته شده توسط djhooman

دوست عزیز

با این تکه کد مشکلت حل میشه

   Try

            OpenFileDialog1.Filter = "Excel Files (*.xls,*.xlsx)|*.xls,*.xlsx|All Files (*.*)|*.*"

            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

                Dim pathname As String = OpenFileDialog1.FileName

                Dim connect As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection("provider=Micros  oft.Jet.OLEDB.4.0;" & "data source=" & pathname & ";Extended Properties=Excel 8.0;")

                Dim adapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", connect)

                connect.Open()

                adapter.Fill(DS, "DT")

                DGV1.DataSource = DS.Tables("DT").DefaultView

                DGV1.AutoSizeColumnsMode = True

                connect.Close()

                connect = Nothing

            End If

        Catch ex As Exception



        End Try

---

یه توضیح میدی درباره کد؟
DS چیه اینجا؟
این کد تو کلید کپی بشه؟

دی اس یک نمونه از دیتا ست است مثال
dim DS as new dataset

شما سعی نکنید کپی کنید
اول خط به خط رو آنالیز کنید و روش فکر کنید که چرا اون تکه یا خط کد نوشته شده بعد کاملا متوجه می شوید که تو کجا و کدوم رویداد قرار بدینش ...

دوست عزیز در خصوص Insert اطلاعات گرید در دیتا هم راهنمایی کنید