Suppression d'enregistrements
Kotour
Messages postés
4
Date d'inscription
lundi 11 juin 2007
Statut
Membre
Dernière intervention
12 juin 2007
-
11 juin 2007 à 12:33
Kotour Messages postés 4 Date d'inscription lundi 11 juin 2007 Statut Membre Dernière intervention 12 juin 2007 - 12 juin 2007 à 15:19
Kotour Messages postés 4 Date d'inscription lundi 11 juin 2007 Statut Membre Dernière intervention 12 juin 2007 - 12 juin 2007 à 15:19
A voir également:
- Suppression d'enregistrements
- Suppression doublon sql - Forum SQL
- Script suppression imprimante ✓ - Forum Visual Basic 6
- Icone suppression ✓ - Forum Visual Basic 6
- Suppression des imprimantes locales en vbs ✓ - Forum Visual Basic 6
- Sql suppression doublon ✓ - Forum Visual Basic
7 réponses
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
11 juin 2007 à 12:52
11 juin 2007 à 12:52
Salut,
peux tu poster le code (la requete et plus) que tu as mis dans VB6 pour essayer ce DELETE.
@+: Ju£i?n
Pensez: Réponse acceptée
peux tu poster le code (la requete et plus) que tu as mis dans VB6 pour essayer ce DELETE.
@+: Ju£i?n
Pensez: Réponse acceptée
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
11 juin 2007 à 12:56
11 juin 2007 à 12:56
quelle fût ta requete ?
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Kotour
Messages postés
4
Date d'inscription
lundi 11 juin 2007
Statut
Membre
Dernière intervention
12 juin 2007
11 juin 2007 à 16:20
11 juin 2007 à 16:20
Ah merci, voici le code:
AU NIVEAU MODULE :<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
'LES CONNEXIONS POUR SUPPRESSION D'ENREGISTREMENTS
'Procédure commune pour chaque
Private Sub ConnectionToDelete(CnxD AsADODB.Connection, ComStrD As String)
Set CnxD = New ADODB.Connection
With CnxD
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "C:\My Documents\rsf\Initiations\project\stationsmcar\StationsMcar.mdb"
.Open
End With
CnxD.Execute ComStrD
End Sub
******
Les codes ci-dessous concernent des formulaires existants dont le second étant le (fameux) seul à faire marcher la commande.
'CategoriesAssainissements
Public Sub ConnectDelCategAssn(Crit As String)
Dim CnnTempstr As String
CnnTempstr " DELETE CategAssainissements.*, CategAssainissements.CodeAssain <gras>FROM CategAssainissements WHERE (((CategAssainissements.CodeAssain)</gras>" & Crit & "));"
Call ConnectionToDelete(ConnexDelCategAssn, CnnTempstr)
End Sub
'Stations
Public Sub ConnectDelSS(Crit As String)
Dim CnnTempstr As String
CnnTempstr " DELETE Stations.*, Stations.N°Ord <gras>FROM Stations WHERE (((Stations.N°Ord)</gras>" & Crit & "));"
Call ConnectionToDelete(ConnexDelSS, CnnTempstr)
End Sub
…
'Procédure de "Flags" pour savoir quel formulaire est chargé
Public Sub FindFlag()
Dim i As Integer
For i = 0 To 11
If FrmFlags(i) Then
Posn = i
GoTo Sort
Else
Posn = -1
End If
Next i
Sort:
End Sub
'Procédure de suppression d'enregistrement en cours
Public SubEnregSuppr(Posflag)
Dim Box, Box2, i As Integer
If Posflag = -1 Then
Box = MsgBox("Aucun formulaire n'est actif" & vbCrLf & "Veuillez ouvrir le formulaire concerné", vbCritical + vbOKOnly, "Absence d'objet")
Else
Box2 = MsgBox("Êtes-vous sûr(e) de vouloir supprimer l'enregistrement en cours" & vbCrLf & "de manière définitive ?", vbExclamation + vbOKCancel, "Suppression d'enregistrement")
End If
If Box2 = vbOK Then
If Posflag = 0 Then
RSAssn.Delete adAffectCurrent
ElseIf Posflag = 1 Then
If MsgBox("Cette action entraînera aussi la suppression des enregistrements des formulaires connexes." & vbCrLf & "de manière définitive. Voulez-vous continuer ?", vbExclamation + vbOKCancel, "Suppression") = vbOK Then
Call ConnectDelCategAssn(RsCategAssn.Fields("CodeAssain").Value)
End If
ElseIf Posflag = 2 Then
If MsgBox("Cette action entraînera la suppression des enregistrements des formulaires connexes." & vbCrLf & "de manière définitive. Voulez-vous continuer ?", vbExclamation + vbOKCancel, "Suppression") = vbOK Then
Call ConnectDelCategServ(RsCategServ.Fields("CodeServicing").Value)
End If
ElseIf Posflag = 3 Then
RsCuves.Delete adAffectCurrent
End if
…
End Sub
AU NIVEAU DU FORM MERE:
Private Sub Tbar_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Key = "Nouveau" Then
Call FindFlag
Call EnregNouv(Posn)
ElseIf Button.Key = "Supprimer" Then
Call FindFlag
Call EnregSuppr(Posn)
End If
End Sub
AU NIVEAU MODULE :<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
'LES CONNEXIONS POUR SUPPRESSION D'ENREGISTREMENTS
'Procédure commune pour chaque
Private Sub ConnectionToDelete(CnxD AsADODB.Connection, ComStrD As String)
Set CnxD = New ADODB.Connection
With CnxD
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "C:\My Documents\rsf\Initiations\project\stationsmcar\StationsMcar.mdb"
.Open
End With
CnxD.Execute ComStrD
End Sub
******
Les codes ci-dessous concernent des formulaires existants dont le second étant le (fameux) seul à faire marcher la commande.
'CategoriesAssainissements
Public Sub ConnectDelCategAssn(Crit As String)
Dim CnnTempstr As String
CnnTempstr " DELETE CategAssainissements.*, CategAssainissements.CodeAssain <gras>FROM CategAssainissements WHERE (((CategAssainissements.CodeAssain)</gras>" & Crit & "));"
Call ConnectionToDelete(ConnexDelCategAssn, CnnTempstr)
End Sub
'Stations
Public Sub ConnectDelSS(Crit As String)
Dim CnnTempstr As String
CnnTempstr " DELETE Stations.*, Stations.N°Ord <gras>FROM Stations WHERE (((Stations.N°Ord)</gras>" & Crit & "));"
Call ConnectionToDelete(ConnexDelSS, CnnTempstr)
End Sub
…
'Procédure de "Flags" pour savoir quel formulaire est chargé
Public Sub FindFlag()
Dim i As Integer
For i = 0 To 11
If FrmFlags(i) Then
Posn = i
GoTo Sort
Else
Posn = -1
End If
Next i
Sort:
End Sub
'Procédure de suppression d'enregistrement en cours
Public SubEnregSuppr(Posflag)
Dim Box, Box2, i As Integer
If Posflag = -1 Then
Box = MsgBox("Aucun formulaire n'est actif" & vbCrLf & "Veuillez ouvrir le formulaire concerné", vbCritical + vbOKOnly, "Absence d'objet")
Else
Box2 = MsgBox("Êtes-vous sûr(e) de vouloir supprimer l'enregistrement en cours" & vbCrLf & "de manière définitive ?", vbExclamation + vbOKCancel, "Suppression d'enregistrement")
End If
If Box2 = vbOK Then
If Posflag = 0 Then
RSAssn.Delete adAffectCurrent
ElseIf Posflag = 1 Then
If MsgBox("Cette action entraînera aussi la suppression des enregistrements des formulaires connexes." & vbCrLf & "de manière définitive. Voulez-vous continuer ?", vbExclamation + vbOKCancel, "Suppression") = vbOK Then
Call ConnectDelCategAssn(RsCategAssn.Fields("CodeAssain").Value)
End If
ElseIf Posflag = 2 Then
If MsgBox("Cette action entraînera la suppression des enregistrements des formulaires connexes." & vbCrLf & "de manière définitive. Voulez-vous continuer ?", vbExclamation + vbOKCancel, "Suppression") = vbOK Then
Call ConnectDelCategServ(RsCategServ.Fields("CodeServicing").Value)
End If
ElseIf Posflag = 3 Then
RsCuves.Delete adAffectCurrent
End if
…
End Sub
AU NIVEAU DU FORM MERE:
Private Sub Tbar_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Key = "Nouveau" Then
Call FindFlag
Call EnregNouv(Posn)
ElseIf Button.Key = "Supprimer" Then
Call FindFlag
Call EnregSuppr(Posn)
End If
End Sub
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
11 juin 2007 à 19:19
11 juin 2007 à 19:19
semble manquer des quotes autour de ton critère (qui n'est pas numérique)
CnnTempstr " DELETE CategAssainissements.*, CategAssainissements.CodeAssain <gras>FROM CategAssainissements WHERE (((CategAssainissements.CodeAssain)</gras>'" & Crit & "'));"
Renfield
Admin CodeS-SourceS- MVP Visual Basic
CnnTempstr " DELETE CategAssainissements.*, CategAssainissements.CodeAssain <gras>FROM CategAssainissements WHERE (((CategAssainissements.CodeAssain)</gras>'" & Crit & "'));"
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
11 juin 2007 à 19:21
11 juin 2007 à 19:21
il semble qu'il te manque des quotes autour de tes parametres de type string
CnnTempstr " DELETE CategAssainissements.*, CategAssainissements.CodeAssain <gras>FROM CategAssainissements WHERE (((CategAssainissements.CodeAssain)</gras>'" & Crit & "'));"
Renfield
Admin CodeS-SourceS- MVP Visual Basic
CnnTempstr " DELETE CategAssainissements.*, CategAssainissements.CodeAssain <gras>FROM CategAssainissements WHERE (((CategAssainissements.CodeAssain)</gras>'" & Crit & "'));"
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Kotour
Messages postés
4
Date d'inscription
lundi 11 juin 2007
Statut
Membre
Dernière intervention
12 juin 2007
12 juin 2007 à 11:45
12 juin 2007 à 11:45
Eh! C'est vrai ca! je vais voir....
Kotour
Messages postés
4
Date d'inscription
lundi 11 juin 2007
Statut
Membre
Dernière intervention
12 juin 2007
12 juin 2007 à 15:19
12 juin 2007 à 15:19
Effectivement, c'était ce "petit" détail qui gênait tout.
Encore merci Renfield!
Encore merci Renfield!
