Access to ( xml,excel )

Soyez le premier à donner votre avis sur cette source.

Vue 17 131 fois - Téléchargée 1 885 fois

Description

Avez-vous déjà utilisé des données sous forme des fichiers xml ou excel ?

Ce programme va t?aider a convertir vos données Access au fichiers xml ou excel

Source / Exemple :


'source dans le zip

Conclusion :


Votre remarque m?intéresse

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

zinouba89
Messages postés
1
Date d'inscription
lundi 7 février 2011
Statut
Membre
Dernière intervention
3 mai 2011
-
ça ne fonctionne pas! Imports Excel

/* c'est quoi ce truc !! j'ai ajouter

"Imports Microsoft.Office.Interop.Excel "

mais ça marche pas et j'ai rien compris :(
master21
Messages postés
1
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
19 novembre 2009
-
Merci
Adoulaman
Messages postés
3
Date d'inscription
mercredi 19 novembre 2008
Statut
Membre
Dernière intervention
16 février 2009
-
Merci
LunaPurple
Messages postés
20
Date d'inscription
dimanche 15 avril 2007
Statut
Membre
Dernière intervention
20 octobre 2010
-
Je viens de m'apercevoir qu'il fallait aussi ajouter
Me.ProgressBar1.Value = 0
au tout début du code sur l'action click du bouton4 pour réinitialiser la progressbar avant toute action.
Sinon, lorsqu'on enchaîne les exports xls et xml pour une même table, il plante car à la fin, 1 + 1 = 2 (c'est un scoop ! ;-), et la valeur de la progressbar ne peut pas être supérieure à 1.

début du Code à modifier :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butt_Convertir.Click
Me.ProgressBar1.Value = 0
If Me.RadioButton1.Checked Then
For i As Integer = 0 To Me.ListBox2.Items.Count - 1
If TableToXmlConverter(Me.ListBox2.GetItemText(Me.ListBox2.Items(i)), Me.TextBox2.Text, Con) Then
Me.ProgressBar1.Value += 1
End If
Next
LunaPurple
Messages postés
20
Date d'inscription
dimanche 15 avril 2007
Statut
Membre
Dernière intervention
20 octobre 2010
-
Merci pour cette source qui m'a permis de faire mes exports xml sans me casser la tête !

Juste deux petits soucis pour l'export excel.
Il faut remplacer Rows par Columns dans la première boucle
'Entéte de feuille
Dim C, L As Integer
For C = 0 To DataSet.Tables(0).Columns.Count - 1
xls.Cells(1, C + 1) = DataSet.Tables(0).Columns(C).ColumnName
Next

Et la variable B doit être mise à False lorsque l'on est dans le Catch de l'exception.
On peut même y ajouter :
MessageBox.Show(ex.ToString) 'donne le lib de l'erreur rencontrée
si on veut.

Voilà. Très bonne source dans l'ensemble. Merci de l'avoir partagée.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.