طريقة عمل 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-كيف-تتعامل-مع-برنامج-الإكسيل-من-برنامجك |