Delete sql

Signaler
Messages postés
72
Date d'inscription
vendredi 4 avril 2003
Statut
Membre
Dernière intervention
2 novembre 2008
-
Messages postés
72
Date d'inscription
vendredi 4 avril 2003
Statut
Membre
Dernière intervention
2 novembre 2008
-
bonjour ou bonsoir a tous,
j'ai un petit ptoblème avec la fct delete en sql voici mon code:
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mot_de_passe.mdb;Persist Security Info=False"
login1 = text1.text
Adodc1.ConnectionString = connect
'Adodc1.Recordset.Open
txtcodessql = "DELETE * FROM table1 where login= '" & login1 & "'"
Adodc1.RecordSource = Trim$(txtcodessql)
Adodc1.CommandType = adCmdText
Adodc1.Refresh

si je fais sa comme il est la avec un commentaire sur la methode open il me met une erreur adodc1
"cet operation n'est pas autorisé si l'objet est fermé.
je met donc dans mon code 'Adodc1.Recordset.Open
et la il me met une erreur: cet operation n'est pas autorisé si l'objet est ouvert!!
si qq a une idée. Merci a lui

3 réponses

Messages postés
149
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
24 novembre 2010
2
deja je me demande si dans la requete il faut pas mettre
"WHERE login LIKE '" & login1 & "'"

ensuite tout depend sur kel ligne il met l'erreur... c p'tet juste l'ordre des ligne a changer ou un truc kom ca...

"la vitesse de la lumière est supérieure à celle du son, c'est pourquoi un imbécile parait intelligent jusqu'a ce qu'il parle !!"
Messages postés
1
Date d'inscription
dimanche 12 décembre 2004
Statut
Membre
Dernière intervention
20 mars 2005

Bonjour laurent180
J'ai actuellement le même problème alors si tu as fini par trouver la solution éclaire moi

merci joedalton85
Messages postés
72
Date d'inscription
vendredi 4 avril 2003
Statut
Membre
Dernière intervention
2 novembre 2008

voici ma source.



Dim adoConnection As ADODB.Connection

Set adoConnection = New ADODB.Connection

Dim Connectstring As String

Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mot_de_passe.mdb;Persist Security Info=False"

Connectstring = Connect

adoConnection.Open Connectstring





txtCodesSQL = "DELETE * FROM table1 where login= '" & login1 & "'"

adoConnection.Execute (Trim$(txtCodesSQL))

adoConnection.Close

Set adoConnection = Nothing



voila j'espère t'avoir aidé.