Discussion :

[Aiman.elmachi]

Salut tout le monde,
Je souhaite établir une analyse multicritères sur la base de données suivante :


Les deux champs [A/B] et [X/Y], qui vont faire l'objet des critères, sont codifiés avec :
[A/B]: A correspond à 0/ B correspond à 1
[X/Y]: X correspond à 0/ Y correspond à 1

Maintenant, lors d'un clic sur un boutton crée sur mon interface, je souhaite qu'un fichier Excel "Résultat" se crée automatiquement sous la forme suivante :


SVP aidez moi à écrire le Code VB pour avoir ce résultat.
Merci d'avance

[tomlev]

Où est-ce que tu bloques exactement ?

Déjà tu peux commencer par faire le regroupement des données en SQL, qui est assez simple :

Code SQL :

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

1
2
3
4
SELECT [A/B], [X/Y], SUM(Surface) AS Surface, SUM(Puissance) AS Puissance, SUM(Volume) AS VOLUME
FROM DataItem
GROUP BY [A/B], [X/Y]
ORDER BY [A/B], [X/Y]

Ca donne les résultats sous la forme voulue, à part les cellules qui ne sont pas fusionnées ; il faudra gérer cet aspect là lors de l'export Excel.

Quel outil utilises-tu pour faire l'export Excel ?

[Aiman.elmachi]

Je bloque parce que je ne suis pas assez fort en ce langage.
Pour la méthode dont j'utilise pour exporter en Excel est depuis le code VB
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports Microsoft.Office.core
Imports Mocrosoft.Office.Interop
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim oXL As Excel.Application
        Dim oWB As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim oRng As Excel.Range
        ' Start Excel and get Application object.
        oXL = CreateObject("Excel.Application")
        oXL.Visible = True
 
        ' Get a new workbook.
        oWB = oXL.Workbooks.Add
        oSheet = oWB.ActiveSheet

[tomlev]

Je bloque parce que je ne suis pas assez fort en ce langage.

Oui ça je m'en doutais un peu, mais encore ? Quelle partie tu n'arrives pas à faire exactement ?
Tu sais exécuter une requête sur une base de données et lire le résultat ? Si ce n'est pas le cas, commence par lire ce tuto et essaie déjà de faire la requête que je t'ai donnée. Je veux bien t'aider, mais il faut quand même un petit effort de ta part...

[Aiman.elmachi]

D'abord ma BD est sur SQL server ! J'arrive à exécuter des requetes sur mais depuis SQL server ! Mais j'arrive pas à le faire depuis VB

[tomlev]

Justement c'est ça que je voulais dire : exécuter une requête depuis VB.NET.

Désolé, j'avais oublié le lien vers le tuto dans mon message précédent... le voilà :
http://dotnet.developpez.com/articles/ado1/vbnet/
Ca explique l'essentiel de ce qu'il faut savoir pour lire des données depuis une base de données.