تقييم الموضوع :
  • 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 


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,571 10-05-17, 03:13 PM
آخر رد: safalo
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 82 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 66 17-04-17, 07:13 PM
آخر رد: djelloul
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 8 848 03-04-17, 02:48 AM
آخر رد: ابو إياد
  استفسار حول عدم تكرار البيانات المتألق9 3 145 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 180 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 150 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 163 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 165 28-02-17, 03:27 PM
آخر رد: djelloul
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 9 9,222 28-02-17, 10:21 AM
آخر رد: وائل القطاوي

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


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