Discussion :

[fouf_01]

a tous pb je dev sous vb6 il me dit "erreur de compilation:Méthode ou membre de données introuvable"

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
Private Sub supprimer_Click()

Set Rsmachine = New Recordset
Set Rsalerte = New Recordset
With Rsmachine
.ActiveConnection = MaConnexion
.Open "delete * from immatriculation where immatriculation=" & Label16.Caption
End With
With Rsalerte
.ActiveConnection = MaConnexion
.Open "delete * from Alerte where N°immatriculation" & Label16.Caption
End With

MsgBox ("Suppression effectué")

l_client.Clear
    imma.Text = ""
    genre.Text = ""
    serie.Text = ""
    marque.Text = ""
    model.Text = ""
    carbu.Text = ""
    mcircu.Text = ""
    grise.Text = ""
    visite.Text = ""
    service.Text = ""
    responsable.Text = ""
    symptomes.Text = ""
    control.Text = ""
End Sub

il me surligne ".caption" dans le with Rsmachine merci

[ironik]

bonjour,

Déjà à ta place je préciserai de quelle Dll vient le recordset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim RsMachine as ADODB.Recordset
set RsMachine= New ADODB.recordset

Essaie comme ca ^^

[Theocourant]

Salut,

Juste en regardant rapidement, tu dois avoir une autre erreur sur cette ligne (correction en rouge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Open "delete * from Alerte where N°immatriculation=" & Label16.Caption

+

Théo

[AdHoc]

Essayes d'isoler le problème en passant par des variables string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim sMonImmatriculation as string
Dim sMaRequete as string
...
sMonImmatriculation = Label16.Caption
sMaRequete = "delete * from immatriculation where immatriculation=" & sMonImmatriculation
With Rsmachine
<div style="margin-left:40px">.ActiveConnection = MaConnexion
.Open  sMaRequete </div>End With

[fouf_01]

non rien ne fonctionne la methode d'isolation me fait exactement le meme pb merci de vous pencher sur mon probleme

[alys56]

si tu mets un "+" à la place du "&" ??? (et mets le dans une variable string en même temps)
moi je mets toujours des + c'est pour ça sinon je sais pas du tout!

[SfJ5Rpw8]

non rien ne fonctionne la methode d'isolation me fait exactement le meme pb merci de vous pencher sur mon probleme

sur qu'elle ligne, il y en a 2 maintenant

[méphistopheles]

si tu mets un "+" à la place du "&" ??? (et mets le dans une variable string en même temps)
moi je mets toujours des + c'est pour ça sinon je sais pas du tout!

pour les manipulations de strings, le & est préférable.

sinon, l'erreur ressemble à un truc qui s'appelle label 16 (peut-être une variable ou une fonction) et qui n'esn est pas un.

vérifie ce que c'est.

[ThierryAIM]

si tu mets un "+" à la place du "&" ??? (et mets le dans une variable string en même temps)
moi je mets toujours des + c'est pour ça sinon je sais pas du tout!

et bien, ca doit etre chouette si tu programmes en VB6, et que, comme tous les débutants, tu oublies la moitié des déclarations de variables

L'opérateur de concaténation en VB6 est &, alors ne pas tenir compte, svp, des remarques inutiles de alys

>> fouf : tu es vraiment sûr que c'est le label16.caption qui provoque l'erreur ?

j'ai des doute, ou alors ce controle n'existe pas !

Sans vouloir epiloguer sur un Recordeset.Open pour une requete Delete ....

[ironik]

tu as bien spécifier la dll du recordset?
PArceque perso j'ai obtenu énormément d'erreur de ce genre parceque je ne spécifiais pas la dll d'ou provenait l'objet...

[ironik]

Sinon essaie sans le with J'ai eu des erreurs bizarres aussi avec ca! lol

[AdHoc]

bonjour,

exactement le meme pb

Oui, mais il a peut etre changer de ligne ?
Une des questions est de savoir si tu plante sur label.caption ou sur la méthode open.

[ironik]

Je ne vois pas pourquoi il planterait sur label.caption??
C'est bizarre quand meme ^^

[méphistopheles]

pour que ça plante, il faut que label16 ne soit pas un label(ou n'existe plus), ou qu'il ne soit pas un composant installé (mais alors là, je veux savoir comment t'a fait ).

[Theocourant]

méphistopheles : J'ajouterais aussi comme possibilité que le label a été renommé après avoir fait le code ...

[ThierryAIM]

Au lieu de vous torturer l'esprit à jouer aux devinettes, attendez donc le retour du posteur initial (s'il revient )
Il a déjà pas mal de pistes et d'infos, à lui de se manifester

[méphistopheles]

méphistopheles : J'ajouterais aussi comme possibilité que le label a été renommé après avoir fait le code ...

non car dans ce cas, il devrais mettre

ereur d'execution "424" :

un objet est requis

[fouf_01]

Le label existe bien dans mon form je ve suprimer une ligne de ma base, j'ai trouver le code d'un projet sur le net le code fonctionne bien sur l'apli télécharger mais sur le mien non dommage.
dans le form j'ai une case recherche ou je saisi l'immatriculation rechercher le bouton recherche,PLUSIEUR cases ou l'on retrouve les info de la base avez vous des solutions pour effacer les info afficher

[fouf_01]

il porte bien le nom label16

[fouf_01]

en gros comment suprimer juste les infos afficher car quand je suprime

avant

.Open "delete * from immatriculation where immatriculation=" & Label16.Caption

apres

.Open "delete * from immatriculation where immatriculation"

il me suprime toute les ligne de ma table