bonjour
je suis une newbie en vb6 alors soyez indulgents s'il vous plait.
quand j'exécute mon prog j'obtiens une erreur 3704
qui dit que mon objet est fermé.
voici le code
////////////////
Dim sSelect As String
Dim sql As String
Dim sCust As ADODB.Recordset
Set sCust = New ADODB.Recordset
'on recupere la raison sociale
sSelect = grdThis.CellText(grdThis.SelectedRow,
grdThis.ColumnIndex("RaisonSociale"))
'definition de la requete
sql = "DELETE Customers FROM Customers WHERE Customers
.sCustRaisonSoc='" & sSelect & "';"
Set sCust = Ct.Execute(sql, , adCmdText)
sCust.Close
Set sCust = Nothing
////////////////
l'erreur est sur sCust. close
Pouvez vous me dire ce qui ne va pas,s'il vous plait.
Merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Quasimodo
martouf used his keyboard to write :
bonjour je suis une newbie en vb6 alors soyez indulgents s'il vous plait. quand j'exécute mon prog j'obtiens une erreur 3704 qui dit que mon objet est fermé. voici le code
//////////////// Dim sSelect As String Dim sql As String Dim sCust As ADODB.Recordset Set sCust = New ADODB.Recordset 'on recupere la raison sociale sSelect = grdThis.CellText(grdThis.SelectedRow, grdThis.ColumnIndex("RaisonSociale")) 'definition de la requete sql = "DELETE Customers FROM Customers WHERE Customers .sCustRaisonSoc='" & sSelect & "';" Set sCust = Ct.Execute(sql, , adCmdText) sCust.Close Set sCust = Nothing //////////////// l'erreur est sur sCust. close
Pouvez vous me dire ce qui ne va pas,s'il vous plait. Merci d'avance
bonjour, oui, c'est normale, votre requète sql (via l'appel avec votre objet connection <<ct>>)ne renvoie pas de records puisqu'ils sont éffacés uniquement. Votre requète ne demande pas de retourner des records.
@+Quaz
-- This is an automatic signature of MesNews. Site : http://mesnews.no-ip.com
martouf used his keyboard to write :
bonjour
je suis une newbie en vb6 alors soyez indulgents s'il vous plait.
quand j'exécute mon prog j'obtiens une erreur 3704
qui dit que mon objet est fermé.
voici le code
////////////////
Dim sSelect As String
Dim sql As String
Dim sCust As ADODB.Recordset
Set sCust = New ADODB.Recordset
'on recupere la raison sociale
sSelect = grdThis.CellText(grdThis.SelectedRow,
grdThis.ColumnIndex("RaisonSociale"))
'definition de la requete
sql = "DELETE Customers FROM Customers WHERE Customers
.sCustRaisonSoc='" & sSelect & "';"
Set sCust = Ct.Execute(sql, , adCmdText)
sCust.Close
Set sCust = Nothing
////////////////
l'erreur est sur sCust. close
Pouvez vous me dire ce qui ne va pas,s'il vous plait.
Merci d'avance
bonjour,
oui, c'est normale, votre requète sql (via l'appel avec votre objet
connection <<ct>>)ne renvoie pas de records puisqu'ils sont éffacés
uniquement. Votre requète ne demande pas de retourner des records.
@+Quaz
--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
bonjour je suis une newbie en vb6 alors soyez indulgents s'il vous plait. quand j'exécute mon prog j'obtiens une erreur 3704 qui dit que mon objet est fermé. voici le code
//////////////// Dim sSelect As String Dim sql As String Dim sCust As ADODB.Recordset Set sCust = New ADODB.Recordset 'on recupere la raison sociale sSelect = grdThis.CellText(grdThis.SelectedRow, grdThis.ColumnIndex("RaisonSociale")) 'definition de la requete sql = "DELETE Customers FROM Customers WHERE Customers .sCustRaisonSoc='" & sSelect & "';" Set sCust = Ct.Execute(sql, , adCmdText) sCust.Close Set sCust = Nothing //////////////// l'erreur est sur sCust. close
Pouvez vous me dire ce qui ne va pas,s'il vous plait. Merci d'avance
bonjour, oui, c'est normale, votre requète sql (via l'appel avec votre objet connection <<ct>>)ne renvoie pas de records puisqu'ils sont éffacés uniquement. Votre requète ne demande pas de retourner des records.
@+Quaz
-- This is an automatic signature of MesNews. Site : http://mesnews.no-ip.com
