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 :

recordset vb6 et access


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Mai 2008
    Messages
    111
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 111
    Par défaut
    j'ai des problemes de connexion avc mon programme
    je travail avc vb6 et access 2003

    voici le code de ma feuille de demarrage ,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
     
    Public cnx As ADODB.Connection
    Public rst As ADODB.Recordset
    Public cmd As ADODB.Command
    Public tt As String
     
     
    Private Sub main()
     Set cnx = New ADODB.Connection
     Set rst = New ADODB.Recordset
     cnx.ConnectionString = "DSN=inscription"
     frmconnection.Show
    End Sub
    voici le code de la feuille frmconnection.show

    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
     
     
    Private Sub cmdannuler_Click()
      txtcompte = ""
      txtmotdepasse = ""
    End Sub
     
    Private Sub cmdconnecter_Click()
     
       If optiontypecompte(0).Value = True Then
         nomtype = "administrateur"
       Else
         If optiontypecompte(1).Value = True Then
         nomtype = "utilisateur"
         End If
      End If
     
    cnx.Open
    tt = "select * from COMPTES where Compteutilisateur = ' " & Trim(txtcompte.Text) & " ' and Motdepasse= ' " & Trim(txtmotdepasse.Text) & " ' "
    Set rst = cnx.Execute(tt)
     
    If (Not rs.EOF) Then
      MDIgestioninscription.Show
    Else
      MsgBox (" vous n'avez pas entrer les bons parametres de connection !")
    End If
    cnx.Close
     
    End Sub
     
    Private Sub Form_Load()
     
    End Sub
    voici la requete de creation de ma table COMPTES
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
     
      create table COMPTES (
         N°compte integer ,
         Compteutilisateur varchar (50),
         Motdepasseutilisateur varchar (50),
         Question varchar(100),
         Reponse varchar(100),
         Typecompte varchar(50),
         primary key (N°compte) )
    voila j'ai tout ls problemes du mon avc ce bout de code !!!
    i need help

    erreur d'execution'-2147217904(80040e10)':
    [Microsoft][Pilote ODBC Microsoft Access] trop de parametres. 1
    attendu.
    en fait c l'erreur qui s'afffiche a chaque fois

  2. #2
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 132
    Par défaut
    Pas de reponse, mais peux tu nous signaler sur quelle ligne se produit l'erreur (mode debug F8), merci

    Motif de l'edit:
    Que devient le post connexion access 2003 et visual basic 6 ?

    Puisque tu as mis en ton post connexion access 2003 et visual basic 6, celui ci n'est il pas lui aussi resolu ?
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

Discussions similaires

  1. Vb6 Ado Access : Probleme Recordset
    Par visualnotbasic dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 27/02/2007, 19h34
  2. Requete avec recordset ADODB vb6 et Access 2000 (jet 4.0)
    Par mathieuleclerc dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 22/09/2006, 10h54
  3. [VB6] Automation Access
    Par Invité dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 05/04/2006, 12h02
  4. [vb6 et access] problème de modification de contenu de champ
    Par dj_tess dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 22/12/2005, 19h26
  5. [VB6] [ADO] [Access] Changer le mot de passe
    Par dlpxlid dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 03/03/2003, 09h45

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