سلام دوستان
من نیاز دارم که مقدار زیادی اطلاعات رو از اکسل بیارم تو دیتاگریدویو و از اونجا با تغییرات بفرستم به دیتابیس sql
دوستان میشه کمکم کنید.ممنونم
نیاز فوری دارم
Printable View
سلام دوستان
من نیاز دارم که مقدار زیادی اطلاعات رو از اکسل بیارم تو دیتاگریدویو و از اونجا با تغییرات بفرستم به دیتابیس sql
دوستان میشه کمکم کنید.ممنونم
نیاز فوری دارم
سلام دوست عزیز
'...........................................انت خاب مسیر فایل اکسل.......................................... .......
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.Label1.Text = OpenFileDialog1.FileName
Else
Me.Close()
Exit Sub
End If
'...............................................ا نتقال اطلاعات از اکسل به دیتاگرد.................................... .........
Try
Dim MyConnection As New System.Data.OleDb.OleDbConnection("Provider=Micros oft.ACE.OLEDB.12.0;Data Source=" + Me.Label1.Text + ";Extended Properties=Excel 12.0;")
Dim MyCommand As New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)
Dim datatable As New System.Data.DataTable
MyCommand.Fill(datatable)
DataGridView1.DataSource = datatable
MyConnection.Close()
Catch ex As Exception
MsgBox("کاربر گرامی نام شیت انتخابی در اکسل صحیح نمی باشد", MsgBoxStyle.Information, "هشدار")
Exit Sub
End Try
دوست عزیز از اینجا به بعد چندین راه دارید مثلا
دیتاتیبلتون رو بر اساس تغیراتی که در دیتاگرید میدید آبدیت کنید و بعد دیتابیستون رو آبدیت کنید
Dim query = "SELECT * FROM [test].[dbo].[tst]"
Using adapter As New SqlDataAdapter(query, "Data Source=.;Initial Catalog=test;Integrated Security=True")
Dim builder As New SqlCommandBuilder(adapter)
adapter.Update(DataTable)
End Using
سلام ممنون از پاسختون دوست عزیز
این ارور رو میده نمی دونم مشکل چیه ؟
ضمیمه 151638
بخاطر باگ ای که در vBulletin هست کد هایی که در پست ها نوشته میشه ممکنه تغییر کنه، مثلا نوشته بودند Provider=Microsoft.ACE ولی Provider=Micros oft.ACE نشون داده میشه. اگر اون دو تا کاراکتر فاصله بین oft و Micros رو در مقدار MyConnection حذف نکرده اید حتما حذف شون کنید تا بشه Microsoft
ممنون دوست گلم
باز این ارور رو میده
ضمیمه 151639
ویندوزی که استفاده میکنید به همراه ماکروسافت آفیس چه ورژنی هستش؟
ویندوز 10 نسخه 64 و آفیس 2016
از چه ویندوز و چه آفیسی استفاده کنم بهتره؟
ویندوز مهم نیست اما آفیس نهایتا 2010 فکر میکنم OleDb رو پشتیبانی کنه
بهترین آفیس 2007 فکر میکنم باشه
دوست عزیزOleDb نهایتا تا 2013 فکر میکنم پشتیبانی کنه.اگر ویژوال پشتیبانی نمیکرد بهتون خطا میداد و اعلام میکرد که کدتون منسوخ شده اما برای راحتی کارتون پیشنهاد میکنم از آفیس 2007 استفاده کنید.البته توی نت اگر بگردین فایل هایی هستن که مشکلتون رو برطرف کنه یادمه خودم این فایل به یکی از دوستان داخل همین تالار ارائه دادم.اما کماکان پیشنهادم آفیس 2007 هستش.موفق باشید
ممنونم از لطف شما دوست عزیزم
سلام
مشکل من هم حل نشد دوستان نمی تونن کمک کنن؟
سلام دوست عزیز همونجوری که دوست عزیزمون aidin2345 فرمودن مشکل در دیتا شما هستش.
سلام دوست عزیز مشکل اصلا از برنامه شما نیست.یکم اگر دقت کنید میبینید که مشکل در دیتای شما هستش.
توی یک قسمتی از دیتاتون توی فیلد Prompt یه داده ای هستش که نمیتونه فرمتش رو قبول کنه
قبل از اینکه دیتات رو تبدیل به اکسل کنی خطاهاش رو بررسی و اونوقت از کدهات استفاده کن
موفق باشید
دوست عزیز این رو چک کنید
ویندوز من 10 و آفیس هم 2010
توی ورژن های پاینتر هم جواب میده
ویژوال 2010
موفق باشید
دانلود
دوست عزیز اول ساده ترین راه ایمپورت کردن رفرنس های مورد نیاز
اول
ضمیمه 151674
دوم
ضمیمه 151675
و در نهایت برنامه رو در بالا خدمتتون گذاشتم.موفق باشید
ويندوزت 64 بي تي هستش؟
دوست عزیز چند راه وجود داره
اول نصب آفس 64 بیتی
دوم برنامه اتون رو 86X قرار بدین
موفق باشید