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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 44 منذ 3 ساعة مضت
آخر رد: tifagreet
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 7 135 أمس, 04:23 PM
آخر رد: مساعدة
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 104 15-01-17, 06:11 PM
آخر رد: khodor1985
  [اقتراح] كيف ممنكن اتجاوز برنامج التجريبي 3asfa~mdmra 10 222 15-01-17, 04:00 AM
آخر رد: الماجيك مسعد
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 94 14-01-17, 08:19 PM
آخر رد: كفاح
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 112 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 160 13-01-17, 11:15 PM
آخر رد: ammaraliali
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 439 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  برنامج شبية بالـTeemView Basil Abdallah 21 430 11-01-17, 11:05 PM
آخر رد: Basil Abdallah
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 65 11-01-17, 02:13 AM
آخر رد: مساعدة

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


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