تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[عنوان معدل] كيفية عمل تصدير للبيانات من قاعدة البيانات الي ملف اكسيل
#1
كيفية تصدير الجدول المستعلم عنة من قاعدة البيانات اكسس او سيرفير سيكوال الي ملف اكسيل جاهز للطباعة
Heart
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً

Heart
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

تفضل اخي العزيز هذا الكود يقوم بتصدير البيانات من ال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 senderEventArgs 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(sqlconnection);
            
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 senderEventArgs e)
        {
            
Excel.Application xlApp;
            
Excel.Workbook xlWorkBook;
            
Excel.Worksheet xlWorkSheet;
            
object misValue System.Reflection.Missing.Value;

            
Int16 ij;

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

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

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

            
xlWorkBook.SaveAs(@"c:\csharp.net-informations.xls"Excel.XlFileFormat.xlWorkbookNormalmisValuemisValuemisValuemisValueExcel.XlSaveAsAccessMode.xlExclusivemisValuemisValuemisValuemisValuemisValue);
            
xlWorkBook.Close(truemisValuemisValue);
            
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();
            }
        }
    }

الرد }}}}
تم الشكر بواسطة:
#3
مشكور أخوي على الكود ، ولكن هل بالإمكان لو كان فيجوال بيسك ( فضلاً لا أمراً ) ..
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

بعيني تفضل

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 ObjectAs 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(sqlconnection)
            
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 ObjectAs 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 Int16As Int16

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

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

            For 
0 To dataGridView1.RowCount 2
                
For 0 To dataGridView1.ColumnCount 1
                    xlWorkSheet
.Cells(11) = dataGridView1(ji).Value.ToString()
                
Next
            Next

            xlWorkBook
.SaveAs("c:\csharp.net-informations.xls"Excel.XlFileFormat.xlWorkbookNormalmisValuemisValuemisValuemisValue_
                Excel
.XlSaveAsAccessMode.xlExclusivemisValuemisValuemisValuemisValuemisValue)
            
xlWorkBook.Close(TruemisValuemisValue)
            
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 


بالتوفيق ان شاءالله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصميم قاعدة البيانات djelloul 2 37 06-12-16, 12:36 PM
آخر رد: djelloul
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 42 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 174 04-11-16, 09:25 AM
آخر رد: thevirus
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 355 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  [سؤال] قراءة رابط من قاعدة بيانات في ادة التصفح شمس الدين 03 2 85 27-10-16, 10:43 PM
آخر رد: شمس الدين 03
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 7 7,249 27-10-16, 09:53 PM
آخر رد: thevirus
  مساعدة في بناء قاعدة hglogtd 4 138 05-10-16, 03:48 PM
آخر رد: hglogtd
  [سؤال] شباب كيفية انقاص او طرح الكمية الموضوعة فى الداتا جريد من الجدول احمد عبد الحكيم 2 311 04-10-16, 11:37 PM
آخر رد: benomar
  استفسار حول طريقتي في قاعدة البيانات صبري زينوبي 0 82 29-09-16, 04:35 PM
آخر رد: صبري زينوبي
  ربط قاعدة بيانات اكسس بفجوال دوت نت 2015 كنونو 0 127 26-09-16, 01:35 PM
آخر رد: كنونو

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


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