Discussion :

[wolflost]

Bonjour
J'ai une application en ADO.net et une base de donnée en SqlServer et je veux créer un button dans mon application. Le rôle de ce button sera d'exporter mes données du base de données SqlServer vers l'excel.

Auriez vous des pistes à me proposer qui me permettraient de réaliser le code de ce Button ?

Merci Cordialement

[Rhadawhisp]

alors pour l'extraction des resultat d'une requete vers Excel j'ai ca a te proposer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
 
Imports Excel
 
Public Class Form2
    Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        ' dans un événement click de bouton par exemple
        Dim xlApp As New Excel.Application
        'Si mon fichier existe je le delete
        If System.IO.File.Exists("C:\toto.xls") = True Then
            Kill("C:\toto.xls")
        End If
        'ajout d'une page et sélection 
        Dim xsTransfert As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
 
        Try
            ' ici on crée la chaine de connexion
            ' (on se connecte à SQL Server dans notre exemple)
            With xsTransfert.QueryTables.Add(Connection:="ODBC;DRIVER=SQL Server;SERVER=XXXX;APP=Microsoft® Query;DATABASE=XXXXX;Integrated Security=True", Destination:=xsTransfert.Range("A1"))
                .CommandText =  ' ou requete SELECT"
                .Name = "feuil1"
                .FieldNames = True
                .RowNumbers = True
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .PreserveColumnInfo = True
                .Refresh(BackgroundQuery:=False)
            End With
 
            ' affichage 
            xlApp.Visible = False
            'Gestion d'erreur
        Catch ex As Exception
            MsgBox("Va bosser ca marche pas !")
            MessageBox.Show(ex.Message)
        End Try
        'Sauvegarder le resultat de la requete SQL qui est copier dans mon fichier Excel
        xsTransfert.SaveAs("C:\toto.xls")
        'Pour enlever le message "voulez vous sauvegarder..."
        xlApp.DisplayAlerts = True
        'Quit Excel
        xlApp.Quit()
        'Libérer les ressources
        xlApp = Nothing
        xsTransfert = Nothing
        'Detruire les process EXCEL.EXE
        GC.Collect()

[Hiraa]

Salut,

Je crois que dans ce lien, tu peux trouver une piste :
http://support.microsoft.com/kb/316934

Bon courage,