Delete sur un filter ds un recordset

**fikou** · 22/04/2006, 23h49

Bonjour,

Je fait un Filter sur mon recordset :

Code :

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

1
2
 
adoRSSoc.Filter = "T_IdSociete = 682"

Ce filtre fontionne.

Je fais un delete sur ce filtre :

Code :

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

1
2
 
adoRSSoc.Delete adAffectGroup

Et je me retrouve avec ce message d'erreur :

L'opération demandée n'est pas autorisée dans ce contexte

Fikou

**Vesta** · 23/04/2006, 02h53

peu etre que ton curseur est en lecture seul... Il faudrait vérifié tes parametres de connection

**fikou** · 23/04/2006, 07h39

Salut,

Je me connecte de cette facon :

Code :

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

1
2
3
4
5
6
 
sSQL = ""
sSQL = sSQL & "SELECT " & STV_LesDeux
sSQL = sSQL & "FROM Tireurs T, Societe S "
sSQL = sSQL & "WHERE T.T_IdSociete = S.S_IdSociete and s.S_IdSociete = 682"
Call OuvreBaseSoc(App.Path & "\STV.mdb", sSQL)

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
 
Public Sub OuvreBaseSoc(sPath As String, sCmdSql As String)
Set adoConnectSoc = New ADODB.Connection
adoConnectSoc.Provider = "Microsoft.Jet.OLEDB.4.0"
 
adoConnectSoc = New ADODB.Connection
adoConnectSoc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + sPath + ";Jet OLEDB:Database Password=pssst"
adoConnectSoc.Open
adoCommandSoc.ActiveConnection = adoConnectSoc
adoCommandSoc.CommandText = sCmdSql
adoRSSoc.CursorLocation = adUseClient
adoRSSoc.CursorType = adOpenStatic
adoRSSoc.LockType = adLockPessimistic
adoRSSoc.Open adoCommandSoc
End Sub

Ce que je cherche à faire c'est de supprimer toutes les lignes des tables Societe, Tireurs don l'Id est identique. Il peut y avoir plusieur tireurs mais une seule societe.

Bon dimanche
Fikou

**jmfmarques** · 23/04/2006, 08h34

As-tu pensé, avant de poser ta question, à essayer ta SQL "manuellement" (hors VB, donc), pour voir s'il ne s'agirait pas d'un problème purement SQL ?