Communauté Fb
Follow us on twitter
Les vidéos du site
Le site complément

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 do not speak french,you are able to translate the whole topics with the flags just below 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 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 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 6112 messages dans 689 sujets

Nous avons 560 membres enregistrés

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

Recherche dans les forums

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


Derniers sujets

» Outlook ne s'ouvre pas
par danpom302 Dim 8 Juil - 23:16

» Instants musique
par Berly Ven 6 Juil - 19:06

» Faute de code .....Que décodez vous dans ce film ?
par Berly Dim 24 Juin - 11:35

» Localiser tous les #N/A dans la plage ZONNE
par AdminPVB Sam 16 Juin - 22:37

» Configuration Editeur
par Berly Mer 13 Juin - 22:25

» Des idées .......vous en avez ?
par Berly Mar 12 Juin - 17:19

» Bienvenue à lina.bouda13
par AdminPVB Dim 10 Juin - 22:28

» Manquant:windows common controls 6 (SP6)
par TitiPointCom Sam 9 Juin - 8:47

» Déplacer ligne sélectionnée par Combobox, d'un tableau à un autre
par TitiPointCom Ven 8 Juin - 23:33

» Problème d'affichage de labels
par TitiPointCom Mar 5 Juin - 10:07

» Bienvenue à Alis
par AdminPVB Lun 4 Juin - 20:34

» Les Boucles
par Berly Dim 3 Juin - 14:57

» bienvenue a Dengpao
par AdminPVB Jeu 31 Mai - 21:40

» bienvenue a BasMar01 et coucou86
par AdminPVB Lun 28 Mai - 6:31

» Bienvenue à Pralin
par Berly Ven 25 Mai - 21:27

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 2018

LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier

Petit souci d'affichage de valeurs(Tableau) valeurs saisies au clavier

Sam 14 Avr - 21:19 par Berly

Bonsoir a tous  Very Happy.

Voila j'ai un petit souci de méthode .

Je poste le code ,Ne vous souciez pas des zones de commentaire.

A la fin le nombre d éléments du tableau correspond bien au nombres de valeurs saisies par l'utilisateur .

Je ne trouve pas la méthode pour afficher les valeurs .....bon c'est vrai que en ce moment je bricole  Rolling Eyes.

Merci pour vos réponses  Wink.

Code:
[Imports …


[ Lecture complète ]
Traduction D'algorithmes

Mer 7 Mar - 22:28 par Berly

Bonsoir A toutes et Tous .

J'ouvre ce Post en vue d'une éventuelle collaboration de membres désireux de collaborer a l'évolution de tous.

Le but de ce forum ,consisterai a rechercher des Algorithmes en "Pseudo-code", sans restriction de ressources en appliquant le principe du copié collé .(Sans omettre de citer les sources de provenance  Very Happy,Livres ,exercices scolaires Very Happy ,etc.....)

La …

[ Lecture complète ]
SOS traduction

Dim 4 Mar - 9:11 par e.sainturlo

Bonjour à tous,

Je souhaite comprendre ce qui se cache derrière cette longue suite d'instructions imbriquées les unes dans les autres:

numero2 = Conversions.ToInteger(Operators.AddObject(numero2,Operators.ModObject(Operators.MultiplyObject(NewLateBinding.LateIndexGet(MPMP, new object[] {numero1,numero3}, null), Strings.Asc(MCMC.Substring(numero3, 1)) - 65), 26)));

Quelqu'un saurait-il …

[ Lecture complète ]
Et si on parlait des fichiers.txt et fichiers.csv

Ven 2 Fév - 20:51 par Berly

Bonsoir le forum  Very Happy

Je viens vers vous pour étudier en vbnet les fichiers.

Actuellement j'étudie dans une autre langage ces fichiers.



https://fr.wikipedia.org/wiki/Comma-separated_values.


Ces bases de données sont intéressantes a exploiter ,pour diverses applications dans la vie de tous les jours.


1° Création de fichiers avec extension ou pas.Y a t'il une bibliothèque native en …

[ Lecture complète ]
VB 2005 express

Mar 6 Fév - 17:02 par christian80.1951

Bonjours a tous,
J'utilise vb 2005 express.
dans la form1.vb[design] je créer une listebox .
Lorsque je veux la positionner dans cette form , lors de son déplacement avec la souris ma listbox devient invisible,
ce qui rend son positionnement mal-aisé.
Ce phénomène se produit aléatoirement ! ( certainement une mauvaise manip ) et cet état persiste dans le projet.
J'espère être compréhensible.


[ Lecture complète ]
Création d'un raccourci sur le Bureau pour son Application

Mar 10 Oct - 18:49 par IFFIC

Bonsoir à tous, ou Bonjour s'il est plus tôt qu'à cette heure,
Je ne suis pas passé bien souvent par ici, car j'étais pris sur un gros projet depuis voici un peu plus d'un an.

Au bénéfice de bidouilles trouvées dans mes travaux, je vous livre celle-ci:
Car il est bien confortable de n'avoir pas à fouiller dans l'arborescence d'un disque externe ou une clé USB, voire en ayant changé de …

[ Lecture complète ]
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 ]
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 ]

connexion string et xml

Partagez
avatar
pacpac

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

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 : 2048
Date d'inscription : 24/05/2013
Age : 42

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 : 42

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 Mar 17 Juil - 7:53