منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة عمل export لحقول معينة من قاعدة البيانات في برنامج vb.net الى ملف اكسل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة عمل export لحقول معينة من قاعدة البيانات في برنامج vb.net الى ملف اكسل (/showthread.php?tid=6824)



طريقة عمل export لحقول معينة من قاعدة البيانات في برنامج vb.net الى ملف اكسل - مراد بورجي - 03-11-12

السلام وعليكم ورحمته الله وبركاتة

اخواني لدى بيانات في قاعدة البيانات وبرنامج اريد عند الضغط على زر يعمل اكسبورت لبيانات معينة الى ملف اكسل في سطح المكتب


طريقة عمل export لحقول معينة من قاعدة البيانات في برنامج vb.net الى ملف اكسل - tecno2012 - 04-11-12

اليك جزء من كود يعمل على تصدير بيانات من grid view الى ملف اكسل

Dim ReportApp As New Excel.Application
Dim ReportWB As Workbook
Dim ReportWS As Worksheet
Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("en-US")

ReportWB = ReportApp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)

ReportWS = ReportWB.Sheets.Add(, ReportWB.Worksheets(1))
With ReportWS
.Range("A" & i + 2).Value = DataGridView1.Rows(i).Cells("st_name").Value
.Range("B" & i + 2).Value = DataGridView1.Rows(i).Cells("st_nat").Value
.Range("C" & i + 2).Value = DataGridView1.Rows(i).Cells("bir_place").Value
End with
Try
Directory.CreateDirectory(dir_place & ":\My\cl" + ComboBox2.SelectedItem.ToString + "\" + ComboBox3.SelectedItem)
Catch ex As Exception
End Try
Try
ReportWB.SaveAs(dir_place & ":\My \cl_" & ComboBox2.SelectedItem & "\" & ComboBox3.SelectedItem & "\" + " information.xls")
ReportWB.Close(SaveChanges:=True)
TextBox13.Text = "تم تخزين الأسماء في ملف information ضمن المسار الآتي" & ComboBox3.SelectedItem + "\" + dir_place + ":\My_School\class_" + ComboBox2.SelectedItem.ToString
Catch ex As Exception
TextBox13.Text = "لم تتم تصدير البيانات حاول/ي مرة أخرى"
End Try
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI


طريقة عمل export لحقول معينة من قاعدة البيانات في برنامج vb.net الى ملف اكسل - rinawi - 05-11-12

السلام عليكم

يمكن مراجعة الرابط التالي بخصوص سؤالك.

http://vb4arb.com/vb/showthread.php?997-كيف-تتعامل-مع-برنامج-الإكسيل-من-برنامجك