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

VB 6 et antérieur Discussion :

movenext avec mysql et vb6


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Février 2005
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 49
    Par défaut movenext avec mysql et vb6
    Voila je commence à developper un projet de gestion à l aide de mysql et de vb6.

    j'arrive à me connecter à mysql mais dès que j'envois un movenext ca plante je comprends pas.

    ca me donne comme erreur
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    erreur d'execution '424' un objet est requis
    je laisse le code :

    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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    Private Sub Command1_Click()
     
     
    If rsfournisseurs.EOF = True Then
    Else
    rsfournisseurs.MoveNext
    End If
    End Sub
     
     
    Private Sub Form_Load()
    Dim cnx As ADODB.Connection
     
    Set cnx = New ADODB.Connection
    Set rsfournisseurs = New ADODB.Recordset
    Set rscontacts = New ADODB.Recordset
     
     
    'Connexion à la base de données
    cnx.CursorLocation = adUseClient
    cnx.Open "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE= sculfort;SERVER= 10.0.0.50 ;UID=root;password=;PORT=;SOCKET=;OPTION=0;STMT=;"
    rsfournisseurs.Open "SELECT * FROM fournisseurs", cnx
    rscontacts.Open "SELECT * FROM contacts where id_fournisseur='" & rsfournisseurs("id_fournisseur") & "'", cnx
    rsfournisseurs.MoveFirst
     
     
    Label4.Caption = "Fiche fournisseurs pour : " & rsfournisseurs("nom_fournisseur")
     
    Set DBCombo1.DataSource = rsfournisseurs
    DBCombo1.ListField = rsfournisseurs("nom_fournisseur")
    txtnomfour.Text = rsfournisseurs("nom_fournisseur")
    txtadressel1.Text = rsfournisseurs("adresse")
    'txtadressel2.Text = rsfournisseurs("adresse_ligne2")
    txtcdepostal.Text = rsfournisseurs("cdepostal")
    txtville.Text = rsfournisseurs("ville")
    txtpays.Text = rsfournisseurs("pays")
    txttel.Text = rsfournisseurs("telephone")
    txtfax.Text = rsfournisseurs("telecopie")
     
    MSHFlexGrid1.Clear
    Set MSHFlexGrid1.DataSource = rsfournisseurs
    Set MSHFlexGrid2.DataSource = rscontacts
    End Sub
    et comme référence j'ai choisi comme dans les tutoriaux : Microsoft active X data object 2,7 library

    Qqun pourrait il me dire d'ou vient mon problème ?
    Merci bcp
    ByPBop

  2. #2
    Membre éprouvé Avatar de Le Pharaon
    Profil pro
    Inscrit en
    Mai 2004
    Messages
    880
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2004
    Messages : 880
    Par défaut
    Où est ce que tu a déclaré la variable rsfournisseurs ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    dim rsfournisseurs  as ADODB.Recordset

  3. #3
    Expert éminent

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Octobre 2004
    Messages : 9 501
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub Command1_Click() 
     
     
    If rsfournisseurs.EOF = True Then 
    Else 
    rsfournisseurs.MoveNext 
    End If 
    End Sub
    Ici, rsforunisseurs n'est pas initialisé. Il n'est initialisé que dans le form_load, c'est une variable de la procédure form_load et donc, une fois que le form_load est fini, la variable est détruite.

    Il faut que tu déclares le recordset rsfournisseur en haut de module dans la partire déclaration, pour que toutes les procédures du formulaire puissent le voir

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Février 2005
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 49
    Par défaut
    ok j'ai bien compris
    j'ai utilisé la partie déclaration dans mon form
    merci
    cordialement
    bypbop

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

Discussions similaires

  1. erreur "ODBC 3146" avec Win7-64, VB6 et Mysql
    Par informa-tique dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 03/01/2012, 23h07
  2. pb format datetime avec mysql
    Par ms91fr dans le forum Bases de données
    Réponses: 2
    Dernier message: 07/12/2004, 14h12
  3. Help ODBC avec Mysql
    Par Ashura75013 dans le forum Bases de données
    Réponses: 3
    Dernier message: 17/02/2004, 08h11
  4. Probleme avec Mysql
    Par kevinss dans le forum Administration
    Réponses: 5
    Dernier message: 31/10/2003, 10h43
  5. Problème d'insertion avec MySQL
    Par Sonny dans le forum ASP
    Réponses: 13
    Dernier message: 28/08/2003, 13h52

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