با سلام
دوستان من یک نمونه کار از نحوه خواندن اطلاعات از فایل اکسل و نمایش اون در گرید و سپس ذخیره کلی اطلاعات نمایش داده شده در گرید در بانک اطلاعاتی لازم دارم . اگر دوستان نمونه کد دارند لطفا کمک و راهنمای بفرمایند
با سلام
دوستان من یک نمونه کار از نحوه خواندن اطلاعات از فایل اکسل و نمایش اون در گرید و سپس ذخیره کلی اطلاعات نمایش داده شده در گرید در بانک اطلاعاتی لازم دارم . اگر دوستان نمونه کد دارند لطفا کمک و راهنمای بفرمایند
آخرین ویرایش به وسیله vb341 : چهارشنبه 23 مرداد 1392 در 19:00 عصر
دوستان کسی نمونه کار نداره ؟
فقط بیننده داریم کسی جواب نداره ؟
این رو تو فایل های کامپیوترم پیدا کردم امید وارم بدردت بخوره
Excel Sample.rar
دوست عزیز
با این تکه کد مشکلت حل میشه
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 به بعد رو هم ساپورت کنه ؟
دی اس یک نمونه از دیتا ست است مثال
dim DS as new dataset
شما سعی نکنید کپی کنید
اول خط به خط رو آنالیز کنید و روش فکر کنید که چرا اون تکه یا خط کد نوشته شده بعد کاملا متوجه می شوید که تو کجا و کدوم رویداد قرار بدینش ...
دوست عزیز در خصوص Insert اطلاعات گرید در دیتا هم راهنمایی کنید