VB6+access 2003

J'ai programmé ma base de donnée sur VB6 et access 2003,
J'ai fait que les tables sur Access et j'ai fait la connection avec VB6 dans lequel j'ai fait les interfaces ...
Je suis mtn dans l'etape a programmer mes boutons ...Mais j'ai trouvé une difficulté dans les boutons ajouter et supprimer eleve(car c'est une base de donnée d'un lycée )
Je veux tout d'abord voir si quelqu'un peut m'aider sur le bouton ajouter...

c'est un ''projet de donné'' (donc DataEnvironment1.Recordsets. ne fonctionne pas )
voici mon essai


Private Sub cmdajouter_Click()
Dim con As New Connection
Dim cmd As New Command
Dim rs As Recordset
Dim strcosy As String
Dim btri As Boolean
' * Variables locales *
Dim intID_élève As Integer
Dim strnom As String
Dim strprenom As String
Dim strsexe As String
Dim strdate_de_naissance As String
Dim inttelephone As Integer
Dim strétat_élève As String
Dim strannée As Integer
' Initialisation de la saisie
strID_élève = UCase(Trim(txtID_élève.Text))
strnom = UCase(Trim(txtnom.Text))
strprenom = UCase(Trim(txtprenom.Text))
strsexe = UCase(Trim(txtsexe.Text))
strdate_de_naissance = UCase(Trim(txtdate_de_naissance.Text))
strtelephone = UCase(Trim(txttelephone.Text))
strétat_élève = UCase(Trim(txtétat_élève.Text))
strannée = UCase(Trim(txtannée.Text))
' * Initialisation de la commande
strQuery = "INSERT INTO Acteur (ID_ELEVE,NOM,PRENOM,SEXE,DATE_DE_NAISSANCE,TELEPHONE,E_EMAIL,ETAT_ELEVE,ANNEE) VALUES('%','$','?','^','(','*','²','<','!')"

' Finitialisation de la requête

strQuery = Replace(strQuery, "%", strID_élève, 1, , vbTextCompare)
strQuery = Replace(strQuery, "$", strnom, 1, , vbTextCompare)
strQuery = Replace(strQuery, "?", strprenom, 1, , vbTextCompare)
strQuery = Replace(strQuery, "^", strsexe, 1, , vbTextCompare)
strQuery = Replace(strQuery, "(", strdate_de_naissance, 1, , vbTextCompare)
strQuery = Replace(strQuery, "*", strtelephone, 1, , vbTextCompare)
strQuery = Replace(strQuery, "<", strétat_élève, 1, , vbTextCompare)
strQuery = Replace(strQuery, "!", strannée, 1, , vbTextCompare)
' Demande de confirmation de l'ajout d'un éleve
intResult = MsgBox("Voulez-vous ajouter l'eleve? : " & vbCrLf & _
strprenom & " " & strnom & vbCrLf & _
"à la table des éleves.", vbOKCancel, "Ajout d'un eleve")

' Si confirmation ALORS
If (intResult = vbOK) Then
' Initialisation de la commande
cmd.CommandText = strQuery

' Execution de la commande
Set rs = cmd.Execute
' Libération des ressources
Set rs = Nothing
End If
' Reset des valeurs
bSelect = False ' Annulation de la selection
strKeySelect = ""
txtnom.Text = ""
txtID_élève = ""

txtprenom = ""
txtsexe = ""
txtdate_de_naissance = ""
txttelephone = ""
txtétat_élève = ""
txtannée = ""

txtSearch.Text = txtSearch.Text & " " ' Annulation zone de recherche
txtSearch.Text = Trim(txtSearch.Text)

' Repositionne le focus sur la zone de recherche
txtSearch.SetFocus

End Sub

Salut NISHYN.
Je suis entrain de comprendre le probleme mais hopp une question me parvient dans la tête
Puisque tu as travaillé la BD avec Acces, pourquoi ne pas aussi faire l'interface avec Access ? Ça sera plus facile et plus efficace je pense.

UUUh c'est une grande hystoire !!!
J'ai essayé de le faire mais j'ai aimé de le faire avec VB pour qu'il ne soit pas classique.
J'ai fait ce projet 3 fois avec trois methodes differentes .Chaque fois je me trouve devant un mur!!
par exemple pour cette Episote3 il me reste que ces 3 boutons j'ai fait tout ...
Mais je pense que je vai refaire le travail une autre fois avec une autre methode
OOOh je suis fatigué de ce projet variment en ai besion d'un encadreur aumoin pour nous aider aumoin dans nos premiers pas

Je pense que c'est OK sauf :

"Dim btri As Boolean" alors que "bSelect = False".

et je ne comprends pas ces deux lignes :
txtSearch.Text = txtSearch.Text & " " ' Annulation zone de recherche
txtSearch.Text = Trim(txtSearch.Text)

As tu essayer ce code ?

En fait j'ai eu un code du help VB j'ai copris l'esprit de ce code et je'ai chagé ces parametres.J'ai pas d'autre choix en fait je vai plus lire tout un livre pour faire quelques codes

"Dim btri As Boolean" alors que "bSelect = False". hmmm vous avez raison j'ai pas vu !!

j'ai changé btri par bSelect et il m'a donné cette erreur :
Methode ou membre de donné introuvable

pour le dernier code je pense que ce n'est qu'une option



Concernant l'erreur il a selectionné ceci Initialisation de la saisie
strID_élève = UCase(Trim(txtID_élève.Text))
strnom = UCase(Trim(txtnom.Text))
strprenom = UCase(Trim(txtprenom.Text))
strsexe = UCase(Trim(txtsexe.Text))
strdate_de_naissance = UCase(Trim(txtdate_de_naissance.Text))
strtelephone = UCase(Trim(txttelephone.Text))
strétat_élève = UCase(Trim(txtétat_élève.Text))
strannée = UCase(Trim(txtannée.Text))


Oh lala je pense que c'est tres compliqué
On laisse ca nchaellah pour une autre fois si tu veux? ...Je pense qu'on ai fatigué tout les deux mtn c'est 3h de matin
Merci Ala pour ton aide

Oui j'allais te demander la signification de ces deux lignes :
Dim con As New Connection
Dim cmd As New Command

Je crois que le probleme viens de la.
Les types de variable "Connection" et "Command" sont des types construit par un programmateur (ils ne sont pas propre au VB) donc tu dois avoir leurs définition dans un module BAS.

Entre temps, je te conseille de jeter un coup d'œil sur VBfrance et particulièrement sur ces deux codes :
1 - 2

(Je suis "tu" non pas "vous" )

EDIT
OK , To be continued (Bonne nuit)

ça marche pas avec les deux codes, il n'ont pas le meme objectif que la mienne...
en fait je veux juste ajouter le nom le preneom etc... non pas un autre tables sur access.l'autre code aussi me prorose des noms à choisir non pas d'ajouter un autre champ contenant le nom de l'eleve et et et... :-(

En fait des deux lignes ce n'est que:
Dim CON As New Connection ==> Connexion au moteur ADO(ActiveX Data Objects)

Dim CMD As New Command ==>Commande pour le moteur ADO

Lorsque on ajoute un Data Environnement (environnement de base de données) à un projet, Visual Basic crée automatiquement un objet "Connection ADO", dont les propriétés, Nom, Type de base de données, droits d'accès,etc... peuvent être définis de manière similaire à celle d'un contrôle.

(oups je me suis trompée une autre fois...:s)

EDIT: je vais etre en courant le plut tot que possible car je rentre aujourd'hui nchaellah à Sousse et demain je serais au centre de Laouina pour le TP

Oui tu as raison a propos des deux premieres instruction (ADO).
Chaque jour on apprend une nouvelle chose

NISHYN a écrit:pour le dernier code je pense que ce n'est qu'une option

Concernant l'erreur il a selectionné ceci Initialisation de la saisie
strID_élève = UCase(Trim(txtID_élève.Text))

Pour les deux dernière lignes elle doivent servir a vider la case recherche mais je ne voix pas qu'elle le face vraiment.
La 1ere instuction ajoute un charactere espace a la fin du string.
La 2eme enleve les characteres espace a l'aide de la fonction Trim.

Concernant l'erreur, as tu crée un zone de texte (TextBox) nommée "txtID_élève" ?
C'est normalement la zone ou tu va mettre l'ID de l'eleve que tu veut ajouter a la base.

Bon, je ne suis pas familier avec VB que je n'aime pas et que je n'ai jamais utilise, mais le code est facilement comprehensible. La premiere chose qui me vient a l'esprit en lisant ce code est : Est ce normale en VB d'utiliser des noms de variables avec accent : comme strID_élève, strannée et strétat_élève ?
Dans les langages que je connais, c'est anormal, je ne sais pas si c'est le cas concernant VB.

Good catch I didn't notice that
But I think it works..

Etrange ... Si c'est le cas, VB ne fait pas preuve d'un langage de programmation respectable :-)
Reste a dire, que cela m'est vraiment etrange qu'il accepte des noms de variables avec accents :-S !

[b]M-Theory[/b] a écrit:
Est ce normale en VB d'utiliser des noms de variables avec accent : comme strID_élève, strannée et strétat_élève ?

Etrange ... Si c'est le cas, VB ne fait pas preuve d'un langage de programmation respectable :-)
Reste a dire, que cela m'est vraiment etrange qu'il accepte des noms de variables avec accents :-S !

Oui le VB accepte le accents...Dieu merci sinon tout ce que je suis entrain de faire sera perdu ...

A.BenRhouma a écrit:
La 1ere instuction ajoute un charactere espace a la fin du string.
La 2eme enleve les characteres espace a l'aide de la fonction Trim.
Concernant l'erreur, as tu crée un zone de texte (TextBox) nommée "txtID_élève" ?
C'est normalement la zone ou tu va mettre l'ID de l'eleve que tu veut ajouter a la base.

Oui j'ai fait tout ça et le nom dans le text box est txtID_élève ...mais j'ai essayé de changer le .text par
strID_élève = UCase(Trim("txtID_élève"))
et le txtID_élève.Text = "" aussi avec les autres variables ....
il a dépassé enfin cet erreur...
Et il est arrivé a une autre erreur ...

Le message d'erreur: Impossible d'utilisé cette connection pour effectuer cette operation
elle est fermé ou non valide dans ce contexte

Apres débogage il me dit Set rs = cmd.Execute...



OK it will be continued...

NISHYN, peux tu m'envoyer les fichier ?

Entre temps, je trouve ce petit tutoriel et j'espère qu'il va t'aider : ici

salut NISHIN,
Tu as de la chance, car j'ai fait le projet de l'année dernière avec VB6 et Access2003.
D'aprés les instructions que tu as mis, je vois que tu as compliqué le code.
je te donne la solution complete et simple" (ajouter,modifier,supprimer,enregistrer,rechercher..) , mais , je te conseille de me contacter directement en école pour te donner un exemple et des documents .

Bien Hassene

Salam!!!

A.BenRhouma a écrit:NISHYN, peux tu m'envoyer les fichier ?

Entre temps, je trouve ce petit tutoriel et j'espère qu'il va t'aider : ici

ohhh A.BenRhouma !! j'ai rien compris
En fait je sais pas quand on ait besoin de tels connections ...Je le trouve tres compliqué!!!
Je vais te donner mes fichiers mais est ce que vous avez le VB6 ?

hassene tekaya a écrit:
Tu as de la chance, car j'ai fait le projet de l'année dernière avec VB6 et Access2003.
D'aprés les instructions que tu as mis, je vois que tu as compliqué le code.
je te donne la solution complete et simple" (ajouter,modifier,supprimer,enregistrer,rechercher..) , mais , je te conseille de me contacter directement en école pour te donner un exemple et des documents .

Oui moi aussi je pense que j'ai beaucoup compliqué le code mais que dois je faire ??c'est pas facile de tout le VB pour une débutante
En tout cas Hassene, je vais te contacter nchaellah le Mardi, j'ai une amie qui te connait...


Merci à tous !!! .

Ok,
Et tu vas voir , q'avec Visual basic , tout est facile.

Oui NISHYN J'ai le VB6.
Envois moi les fichier a mon @ MSN.

Ohh merci nchaellah ...