papounez
Messages postés118Date d'inscriptionsamedi 16 juillet 2005StatutMembreDernière intervention18 novembre 2008
-
2 janv. 2008 à 17:31
papounez
Messages postés118Date d'inscriptionsamedi 16 juillet 2005StatutMembreDernière intervention18 novembre 2008
-
3 janv. 2008 à 08:28
bonjour et bonne année 2008
débutant VB6
voila j' ai 2 tables et un cmbouton et impossible de supprimer dans la table 2
dans la 1 j'arrive a supprimer la ligne (une ligne)
et la 2 je arrive pas 'plusieurs ligne
si vous pouvez m'aider
Merci
voici mon code
Private Sub Supprimer_Click()
If (MsgBox(" Confirmez la Suppression du Patient [ " & ListViewPatient.ListItems(ListViewPatient.SelectedItem.Index).Text & " ] ? ", vbYesNo + vbExclamation, "Suppression") = vbYes) Then
'Suppression du patient de la base Table 1
Call Connect Sql "Delete from TApatient where Patient '" & ListViewPatient.ListItems(ListViewPatient.SelectedItem.Index).Text & "'"
Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 3 janv. 2008 à 04:52
salut
Call ConnectSql1 "Delete from TAliste where Code '" & TBoxCode.Text & "'"
Rs1.MoveLast
While Not Rs1.EOF
Rs1.Open Sql1, Db, adOpenKeyset, adLockOptimistic
c'est pas dans l'ordre tout çà...
tu fais un movelast sur un RS qui n'a pas encore executé ta requête....
et même, pas besoin de naviger ensuite dans le RS puiste c'est un DELETE que tu demandes
avec le EOF çà serait :
Sql1 "SELECT * from TAliste where Code '" & TBoxCode.Text & "'"
Rs1.Open Sql1, Db, adOpenKeyset, adLockOptimistic
Rs1.MoveFirst
While Not Rs1.EOF
rs1.delete
Rs1.MoveNext
Wend
rs1.close
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp