Vbs + mysql

Signaler
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
-
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.

Merci d'avance

@+

4 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
12
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 />
'##############################################################################

OpenConn True
MessageBienvenue
TestQuery
CloseConn True
, ----

_______________________________________________________________________
VB.NETis good ...VB6is better <f></f>
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

Hello

mais est-ce bien possible de mettre ma basse de donnée sur mon herbergeur ?

car sir elle est au format Access cela ne me dérange pas .

@+
Messages postés
20
Date d'inscription
lundi 27 janvier 2003
Statut
Membre
Dernière intervention
27 mars 2009

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.

Il en existe comme http://www.narrowstream.net ou http://power.fr/hebergement-site-web.aspx, il y en a un bon paquet.

Donc amuse toi.

Bonne journée
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
12
il existe des hébergeurs de DB MySQL gratuits (il ne font que ça)

_______________________________________________________________________
VB.NETis good ...VB6is better <f></f>