Communauté Fb
Follow us on twitter
Les vidéos du site
Le site complément
Dépannage de votre PC

Programmer en vb

Bonjour et bienvenue,

Programmer en VB est le site qui vous fera prendre conscience que vous pouvez concevoir votre programme informatique vous-même, que vous soyez artisan, employé ou étudiant.

Le Visual Basic est un langage informatique très puissant, très flexible et très abordable.
Une version en application se trouve sous Office
Excel pour exemple :
Tapez Alt + F11 à l’aide de votre clavier puis vous voilà dans l’éditeur de code VBA.

Notre forum d’entraide vous offre des tutoriels ainsi que divers exemples tout prêt à adapter à votre projet personnel.
Nous vous demandons uniquement de la bonne humeur et de la bonne volonté pour toutes questions ou toutes aides quelle qu’elle soit.
Sachez que pour progresser rapidement il est conseillé d’aider au mieux les autres membres.
Nous ne sommes pas là pour juger les qualités ou défauts de codes proposés, mais pour trouver ensemble la solution à votre demande.

A vos claviers :

Afin de remplir le forum, nous vous demandons de partager sur les réseaux sociaux et autres.
https://www.facebook.com/AdminPVB/


Merci de nous rejoindre sur http://programmer-en-vb.forumactif.org/
Merci d'avoir pris le temps de lire.
Merci pour votre inscription.

L'équipe de Programmer-en-VB

Forum de programmation VBA et VB.NET

Welcome if you does not speak french,you are able to translate the whole topics with the flags just below of this message. Click to English

Visual Basic Application et VB.net de puissants langages à la portée de tous.

Participez et soyez acteurs des divers forums ci-dessous.

Bienvenue à chaque nouveaux membres et merci à tous ceux qui font vivre ce forum.


Qui est en ligne ?

Il y a en tout 8 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 8 Invités

Aucun


Le record du nombre d'utilisateurs en ligne est de 65 le Mar 8 Juil - 23:40

Statistiques

Nos membres ont posté un total de 4880 messages dans 597 sujets

Nous avons 453 membres enregistrés

L'utilisateur enregistré le plus récent est esteban361

Recherche dans les forums

Utiliser cette méthode afin de trouver rapidement les discussions disponible sur notre forum.


Utiliser le bouton résolu

Dans votre message d'origine
cliquer sur le bouton



Ensuite tout en bas sur
Modifier le titre du sujet
cliquer sur le bouton

Résolu !!!

Ensuite changer l’icône du sujet par le bouton

Voilà pas plus compliqué que cela.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Partenaires


créer un forum



Annuaire referencement


Flux RSS


MSN 

Juillet 2017

LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      

Calendrier Calendrier

Obtenir le volume sonore enregistré par le micro

Sam 10 Sep - 13:29 par Nayl.VBcoder

Bonjour,

Je cherche à avoir le volume sonore de la pièce en temps réel, et l'afficher dans une ProgressBar.
Je ne vois pas comme plus décrire mon problème.

Merci de vos réponses.

Petits bidouillages pour ce faciliter La vie ,Astuces et codes pratique

Dim 11 Juin - 12:20 par Berly

Bonjour le Forum  Very Happy.

Lorsque j'écrivais dans mon code Console.Writeline ("Patati,Patata,......) ,j'ai d'abord utilisé le copié collé en changeant la valeur du texte .

Bon d'accord ,c'est bien mais ,ça me saoul un peu ,au fur et a mesure de mes apprentissages ,j'ai découvert les fonctions  Very Happy.

Maintenant je partage celle ci avec vous .

On est la sur un exemple de code en "Mode …

[ Lecture complète ]
Utilisation d'un objet son (Wav)

Jeu 18 Mai - 21:48 par Berly

Bonjour le forum 

Voila , je voudrais savoir si on peut créer un tableau d'objets son.
Difficile de trouver ce genre d'information .

Les sons  sont intégrés en ressources programme.

Merci  Very Happy
Code:
[Module Module1
    Dim son1 = New System.Media.SoundPlayer(My.Resources._0283)
    Dim son2 = New System.Media.SoundPlayer(My.Resources._0863)
    Dim son3 = New …


[ Lecture complète ]
Application

Lun 15 Mai - 19:02 par Berly

Bonjour le forum

Souci dans une nouvelle application.

Total des énoncés =3

Ecriture de l'énoncé 1 dans un Textbox.

Je voulais créer plusieurs problèmes différents.
Dons pour cela j'ai créé 3 sub  Laughing.

Lors de l'événement clic sur le bouton créé pour visualiser le premier énoncé celui ci s'affiche correctement Very Happy .
Suite a cela l'utilisateur donne le résultat ,et un Msgbox …

[ Lecture complète ]
Ressource Vb.net

Ven 5 Mai - 22:29 par Berly

Bonsoir le forum

Toujours a la recherche de ressources ,je partage avec vous une nouvelle ressource  Wink.

Bonne lecture .

https://vbnetpourtous.wordpress.com/2012/12/13/les-variables/

Incorporation d' un Label Nombre de questions et un autre pour le Score,application scolaire

Ven 5 Mai - 21:23 par Berly

Bonsoir le forum

Je viens vers vous ,pour une petite aide.

Voila c'est une application scolaire Tables de multiplications Windows form.

Pour les connaisseurs ,vous comprendrez par le code la construction.

J'aimerai pouvoir incorporer a cette application deux choses .

Un label pour afficher un score.

Un autre label pour afficher le nombre de questions.

A savoir que j'ai inclus dans cette …

[ Lecture complète ]
archiver un classeur

Dim 30 Avr - 10:22 par medjsk

SALUT TOUT LE MONDE

d'abord je vous informe que je comprend pas vraiment VBA excel
et j'ai un problème dans mon fichier ci-joint
lorsque j’archive (bouton archiver) il m'affiche une erreur !!!
si vous pouvez m'aider.merci d'avance

mes salutations

Fichiers joints
Copie de FORMULAIRE-REQUETE.xlsm
Vous n'avez pas la permission de télécharger les fichiers joints.
(218 Ko) Téléchargé 8 fois
If / end if incomprehension

Mer 11 Jan - 14:18 par Silux

Bonjour,

j'ai fait des petits tuto pour certains collègues, hier encore tout fonctionnait et aujourd'hui plantage incompréhensible :

tout bête :

Sub total()

Cells(1, 5).Value = ""
Cells(1, 5).Value = Cells(1, 1).Value * Cells(1, 2).Value * Cells(1, 3).Value * Cells(1, 4).Value

resultat = Cells(1, 5).Value
Cells(2, 1).Value = resultat

        If Cells(1, 1).Value < 25 Then Cells(1, 1).Interior.Color = 255
      


[ Lecture complète ]
Enregistrement dans une base

Mar 1 Nov - 10:55 par La boc

Bonjour à tous et toutes, me revoilà pour une petite question.

J'ai utilisé il y a quelque années VB 2010 avec une base de données sans problème.

Je suis sous W10 64 bit avec Visual studio express 2015 et je tente de faire la même chose mais impossible d'enregistrer dans la base et je ne comprends pas où est mon erreur. Si une âme charitable pouvez éclairer ma lanterne ça serait …

[ Lecture complète ]

connexion string et xml

Partagez
avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu connexion string et xml

Message par pacpac le Mar 17 Fév - 23:13

Bonjour à tous
J'ai créé un petit programme en vb net pour faire mes sauvegardes SQL il y a déjà quelques temps. Je désire l’améliorer un peu.
Mon appli utilise des textbox pour utiliser la chaîne de connexion sql en concaténation, ça fonctionne parfaitement si ma session est ouverte mais je voudrais aussi qu'elle puisse fonctionner sessions fermées, pas possible dans l'état ni en tâche planifié car les fonctions interagir avec le bureau ne fonctionne plus très bien avec les nouveaux OS serveur de Windows, Je suis obligé de faire un service Windows et modifier mon code.
D'après ce que j'ai vu je dois utiliser une classe pour aller chercher ma chaine de connexion et en xml serait pas ma.
Malheureusement je connais pas bien cette possibilité et j'ai vu aussi avec singleton.
Ma question est, comment faire cette chaîne de connexion dans un fichier xml puis pouvoir le lire dans une classe.
Je veux pas mettre le nom de la base en dur dans mon code car le serveur et les noms de base sont pas forcément tous les mêmes donc je voudrais un moyen via textbox ou autre enregistrer les infos des bases manuellement dans un fichier lors de l'installation du programme ou la modification ultérieur de la sauvegarde.
Donc si vous avez des exemples de codes ou de programme.
encore merci d'avance


Dernière édition par pacpac le Dim 22 Fév - 23:04, édité 1 fois
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Mer 18 Fév - 11:41

Bonjour et bienvenue,

j'ai envoyé un mail groupé aux membres afin de voir si on peut trouver une solution.
En attendant une petite idée.

Pourquoi ne pas passé par les paramètres dans les propriétés du projet afin d'y insérer et sauvegarder le nom de la base dans une variable.
Merci pour l'inscription.
A bientôt.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Mer 18 Fév - 12:32

Merci à Toi Fhoest
Je passe actuellement mes paramètres dans les paramètres des propriétés de mon projet ça me créé un fichier app.config qui s'enregistre dans un fichier xml
Dans mon code je récupère à partir des texbox mes paramètres de connexion sql qui ensuite sont concaténer dans mon code pour créer ma chaine de connexion sql.
Ça pas facile à expliquer comme ça.
Cette méthode me permet de sauvegarder ma base dans un dossier que j'ai personnalisé avec différente option dans mon fichier backup depuis mes textbox.
j'ai peux aussi ajouter les jours et heures de mes sauvegardes programmées.
Mais tout ceci fonctionne si ma session est ouverte, même en tâche planifié ça fonctionne pas car je peux pas interagir avec le bureau.
Je dois donc modifier la conception de mon projet est passé par un service Windows.
le but c'est de créer une classe (dll) qui pourrait aller lire un fichier (xml ou autre) pour lancer cette sauvegarde avec les différent élément que j'ai besoin dont la chaine de connexion.
Mais je veux aussi que cela soit évolutif et pouvoir changer dynamiquement cette de connexion, car j'ai plusieurs serveur avec différents nom de base et de connexion

Merci encore de ton aide
Si besoin de plus de renseignement sur mon projet ne pas hésiter
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Mer 18 Fév - 23:25

Bonsoir,
Y a t'il moyen d'envoyer la partie du XML qui contient le chemin à prendre ainsi que le nom du fichier avec son chemin.
C'est pour une class.
du style
<\/name><\/assembly>le_projet<\/name><\/assembly>
chemin et fichier = "c:\blabla\le_fichier.xml
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Jeu 19 Fév - 8:03

bonjour j'ai avec un fichier app.config on pouvait enregistrer une connexion string et le modifier en ajouter une référence system.configurateur dans le projet
ensuite on peut faire appel à app.config même session fermée
Je regarde cette on verra bien si quelqu'un a des infos

merci
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Jeu 19 Fév - 8:39

Bonjour,
en attendant voici ce que j'ai fait:
Dll de lecture xml
Il y a trois paramètres le chemin du fichier,P1,P2.

Code:
'renvoi la valeur string du paramètre P2,dans le bloc P1 du fichier assembly Path_file
Imports Read_XML
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As New Read_XML.Read_xml







A bientôt.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Jeu 19 Fév - 13:13

merci
je regarde ça ce soir
as-tu la source de ta dll

encore merci
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Jeu 19 Fév - 22:54

Bonsoir,
c'est le code dont tu as besoin?
le voici
Code:
Imports System.Xml
Public Class Read_xml
    Public Function read(ByVal File_path As String, ByVal P1 As String, ByVal P2 As String) As String
        Dim XmlDoc As XmlDocument = New XmlDocument()
        Dim bloc As XmlNodeList
        Dim noeud, noeudEnf As XmlNode
        XmlDoc.Load(File_path)
        bloc = XmlDoc.DocumentElement.GetElementsByTagName(P1)
        For Each noeud In bloc
            For Each noeudEnf In noeud.ChildNodes
                If noeudEnf.LocalName = P2 Then
                    read = noeudEnf.InnerText
                Else
                    read = "Nothing found"
                End If
            Next
        Next
        Return read
    End Function
End Class
A bientôt.
Inspirer de cette page:
http://selkis.developpez.com/tutoriels/dotnet/Xmlpart1/
merci à son auteur.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Jeu 19 Fév - 23:03

Merci Fhoest

Je suis peut-être sur une piste dit moi ce que tu en penses
Je vais essayer d'écrire dans un fichier xml dans les balises ce qui correspond à chaque info de la connexion
c'est à dire: database, user, password et autres
ensuite dans ma DLL je vais aller lire ce fichier et reconstruire ma chaine avec ces balises
ce que j'ai c'est pas ce que tu en penses
J'ai déjà commencé
mon Fichier xml se présente comme ceci quand j'enregistre mes infos pour la base
Code:
<?xml version="1.0" encoding="utf-8"?>
<sql xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <SQLname>test</SQLname>
  <SQLID>sa</SQLID>
  <SQLPass>sa</SQLPass>
  <ConnBase>sa</ConnBase>
  <mondaycb>false</mondaycb>
  <tuesdaycb>true</tuesdaycb>
  <Wednesdaycb>true</Wednesdaycb>
  <thursdaycb>false</thursdaycb>
  <fridaycb>false</fridaycb>
  <saturdaycb>false</saturdaycb>
  <sundaycb>false</sundaycb>
  <heuretb>20</heuretb>
  <minutetb>00</minutetb>
  <Savechemin>C:\Backup\</Savechemin>
  <fichiername>sa</fichiername>
  <fileNb>1</fileNb>
  <Jouraffiche>true</Jouraffiche>
</sql>

Ensuite voilà ma chaîne de connexion qui fonctionnait avant que j'essaie de faire mes changements
Code:
Public Sub backupSQL()
        Dim dDate As String = Date.Today.ToString("dddd")
        Dim ext As String = ".bak" 'extension du fichier
        Dim Connection As New SqlConnection()
        Dim timeout As SqlCommand = New SqlCommand
        timeout.CommandTimeout = 0

        Try
            Connection.ConnectionString = "Data source=" & SQLname & " ;Database= " & ConnBase & ";User ID=" & SQLID & ";Password=" & SQLPass & ";"
            Connection.Open()
            'sauvegarde de la base dans un repertoire personnaliser

            Dim SQLCmd As New SqlCommand()
            SQLCmd = timeout
            SQLCmd.Connection = Connection
            If Jouraffiche = True Then
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & dDate & ext & "'" & "WITH INIT"
            Else
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & ext & "'" & "WITH INIT"
            End If
            SQLCmd.ExecuteNonQuery()
            MessageBox.Show(("Sauvegarde de la base " _
                            + (ConnBase + " Complete!")), "Sauvegarde", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch exp As SqlException
            MessageBox.Show(exp.Message)
        Finally
            Connection.Close()
        End Try

    End Sub

Il faudrait que j'arrive à  transcrire ma chaîne dans la dll et en lisant mon xml el lui mettre les balises dans les variables de ma chaînes

je sais pas ce que tu en penses
encore merci les infos de ta dll
je vais voir si je peux m'en servir pour m'aider

encore merci
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Ven 20 Fév - 7:03

Bonjour,
essai comme ça.
Code:
'renvoi la valeur string du paramètre P2,dans le bloc P1 du fichier assembly Path_file
Imports Read_XML
Public Sub backupSQL()
  Dim SQLname,ConnBase,SQLID,SQLPass As String
  Dim r as New Read_XML.Read_xml
        Dim Chemin as string
  Dim dDate As String = Date.Today.ToString("dddd")
        Dim ext As String = ".bak" 'extension du fichier
        Dim Connection As New SqlConnection()
        Dim timeout As SqlCommand = New SqlCommand
        timeout.CommandTimeout = 0
     ' Reste chemin à définir
  sqlSQLname=r.Read(Chemin,"SQLname")
  ConnBase=r.Read(Chemin,"ConnBase")
  SQLID=r.Read(Chemin,"SQLID")
  SQLPass=r.Read(Chemin,"SQLPass")
        Try
            Connection.ConnectionString = "Data source=" & SQLname & " ;Database= " & ConnBase & ";User ID=" & SQLID & ";Password=" & SQLPass & ";"
            Connection.Open()
            'sauvegarde de la base dans un repertoire personnaliser
            Dim SQLCmd As New SqlCommand()
            SQLCmd = timeout
            SQLCmd.Connection = Connection
            If Jouraffiche = True Then
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & dDate & ext & "'" & "WITH INIT"
            Else
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & ext & "'" & "WITH INIT"
            End If
            SQLCmd.ExecuteNonQuery()
            MessageBox.Show(("Sauvegarde de la base " _
                            + (ConnBase + " Complete!")), "Sauvegarde", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch exp As SqlException
            MessageBox.Show(exp.Message)
        Finally
            Connection.Close()
        End Try
    End Sub
Je n'ai pas tester.voir peut être P1 à corriger et mettre le chemin correct.
A+


Dernière édition par Fhoest™ le Ven 20 Fév - 8:52, édité 2 fois


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Ven 20 Fév - 7:55

Ok merci
Je vais tester ça soit ce soir soit demain
j'ai une réunion ce soir donc je sais pas à quel heure j'aurai finit

merci à toi je te tiens au courant
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Ven 20 Fév - 7:57

Re,
je peaufine un peu le code afin d'éviter les bugs, en attendant.
Voilà ,tu peux prendre le code ci dessus avant ton dernier message,puis reprendre la Dll suivant le lien plus haut car j'ai modifié le contenu comme suit:
Code:
Imports System.Xml
Public Class Read_xml
    Public Function read(ByVal File_path As String, ByVal P1 As String) As String
        Dim XmlDoc As XmlDocument = New XmlDocument()
        Dim bloc As XmlNodeList
        Dim noeud, noeudEnf As XmlNode
        XmlDoc.Load(File_path)
        bloc = XmlDoc.DocumentElement.GetElementsByTagName(P1)
        For Each noeud In bloc
            For Each noeudEnf In noeud.ChildNodes
                read = noeud.InnerText
            Next
        Next
        Return read
    End Function
End Class
Bonnne journée.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Ven 20 Fév - 11:28

Fhoest
Excuse moi mais je pensais que le code que tu avais avant mon dernier message c'était pour mettre dans une dll
et là ton dernier message c'est pour aussi dans la dll
Excuse moi je me suis peut-être mélanger les pinceaux

merci à toi
bonne journée
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Ven 20 Fév - 12:03

Bonjour,
En fait le lien de téléchargement de la Dll=
http://pvb.comeze.com/Fichier_upload/Fhoest/Read_XML.dll
Le contenu de la dll (code)=

Code:

Imports System.Xml
Public Class Read_xml
    Public Function read(ByVal File_path As String, ByVal P1 As String) As String
        Dim XmlDoc As XmlDocument = New XmlDocument()
        Dim bloc As XmlNodeList
        Dim noeud, noeudEnf As XmlNode
        XmlDoc.Load(File_path)
        bloc = XmlDoc.DocumentElement.GetElementsByTagName(P1)
        For Each noeud In bloc
            For Each noeudEnf In noeud.ChildNodes
                read = noeud.InnerText
            Next
        Next
        Return read
    End Function
End Class
et ton code modifié ( il faut ajouter dans les références du projet la dll)=

Code:

'renvoi la valeur string du paramètre P2,dans le bloc P1 du fichier assembly Path_file
Imports Read_XML
Public Sub backupSQL()
  Dim SQLname,ConnBase,SQLID,SQLPass As String
  Dim r as New Read_XML.Read_xml
        Dim Chemin as string
  Dim dDate As String = Date.Today.ToString("dddd")
        Dim ext As String = ".bak" 'extension du fichier
        Dim Connection As New SqlConnection()
        Dim timeout As SqlCommand = New SqlCommand
        timeout.CommandTimeout = 0
     ' Reste chemin à définir
  sqlSQLname=r.Read(Chemin,"SQLname")
  ConnBase=r.Read(Chemin,"ConnBase")
  SQLID=r.Read(Chemin,"SQLID")
  SQLPass=r.Read(Chemin,"SQLPass")
        Try
            Connection.ConnectionString = "Data source=" & SQLname & " ;Database= " & ConnBase & ";User ID=" & SQLID & ";Password=" & SQLPass & ";"
            Connection.Open()
            'sauvegarde de la base dans un repertoire personnaliser
            Dim SQLCmd As New SqlCommand()
            SQLCmd = timeout
            SQLCmd.Connection = Connection
            If Jouraffiche = True Then
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & dDate & ext & "'" & "WITH INIT"
            Else
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & ext & "'" & "WITH INIT"
            End If
            SQLCmd.ExecuteNonQuery()
            MessageBox.Show(("Sauvegarde de la base " _
                            + (ConnBase + " Complete!")), "Sauvegarde", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch exp As SqlException
            MessageBox.Show(exp.Message)
        Finally
            Connection.Close()
        End Try
    End Sub
Je ne sais pas si c'est exactement ça que tu souhaites,c'est qu'un exemple d'utilisation de la Dll, mais j'essai de t'aider au mieux.(selon mes compétences)
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Ven 20 Fév - 13:02

ne t'inquiète pas, c'est vraiment sympa de ta part de m'aider
je ne peux pas tester pour l'instant mais dès que je peux je te tiens au courant
avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Ven 20 Fév - 19:09

J'ai jeté un oeil sur tout ça, cela me parait pas mal
mais juste une petite chose 
Peux-t-on tout mettre mon code plus ton code dans la même DLL
ensuite je fait appel à cette DLL pour faire ma sauvegarde
Désolé de t'embêter

merci
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Ven 20 Fév - 23:14

Bonsoir,
je vais voir ce que je peux faire ce weekend.
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Sam 21 Fév - 8:20

Bonjour pacpac,le forum,

Voilà la dll et solution que je te propose:
le code d'appel de la dll ainsi que la manière de l'utiliser
Premier paramètre=chemin du fichier xml
Deuxième paramètre= chemin de sauvegade
Troisième paramètre = nom de fichier de sauvegarde
Quatrième paramètre = autorisation par rapport au jour valeur Boolean
Code:
Imports Backup_PacPac.Backup_Perso
Public Class Form1

       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
    Dim RunBackExe As New Backup_PacPac.Backup_Perso
    RunBackExe.Backup_execute("C:\Bureau\fichier.xml", "C:\Bureau\", "Test_backup", True)
puis le lien de la dll:
http://pvb.comeze.com/Fichier_upload/Fhoest/Backup_PacPac.dll

En espérant que ça fonctionne pour toi.
A bientôt.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Sam 21 Fév - 10:56

Bonjour Fhoest
tu es matinale
petite question le code de la dll , il a changé ? as tu le code?
car c'est pour voir
Car si j'ai des choses à faire évoluer ou m'inspirer de ton code pour autre chose

merci à toi
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Sam 21 Fév - 11:12

Bonjour,
voici le code:
Code:
Imports System.Xml
Imports System.Data.SqlClient
Public Class Backup_Perso

    Public Sub Backup_execute(ByVal File_path As String, ByVal Savechemin As String, ByVal fichiername As String, ByVal Jouraffiche As Boolean)
        Dim SQLname, ConnBase, SQLID, SQLPass As String
        Dim Tab(4) As String
        Dim XmlDoc As XmlDocument = New XmlDocument()
        Dim bloc As XmlNodeList
        Dim noeud, noeudEnf As XmlNode
        Dim i As Integer
        Dim dDate As String = Date.Today.ToString("dddd")
        Dim ext As String = ".bak" 'extension du fichier
        Dim Connection As New SqlConnection()
        Dim timeout As SqlCommand = New SqlCommand
        Tab(0) = "SQLname"
        Tab(1) = "ConnBase"
        Tab(2) = "SQLID"
        Tab(3) = "SQLPass"
        XmlDoc.Load(File_path)
        For i = 1 To 3
            bloc = XmlDoc.DocumentElement.GetElementsByTagName(Tab(i))
            For Each noeud In bloc
                For Each noeudEnf In noeud.ChildNodes
                    Select Case i
                        Case i = 1
                            SQLname = noeud.InnerText
                        Case i = 2
                            ConnBase = noeud.InnerText
                        Case i = 3
                            SQLID = noeud.InnerText
                        Case i = 4
                            SQLPass = noeud.InnerText
                    End Select
                Next
            Next
        Next

        timeout.CommandTimeout = 0
        Try
            Connection.ConnectionString = "Data source=" & SQLname & " ;Database= " & ConnBase & ";User ID=" & SQLID & ";Password=" & SQLPass & ";"
            Connection.Open()
            'sauvegarde de la base dans un repertoire personnaliser
            Dim SQLCmd As New SqlCommand()
            SQLCmd = timeout
            SQLCmd.Connection = Connection
            If Jouraffiche = True Then
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & dDate & ext & "'" & "WITH INIT"
            Else
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & ext & "'" & "WITH INIT"
            End If
            SQLCmd.ExecuteNonQuery()
            MsgBox("Sauvegarde de la base " _
                            + (ConnBase + " Complete!"), vbInformation, "Sauvegarde")
        Catch exp As SqlException
            MsgBox(exp.Message)
        Finally
            Connection.Close()
        End Try
    End Sub

End Class
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Sam 21 Fév - 11:58

Désolé Fhoest

J'ai essayé ton code mais j'ai une erreur dans les variables du type
Code:
Avertissement   1   La variable 'SQLname' est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution.   C:\Users\sylvain\Documents\Visual Studio 2012\Projects\serialization\Read_XML\Backup_Perso.vb   42   60   Read_XML
et c'est valable pour les autres aussi
J'ai fait un débogage détaillé et je constate à l'appel de ma chaîne de connexion il m'affiche rien dans les variables; normalement il devrait afficher les infos de mon fichier xml ?

j'ai une autre question
Mon fichier xml sera toujours au même endroit
n'est-il pas possible dans la dll de lui dire le chemin à lire en utilisant ce code :Application.StartupPath + "\InfoIDSQL.xml"
InfoIDSQL.XML c'est le fichier qui est crée pour enregistrer mes infos
Ensuite dans un bouton par exemple faire appel à cette DLL
Car comme ça dans ma form j'aurai moins de code

Merci et désolé de t'embêter encore
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Sam 21 Fév - 13:22

Re,
ce ne sont que des avertissements normalement ça fonctionne,
voici la nouvelle version.
 http://pvb.comeze.com/Fichier_upload/Fhoest/Backup_PacPac.dll  
Code:
Imports System.Xml
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class Backup_Perso

    Public Sub Backup_execute(ByVal Savechemin As String, ByVal fichiername As String, ByVal Jouraffiche As Boolean)
        Dim File_path As String
        Dim SQLname, ConnBase, SQLID, SQLPass As String
        Dim Tab(4) As String
        Dim XmlDoc As XmlDocument = New XmlDocument()
        Dim bloc As XmlNodeList
        Dim noeud, noeudEnf As XmlNode
        Dim i As Integer
        Dim dDate As String = Date.Today.ToString("dddd")
        Dim ext As String = ".bak" 'extension du fichier
        Dim Connection As New SqlConnection()
        Dim timeout As SqlCommand = New SqlCommand
        Tab(0) = "SQLname"
        Tab(1) = "ConnBase"
        Tab(2) = "SQLID"
        Tab(3) = "SQLPass"
        File_path = Application.StartupPath(+"\InfoIDSQL.xml")
        XmlDoc.Load(File_path)
        For i = 1 To 3
            bloc = XmlDoc.DocumentElement.GetElementsByTagName(Tab(i))
            For Each noeud In bloc
                For Each noeudEnf In noeud.ChildNodes
                    Select Case i
                        Case i = 1
                            SQLname = noeud.InnerText
                        Case i = 2
                            ConnBase = noeud.InnerText
                        Case i = 3
                            SQLID = noeud.InnerText
                        Case i = 4
                            SQLPass = noeud.InnerText
                    End Select
                Next
            Next
        Next

        timeout.CommandTimeout = 0
        Try
            Connection.ConnectionString = "Data source=" & SQLname & " ;Database= " & ConnBase & ";User ID=" & SQLID & ";Password=" & SQLPass & ";"
            Connection.Open()
            'sauvegarde de la base dans un repertoire personnaliser
            Dim SQLCmd As New SqlCommand()
            SQLCmd = timeout
            SQLCmd.Connection = Connection
            If Jouraffiche = True Then
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & dDate & ext & "'" & "WITH INIT"
            Else
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & ext & "'" & "WITH INIT"
            End If
            SQLCmd.ExecuteNonQuery()
            MsgBox("Sauvegarde de la base " _
                            + (ConnBase + " Complete!"), vbInformation, "Sauvegarde")
        Catch exp As SqlException
            MsgBox(exp.Message)
        Finally
            Connection.Close()
        End Try
    End Sub

End Class
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Sam 21 Fév - 14:22

j'ai cette erreur avec le chemin du fichier xml
Code:
La conversion de la chaîne "\InfoIDSQL.xml" en type 'Double' n'est pas valide.

ce que j'ai fait j'ai enlevé la parenthèse entourant "\infoidsql.xml"
là ça passe mais j'ai l'impression que la lecture du fichier n'arrive pas à assigner les valeur du fichier au variable de ma chaîne de connexion
Quand je fait débogage en mode détaillé quand il s'arrête sur la ligne de ma chaîne normalement je devrais voir les valeurs assignées

encore merci
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1786
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: connexion string et xml

Message par AdminPVB le Sam 21 Fév - 18:18

Bonjour,
j'avais une petite erreur sur la boucle for i
voici le code avec ta modification
Code:
Imports System.Xml
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class Backup_Perso

    Public Sub Backup_execute(ByVal Savechemin As String, ByVal fichiername As String, ByVal Jouraffiche As Boolean)
        Dim File_path As String
        Dim SQLname, ConnBase, SQLID, SQLPass As String
        Dim Tab(4) As String
        Dim XmlDoc As XmlDocument = New XmlDocument()
        Dim bloc As XmlNodeList
        Dim noeud, noeudEnf As XmlNode
        Dim i As Integer
        Dim dDate As String = Date.Today.ToString("dddd")
        Dim ext As String = ".bak" 'extension du fichier
        Dim Connection As New SqlConnection()
        Dim timeout As SqlCommand = New SqlCommand
        Tab(0) = "SQLname"
        Tab(1) = "ConnBase"
        Tab(2) = "SQLID"
        Tab(3) = "SQLPass"
        File_path = Application.StartupPath + "\InfoIDSQL.xml"
        XmlDoc.Load(File_path)
        For i = 0 To 3
            bloc = XmlDoc.DocumentElement.GetElementsByTagName(Tab(i))
            For Each noeud In bloc
                For Each noeudEnf In noeud.ChildNodes
                    Select Case i
                        Case i = 0
                            SQLname = noeud.InnerText
                        Case i = 1
                            ConnBase = noeud.InnerText
                        Case i = 2
                            SQLID = noeud.InnerText
                        Case i = 3
                            SQLPass = noeud.InnerText
                    End Select
                Next
            Next
        Next

        timeout.CommandTimeout = 0
        Try
            Connection.ConnectionString = "Data source=" & SQLname & " ;Database= " & ConnBase & ";User ID=" & SQLID & ";Password=" & SQLPass & ";"
            Connection.Open()
            'sauvegarde de la base dans un repertoire personnaliser
            Dim SQLCmd As New SqlCommand()
            SQLCmd = timeout
            SQLCmd.Connection = Connection
            If Jouraffiche = True Then
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & dDate & ext & "'" & "WITH INIT"
            Else
                SQLCmd.CommandText = "BACKUP DATABASE " & ConnBase & " TO DISK = '" & Savechemin & fichiername & "_" & ext & "'" & "WITH INIT"
            End If
            SQLCmd.ExecuteNonQuery()
            MsgBox("Sauvegarde de la base " _
                            + (ConnBase + " Complete!"), vbInformation, "Sauvegarde")
        Catch exp As SqlException
            MsgBox(exp.Message)
        Finally
            Connection.Close()
        End Try
    End Sub

End Class
dès que ça fonctionne je remettrai la bonne dll sur le lien.
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
pacpac

Localisation : Manche
Messages : 34
Date d'inscription : 17/02/2015
Age : 41

Résolu Re: connexion string et xml

Message par pacpac le Sam 21 Fév - 22:34

Re,
Donc là effectivement il fait le tour du ficher xml et me renvoie toute les valeurs dans la boucle une par une
Par contre mes valeurs ne s'affichent pas ma chaîne de connexion d'ou une levée d’exception qui me dit qu'il ne trouve pas mon serveur sql ce qui est normal vu que pour lui rien ne s'affiche dans ma chaîne

ce qu'ai j'ai fait en attendant , c'est que j'ai mis le code directement dans le code de mon bouton, je ferai la DLL une fois que ça fonctionnera avec le bouton.

Contenu sponsorisé

Résolu Re: connexion string et xml

Message par Contenu sponsorisé


    La date/heure actuelle est Ven 21 Juil - 0:34