منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - [عنوان معدل] كيفية عمل تصدير للبيانات من قاعدة البيانات الي ملف اكسيل

كيفية تصدير الجدول المستعلم عنة من قاعدة البيانات اكسس او سيرفير سيكوال الي ملف اكسيل جاهز للطباعة

السلام عليكم

تفضل اخي العزيز هذا الكود يقوم بتصدير البيانات من الDatagrid الى ملف أكسل (الكود منقول)

PHP كود :

using System;
using System.Data;
using System.Windows.Forms;
using System.Data.SqlClient;
using Excel = Microsoft.Office.Interop.Excel;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            string connectionString = "Data Source=.;Initial Catalog=pubs;Integrated Security=True";
            string sql = "SELECT * FROM Authors";
            SqlConnection connection = new SqlConnection(connectionString);
            SqlDataAdapter dataadapter = new SqlDataAdapter(sql, connection);
            DataSet ds = new DataSet();
            connection.Open();
            dataadapter.Fill(ds, "Authors_table");
            connection.Close();
            dataGridView1.DataSource = ds;
            dataGridView1.DataMember = "Authors_table";
        }

        private void button2_Click(object sender, EventArgs e)
        {
            Excel.Application xlApp;
            Excel.Workbook xlWorkBook;
            Excel.Worksheet xlWorkSheet;
            object misValue = System.Reflection.Missing.Value;

            Int16 i, j;

            xlApp = new Excel.ApplicationClass();
            xlWorkBook = xlApp.Workbooks.Add(misValue);

            xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1);

            for (i = 0; i <= dataGridView1.RowCount - 2; i++)
            {
                for (j = 0; j <= dataGridView1.ColumnCount - 1; j++)
                {
                    xlWorkSheet.Cells[i + 1, j + 1] = dataGridView1[j, i].Value.ToString();
                }
            }

            xlWorkBook.SaveAs(@"c:\csharp.net-informations.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue);
            xlWorkBook.Close(true, misValue, misValue);
            xlApp.Quit();

            releaseObject(xlWorkSheet);
            releaseObject(xlWorkBook);
            releaseObject(xlApp);
        }

        private void releaseObject(object obj)
        {
            try
            {
                System.Runtime.InteropServices.Marshal.ReleaseComObject(obj);
                obj = null;
            }
            catch (Exception ex)
            {
                obj = null;
                MessageBox.Show("Exception Occured while releasing object " + ex.ToString());
            }
            finally
            {
                GC.Collect();
            }
        }
    }
} 

مشكور أخوي على الكود ، ولكن هل بالإمكان لو كان فيجوال بيسك ( فضلاً لا أمراً ) ..

السلام عليكم

بعيني تفضل

PHP كود :

Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports Excel = Microsoft.Office.Interop.Excel

Namespace WindowsFormsApplication1
    Public Partial Class Form1
        Inherits Form
        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(sender As Object, e As EventArgs)
            Dim connectionString As String = "Data Source=.;Initial Catalog=pubs;Integrated Security=True"
            Dim sql As String = "SELECT * FROM Authors"
            Dim connection As New SqlConnection(connectionString)
            Dim dataadapter As New SqlDataAdapter(sql, connection)
            Dim ds As New DataSet()
            connection.Open()
            dataadapter.Fill(ds, "Authors_table")
            connection.Close()
            dataGridView1.DataSource = ds
            dataGridView1.DataMember = "Authors_table"
        End Sub

        Private Sub button2_Click(sender As Object, e As EventArgs)
            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 Int16, j As Int16

            xlApp = New Excel.ApplicationClass()
            xlWorkBook = xlApp.Workbooks.Add(misValue)

            xlWorkSheet = DirectCast(xlWorkBook.Worksheets.get_Item(1), Excel.Worksheet)

            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

            xlWorkBook.SaveAs("c:\csharp.net-informations.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, _
                Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue)
            xlWorkBook.Close(True, misValue, misValue)
            xlApp.Quit()

            releaseObject(xlWorkSheet)
            releaseObject(xlWorkBook)
            releaseObject(xlApp)
        End Sub

        Private Sub releaseObject(obj As Object)
            Try
                System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
                obj = Nothing
            Catch ex As Exception
                obj = Nothing
                MessageBox.Show("Exception Occured while releasing object " & ex.ToString())
            Finally
                GC.Collect()
            End Try
        End Sub
    End Class
End Namespace 

بالتوفيق ان شاءالله

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السندباد المصري

Sajad

انسان

Sajad