delete sql

Question

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

Shivan0910 · Answer

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 !!"

joedalton85 · Answer

Bonjour laurent180
 J'ai actuellement le m&#234;me probl&#232;me alors si tu as fini par trouver la solution &#233;claire moi

merci joedalton85

laurent180 · Answer

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&#232;re t'avoir aid&#233;.

Delete sql

3 réponses

Discussions similaires