تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة عمل export لحقول معينة من قاعدة البيانات في برنامج vb.net الى ملف اكسل
#1
السلام وعليكم ورحمته الله وبركاتة

اخواني لدى بيانات في قاعدة البيانات وبرنامج اريد عند الضغط على زر يعمل اكسبورت لبيانات معينة الى ملف اكسل في سطح المكتب
الرد }}}}
تم الشكر بواسطة:
#2
اليك جزء من كود يعمل على تصدير بيانات من 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
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

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

http://vb4arb.com/vb/showthread.php?997-...من-برنامجك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاتصال بقاعدة البيانات العيدروس 4 42 منذ 7 ساعة مضت
آخر رد: العيدروس
  [VB.NET] اضافة الصور لقاعدة البيانات SQL m.farag87 2 41 أمس, 04:30 PM
آخر رد: Rabeea Qbaha
  رسالة خطأ عند استعراض البيانات aftfm 2 61 18-10-17, 06:33 PM
آخر رد: Rabeea Qbaha
  [مشروع] طلب برمجة برنامج يحول صفحات الويب الي فيديو elokely 0 20 16-10-17, 11:22 PM
آخر رد: elokely
  [نقاش] طريقة لارسال النقود عند شراء برنامجي hoshosgost@yahoo.com 3 58 16-10-17, 02:58 AM
آخر رد: حريف برمجة
  عمل شريط متحرك من قاعدة البيانات hglogtd 24 303 15-10-17, 11:54 PM
آخر رد: hglogtd
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 153 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [VB.NET] سؤال عن برمجة برنامج Badi054 6 94 15-10-17, 04:43 PM
آخر رد: سعود
  [VB.NET] قاعدة بيانات اكسس hglogtd 8 139 14-10-17, 03:38 PM
آخر رد: hglogtd
  برنامج محاسبة على الاندرويد محمود صالح 3 95 14-10-17, 02:00 AM
آخر رد: Amir_alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم