كيفية تصدير البيانات من شبكة البيانات DataGridView إلى مصنف Excel

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيفية تصدير البيانات من شبكة البيانات DataGridView إلى مصنف Excel

مُساهمة من طرف VB.NET في الخميس أغسطس 29, 2013 10:07 pm

بسم الله الرحمن الرحيم




الاخوة الافاضل ...أقدم لكم طريقة لتصدير البيانات من شبكة البيانات DataGridView إلى Excel،..... و الطريقة تعتمد أولا على ربط قاعدة البيانات وتحميل البيانات إلى شبكة البيانات DataGridView ثم نقوم بإنشاء ملف Excel جديد وكتابة البيانات من شبكة البيانات إلى ملف Excel......وذلك على النحو التالى :






_ الخطوة الاولى : أستيراد المكتبات اللازمة على النحو التالى :

الرمز:
Imports System.Data
Imports System.Data.SqlClient
Imports Excel = Microsoft.Office.Interop.Excel
_ الخطوة الثانية هي تحميل البيانات جدول Product لشبكة البيانات  DataGridView وذلك على النحو التالى :

الرمز:
  Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click

         Dim cnn As SqlConnection
         Dim connectionString As String
         Dim sql As String

         connectionString = "data source=servername;" & _
         "initial catalog=databasename;user id=username;password=password;"
         cnn = New SqlConnection(connectionString)
         cnn.Open()
         sql = "SELECT * FROM Product"
         Dim dscmd As New SqlDataAdapter(sql, cnn)
         Dim ds As New DataSet
         dscmd.Fill(ds)
         DataGridView1.DataSource = ds.Tables(0)
         cnn.Close()
     End Sub
الخطوة الثالثة :إنشاء ملف Excel جديد وكتابة البيانات من شبكة البيانات إلى ملف Excel

الرمز:
Private Sub Button2_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button2.Click


         Dim xlApp As Excel.Application
         Dim xlWorkBook As Excel.Workbook
         Dim xlWorkSheet As Excel.Worksheet
         Dim misValue As Object = System.Reflection.Missing.Value
         Dim i As Integer
         Dim j As Integer

         xlApp = New Excel.ApplicationClass
         xlWorkBook = xlApp.Workbooks.Add(misValue)
         xlWorkSheet = xlWorkBook.Sheets("sheet1")

         For i = 0 To DataGridView1.RowCount - 2
             For j = 0 To DataGridView1.ColumnCount - 1
                 xlWorkSheet.Cells(i + 1, j + 1) = _
                     DataGridView1(j, i).Value.ToString()
             Next
         Next

         xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
         xlWorkBook.Close()
         xlApp.Quit()

         releaseObject(xlApp)
         releaseObject(xlWorkBook)
         releaseObject(xlWorkSheet)

         MsgBox("You can find the file C:\vbexcel.xlsx")
     End Sub

     Private Sub releaseObject(ByVal obj As Object)
         Try
             System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
             obj = Nothing
         Catch ex As Exception
             obj = Nothing
         Finally
             GC.Collect()
         End Try
     End Sub

VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيفية تصدير البيانات من شبكة البيانات DataGridView إلى مصنف Excel

مُساهمة من طرف visual في الإثنين يوليو 27, 2015 6:34 pm

للاسف لم اتمكن 
تظهر اخطاء كثيرة
ممكن ايميل ابعتللك المشروع احناج مساعدتك

visual
.
.

تاريخ التسجيل : 13/07/2015
المساهمات : 5
النقاط : 13
التقيم : 0
الدولة : الجزائر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى