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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 103 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 137 15-08-17, 02:11 PM
آخر رد: abozeyd
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 239 07-08-17, 11:26 PM
آخر رد: أبو نوره
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 140 19-07-17, 03:24 PM
آخر رد: waelalmsry75
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 238 19-07-17, 01:58 PM
آخر رد: Jounior_P
  كيفية عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس khaled12345 19 467 16-07-17, 07:23 PM
آخر رد: حريف برمجة
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 161 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 150 14-07-17, 09:43 AM
آخر رد: وادي العوضي
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 152 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 660 03-07-17, 05:04 AM
آخر رد: K39

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


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