منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

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

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

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




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





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

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

الكود:
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
VB.NET
المراقبين
المراقبين

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

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

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

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

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

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

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

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

مُساهمة من طرف NEXT السبت سبتمبر 29, 2018 1:52 pm

للرفع

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
كيفية تصدير البيانات من شبكة البيانات DataGridView إلى مصنف Excel  Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

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

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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