cs_Charlie
Messages postés110Date d'inscriptionjeudi 9 mai 2002StatutMembreDernière intervention11 mars 2010
-
27 juin 2002 à 15:22
cs_Charlie
Messages postés110Date d'inscriptionjeudi 9 mai 2002StatutMembreDernière intervention11 mars 2010
-
28 juin 2002 à 14:42
Allo...
Je travaille avec un recordset en ADO. Ce que je veux faire c'est effacer toute les lignes contenants un certain nom. Ainsi, je fais un find, avec le nom que je veux enlever pour ensuite faire delete. Mais a toute les fois, le delete plante... Il me dit que trop d'informations seraient changées par ce changement ou quelque chose du genre....
Il doit bien y avoir un moyen d'effacer, en boucle, une cinquantaine de record dans un recordset!
PatWolver
Messages postés12Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention 2 décembre 2003 28 juin 2002 à 10:45
Salut,
Donne moi, si tu es d'accord, un exemple de ton code dans lequel tu accèdes à tes données, ainsi je pourrais plus facilement t'expliquer comment faire.
cs_Charlie
Messages postés110Date d'inscriptionjeudi 9 mai 2002StatutMembreDernière intervention11 mars 20101 28 juin 2002 à 14:42
Pas de problème... Comme c'est mon programme VB qui crée ses propre tables... tu vas avoir la forme complete de ma base de données...
Ce que je veux faire c'est effacer, dans la table "Data", les enregistrements dont la colonne "Name" = image.tif par exemple...
Je t'ai mis les 3 principales fonctions ainsi, tu devrais avoir tout ce qui te faut.
Option Explicit
Private cat As New ADOX.Catalog
Private Tbl As New ADOX.Table
Private cmdado As New ADODB.command
Private rsProject As New ADODB.Recordset
Private rsImages As New ADODB.Recordset
Private rsData As New ADODB.Recordset
Public Function CreateDB(link As String) As Boolean
On Error GoTo Annulation
cat.Create "provider=microsoft.jet.oledb.3.51;" & "Data source =" & link & ";"
cmdado.CommandText = " select * from Data " ' order by name indice asc"
rsData.CursorLocation = adUseClient
rsData.CursorType = adOpenDynamic
rsData.LockType = adLockOptimistic
rsData.Open cmdado