Base de données sur serveurRésolu

Question

Bonjour, 
Je cherche un moyen d'enregistrer les utilisations d'un logiciel VB6 dans une "DB" sur mon serveur.
Un simple fichier texte auquel j'ajouterais un enregistrement à chaque utilisation suffirait, mais il implique de télécharger le fichier sur le PC de l'utilisateur, ajouter une ligne, puis l'uploader à nouveau, mais ce fichier risque de devenir volumineux.
L'accès à MySql via VB6 convient aussi mais implique d'installer une DLL sur le PC de chaque utilisateur, trop fastidieux.
Je cherche donc une autre idée simple.
Merci d'avance pour vos réponses

ManuAntibes · Answer

salut je te conseil d'utiliser les fichiers XML, qui ne demande aucune installation. ton fichier XML serait un peu comme ça: Manu 123 Pierre 456 après tu pourras crypté les données afin de ne pas voir les nom et les mots de passes. A+

Herve_be · Answer

Merci pour ta réponse, mais je ne vois pas comment je pourrais ensuite ajouter un 2ème, 3ème, ... utilisateur dans le même fichier.
Je pense que, comme un simple fichier txt je devrais le télécharger, l'ouvrir en append, ajouter un utilisateur et l'uploader à nouveau non ?
Je cherche un moyen d'ajouter une ligne ou un record à un fichier se trouvant sur le serveur en le laissant sur le serveur.

ManuAntibes · Answer

voici le code que j'utilise pour  ajouter

Private XmlDatabasedata_xmlConnexion As String = My.Application.Info.DirectoryPath  "\xml_Connexion.xml"

Try
                If My.Computer.FileSystem.FileExists(XmlDatabasedata_xmlConnexion) = True Then
                    XmlDataSet.ReadXml(XmlDatabasedata_xmlConnexion)
                End If
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Connexion au donnée XmlConnexion")
            End Try

Try
                Dim newCustomersRow As DataRow = XmlDataSet.Tables("Connexion_Utilisateur").NewRow()
                newCustomersRow("Nom_Utilisateur") = "Manu"
                newCustomersRow("MotdePasse_Utilisateur") = "123"

XmlDataSet.Tables("Connexion_Utilisateur").Rows.Add(newCustomersRow)
                XmlDataSet.WriteXml(XmlDatabasedata_xmlConnexion)

MsgBox("Connexion bien passé ...")
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Connexion au donnée ")
            End Try
            XmlDataSet.Clear()


et si le fichier n'existe pas il ce créer tout seul...

Herve_be · Answer

Et tu ne dois rien déclarer comme ressource VB6 ou DLL ou autre ?
Je ne comprends pas où est le lien avec le serveur, je ne vois par exemple pas d'URL.
Je ne vois pas non plus comment exploiter le fichier XML.

J'ai pensé à une solution qui n'est pas très élégante mais ferait ce que je veux.
Chaque fois que je veux ajouter un enregistrement VB6 crée un fichier txt sur le PC de l'utilisateur, upload du fichier sur  le serveur puis détruit le fichier txt; je me retrouve avec une foule de petits fichiers inexploitables directement.
D'autre part je crée un script php qui retrouve ces fichiers et crée un record MySql pour chacun d'eux en détruisant les fichiers txt au fur et à mesure.
Toutes les données sont alors exploitables en MySql.

Herve_be · Answer

Bonjour,
J'ai mis peu de temps à écrire la solution que j'avais envisagée; quelques détails pour info :

Le programme VB6 crée un fichier texte sur le PC de l'utilisateur;
je m'arrange pour que le nom du fichier soit unique;
le fichier contient une seule ligne reprenant les données statistiques;
le fichier est uploadé sur le serveur avec WinInet puis détruit.
Je vous passe le code VB6 tellement c'est simple (Open, Print, Close, Inet.Execute , "PUT ", Inet.Execute , "CLOSE", Kill).

Quand je veux exploiter les données, je fais tourner un script php qui, pour chaque fichier, crée un enregistrement en MySql puis détruit le fichier.
Bien que nous soyons dans la section VB6 et non php voici le code au cas où vous auriez une remarque; pour simplifier je n'ai pas indiqué les messages après "die"
   $db = mysql_connect(*****,*****,*****);mysql_select_db(*****,$db)  or die;$dir = opendir("Usage");while($file = readdir($dir))	{	$myfile = fopen("Usage/".$file, "r") or die;	$Record = fgets($myfile);Je vous passe le décorticage du record	mysql_query("INSERT INTO RVRTlog (Version, Timestamp, Module, Userid) VALUES ('$Version', '$Timestamp', '$Module', '$Userid')") or die;	unlink("Usage/".$file);	}mysql_close(); 
J'ai donc in fine une seule table MySql qui contient toutes les données que je peux exploiter à ma guise; je peux par exemple la télécharger en Excel (.csv) directement à partir du serveur.

Base de données sur serveur

5 réponses

Votre réponse

Discussions similaires