تقييم الموضوع :
  • 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-...من-برنامجك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 0 12 منذ 2 ساعة مضت
آخر رد: CLARO
  طريقة نقل الفيجوال ستيديو من جهاز لاخر CLARO 1 22 منذ 3 ساعة مضت
آخر رد: محمد كريّم
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 42 1,310 منذ 3 ساعة مضت
آخر رد: tryold
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 18 منذ 7 ساعة مضت
آخر رد: Ayman97
  [سؤال] طريقة لقص صورة في الpictureBox1 CLARO 7 117 منذ 8 ساعة مضت
آخر رد: CLARO
Rainbow طريقة عمل حضور وانصراف يتجدد يوميًا+طباعة سجلات الحضور والانصراف فاطمة غ 0 34 اليوم, 09:04 AM
آخر رد: فاطمة غ
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 28 أمس, 07:53 PM
آخر رد: kofa
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 116 أمس, 03:09 PM
آخر رد: thevirus
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 3 76 أمس, 12:47 AM
آخر رد: ali.alfoly
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 97 04-12-16, 12:37 AM
آخر رد: ali.alfoly

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


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