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 13 utilisateurs en ligne :: 1 Enregistré, 0 Invisible et 12 Invités

AdminPVB


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 5159 messages dans 620 sujets

Nous avons 461 membres enregistrés

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

Recherche dans les forums

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


Derniers sujets

» EFFACER LIGNE SUR BASE
par jmcr Hier à 21:54

» Menustrip Vbnet Visual Studio
par Berly Dim 17 Sep - 13:27

» Insertion commentaire dans cellules
par Berly Ven 15 Sep - 20:21

» Chercher un texte dans un commentaire de cellule
par Berly Ven 15 Sep - 20:10

» ameliorer informatique
par jmcr Jeu 14 Sep - 23:19

» question pour le forum
par AdminPVB Jeu 14 Sep - 16:59

» total d'une cellule
par jmcr Lun 11 Sep - 14:51

» CODE ET combobox date enregistrement
par jmcr Lun 11 Sep - 14:49

» compter le nombre de lignes dans un listbox
par jmcr Dim 10 Sep - 11:24

» dossier pdf
par jmcr Mer 6 Sep - 21:40

» suppression d'un fichier txt en cours d'utilisation
par La boc Mar 5 Sep - 20:12

» Boucle sur DataGridView
par AdminPVB Ven 1 Sep - 20:50

» RECHERCHE COMPTABILISER NOMBRE carte
par grisan29 Mar 29 Aoû - 17:49

» ancien temps mis au moderne
par Berly Mar 29 Aoû - 17:18

» Liers des tables dans une BDD
par La boc Mar 29 Aoû - 11:01

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 

Septembre 2017

LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 

Calendrier Calendrier

Menustrip Vbnet Visual Studio

Sam 16 Sep - 21:05 par Berly

Bonsoir le Forum  Very Happy

Je suis actuellement en construction  d'un logiciel pour les enfants en scolarité primaire.(Visual Studio Community 2017)

Je l'ai commencé et il fonctionne parfaitement a ce stade.

J'utilise Le contrôle MenuSrip.

Au commencement il est question d'afficher par catégorie tables de 1 a 10 .
Un Premier Bouton "Tables de Multiplications" Aucun événement 
Puis Ajouts …

[ Lecture complète ]
suppression d'un fichier txt en cours d'utilisation

Mar 5 Sep - 9:51 par La boc

Bonjour,

dans mon application j'ai un fichier txt qui est chargé dans un DataGridView en fonction du n° ID.

Quand je supprime un ID, je dois aussi supprimer ce fichier, quand je fait un delete ça marche bien, le fichier est bien supprimé du dossier mais quand je ferme l'application j'ai un message box:

"Violation de l’accès concurrentiel:
Delete command a effectué 0 des enregistrements …

[ Lecture complète ]
Boucle sur DataGridView

Jeu 31 Aoû - 8:25 par La boc

Bonjour as tous,

J'ai laissé tomber la BDD avec les tables pour mes factures, parce-que j'ai plus de 850 entrées à gérer et ça va être un peu trop lourd.

Je suis donc partis sur des DataGridView pour emplir mes factures, et au lieu d'enregistrer dans une BDD j'enregistre dans un fichier txt et je recharge les fchier en fonction du nom du client.

Jusque là pas de problème.

Je voudrais …

[ Lecture complète ]
Liers des tables dans une BDD

Lun 28 Aoû - 15:08 par La boc

Bonjour à tous,

Je sèche sur un problème visiblement simple, mais impossible de faire quelque chose qui fonctionne!

Voilà dans une base de données access j'ai deux tables, une table client et une table facture, je souhaiterais lier les ID des deux tables pour que quand je choisis un id client j'ai sa facture dans la table facture.

Je fais une application VBNET avec Visulal studio comunity …

[ 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 ]
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 ]
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/


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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 : 1843
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 Jeu 21 Sep - 7:13