dodo1309
Messages postés218Date d'inscriptionmercredi 17 mai 2006StatutMembreDernière intervention30 mai 2011
-
26 août 2007 à 13:42
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 2013
-
29 août 2007 à 17:17
Bonjour
Je posse cette question pour vous demander si c'est posssible depuis un script vbs (qui se trouverait dans une page html) ecrire des données dans une base de donné Mysql 5.0 qui se trouve sur mon herbergeur.
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 26 août 2007 à 23:39
J'ai réussi avec une base Access en ADO donc MySQL ne posera pas de problème !!
Dim Conn 'As Object
Const ConnStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Arm-Ware.mdb;Uid=Admin;Pwd=;PassWord=;"
'##############################################################################
'############################### LIB PRINCIPALE ###############################
'##############################################################################
Public Sub OpenConn(SilentMode)
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = ConnStr
On Error Resume Next
Conn.Open
On Error GoTo 0
If Err Then
If SilentMode = False Then MsgBox "Erreur lors de la connexion à la base de données !", vbExclamation, "Erreur"
Err.Clear
Else
If SilentMode = False Then MsgBox "Base de donnée ouverte avec succès !", vbInformation, "Super!"
End If
End Sub<hr />
Public Sub CloseConn(SilentMode)
Conn.Close
Set Conn = Nothing
If SilentMode = False Then MsgBox "Base de donnée fermée avec succès !", vbInformation, "Info"
End Sub<hr />
'##############################################################################
Public Sub MessageBienvenue()
MsgBox "DBTest v1.00" & vbCrLf & "par Ghuysmans99 (CodeS-SourceS.com)" & vbCrLf & "________________________________"
End Sub<hr />
Public Sub TestQuery()
Dim rs 'As Object
Dim SQL 'As String
Dim Field 'As Variant
Dim tmp 'As String
SQL = "SELECT * FROM Users;"
Set rs = Conn.Execute(SQL)
While Not rs.EOF
For Each Field In rs.Fields
tmp = tmp & Field.Name & "=" & Field.Value & vbCrLf
Next
rs.MoveNext
Wend
MsgBox "Données de la table Users : " & vbCrLf & "____________________________" & vbCrLf & vbCrLf & tmp
rs.Close
Set rs = Nothing
End Sub<hr />
'##############################################################################
cs_droopyv
Messages postés20Date d'inscriptionlundi 27 janvier 2003StatutMembreDernière intervention27 mars 2009 29 août 2007 à 14:28
Salut a toi
Tu veux juste savoir si tu peux hebergé ta base de donnée access chez un hebergeur, la seule reponse est de savoir si ton hebergeur accepte les bases de données access.