IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Inserer des valeurs de type null, integer, varchar dans MySQl DB via VBA


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2013
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2013
    Messages : 61
    Par défaut Inserer des valeurs de type null, integer, varchar dans MySQl DB via VBA
    Bonjour a tous,

    J'ai des valeurs dans une feuille excel qui peuvent etre soit integer, varchar ou null. Lorsque j'essaye d'executer ma procedure je recois une erreur (ci-dessous).
    J'ai suivi les instruction du tutoriel de Sébastien Curutchet mais je bute sur quelque chose ... Si vous avez une idee, merci de votre aide. Ou peut etre une meilleur solution que ce que j'utilise.
    http://drq.developpez.com/vb/tutoriels/ADO/

    Voici mon code:
    Ma fonction pour se connecter a la base de donnee
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
     
    Public Function mysqlConn() As ADODB.Connection
        Dim connstring As String
        Dim conn As New ADODB.Connection
        dbsvr = Worksheets("Input").Range("_server").Value
        database = Worksheets("Input").Range("_database").Value
        dbuser = Worksheets("Input").Range("_dbuser").Value
        dbpw = Worksheets("Input").Range("_dbpw").Value
     
         connstring = "Driver={MySQL ODBC 5.2 ANSI Driver};" _
            & "SERVER=" & dbsvr & ";" _
            & "DATABASE=" & database & ";" _
            & "UID=" & dbuser & "" _
            & ";PWD=" & dbpw & " " _
            & "; OPTION=16427;"
     
                conn.Open connstring
                Set mysqlConn = conn
     
    End Function
    Mon code pour inserer dans la table SQL
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    Sub UtilisationCommand()
     
    Dim cnx As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim prm1 As ADODB.Parameter
    Dim rst As ADODB.Recordset
     
    Set cnx = New ADODB.Connection
    Set cmd = New ADODB.Command
    Set prm1 = New ADODB.Parameter
    Set rst = New ADODB.Recordset
     
    Set cnx = mysqlConn()
     
    cmd.CommandText = "INSERT INTO product (setting, type ) VALUES (? , ?)"
     
    With Feuil1
    ‘ VALEUR setting peut etre null ou un INTEGER
    	prm1.Name = "setting"
    	prm1.Value = .cells(1,2)
     
    ‘ VALEUR type peut etre null ou un VARCHAR
    	prm1.Name = "type"
    	prm1.Value = .cells(1,3)
    End With 
     
    cmd.Execute
     
    End Sub
    Et voici le message d'erreur que je recois:
    Nom : Capture.JPG
Affichages : 192
Taille : 20,4 Ko

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     Sub UtilisationCommand()
    Dim cmd As New ADODB.Command
    Set cmd.ActiveConnection = mysqlConn()

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2013
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2013
    Messages : 61
    Par défaut
    Bonjour,

    Merci ca marche parfaitement.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Inserer des valeurs dans une cellule
    Par azerty53 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 29/09/2006, 16h27
  2. Probleme pour inserer des donnees de type INTERVAL DAY
    Par JUSTIN Loïc dans le forum Oracle
    Réponses: 1
    Dernier message: 01/09/2006, 09h29
  3. stocker des valeurs de type différent
    Par jakouz dans le forum Langage
    Réponses: 3
    Dernier message: 28/11/2005, 09h36
  4. [Conception] inserer des valeurs provenant d'une liste multiple
    Par digger dans le forum PHP & Base de données
    Réponses: 10
    Dernier message: 24/11/2005, 17h35
  5. Comment inserer des donnee de type Large Object !!
    Par josoft dans le forum Requêtes
    Réponses: 4
    Dernier message: 20/07/2003, 11h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo