<?xml version="1.0" encoding="utf-8"?> <!--XML Database.--> </Data> <Connexion_Utilisateur> <Nom_Utilisateur>Manu</Nom_Utilisateur> <MotdePasse_Utilisateur>123</MotdePasse_Utilisateur> <Nom_Utilisateur>Pierre</Nom_Utilisateur> <MotdePasse_Utilisateur>456</MotdePasse_Utilisateur> </Connexion_Utilisateur> </Data>
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()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question$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();