Bonjour j'ai une base de données sous SQL server et j'interface mes table
dans VB avec une datagrid je cherche a supprimer un enregistrement
directement depuis ma datagrid (Je clic sur la ligne a supprimer puis sur un
bouton supprimer et l'enregistrement disparai et de la datagrid et de la
base) j'ai reussi a le faire disparaitre de la table mais imposible de la
faire disparaitre de la datagrid quelqu'un a t'il une idée ??
Merci d'avance
Voici mon code pour effacer :
Sub suppression(ByRef Table As String, ByRef Cle As String, ByRef NomForm As
Object)
Dim reponse As String
Dim db As New Base
reponse = MsgBox("Confirmer la suppression ", vbYesNo, "Supprimer")
If reponse = 6 Then
db.DEV_SQL.Open
db.DEV_SQL.Execute ("DELETE FROM " & Table & " WHERE " & Cle & " =
'" & NomForm.DataGrid1.Columns(0).Text & "'")
MsgBox "Fini"
End If
End Sub
si il y a plus simple par exemple directement avec le datagrid merci de me
faire savoir ! :)
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
Gadget 96-161
En appuyant directement sur le bouton Suppr du clavier, normalement ça efface l'enregistrement (après l'avoir sélectionné !) dans la table ET sur la DBGrid... Il faut juste préciser AllowDelete = True dans les propriétés.
Sinon je sais pas ...
@+
-----Message d'origine----- Bonjour j'ai une base de données sous SQL server et
j'interface mes table
dans VB avec une datagrid je cherche a supprimer un
enregistrement
directement depuis ma datagrid (Je clic sur la ligne a
supprimer puis sur un
bouton supprimer et l'enregistrement disparai et de la
datagrid et de la
base) j'ai reussi a le faire disparaitre de la table mais
imposible de la
faire disparaitre de la datagrid quelqu'un a t'il une
idée ??
Merci d'avance
Voici mon code pour effacer : Sub suppression(ByRef Table As String, ByRef Cle As
String, ByRef NomForm As
Object) Dim reponse As String Dim db As New Base reponse = MsgBox("Confirmer la suppression ",
vbYesNo, "Supprimer")
If reponse = 6 Then db.DEV_SQL.Open db.DEV_SQL.Execute ("DELETE FROM " & Table & "
WHERE " & Cle & " =
'" & NomForm.DataGrid1.Columns(0).Text & "'") MsgBox "Fini" End If End Sub
si il y a plus simple par exemple directement avec le
datagrid merci de me
faire savoir ! :)
.
En appuyant directement sur le bouton Suppr du clavier,
normalement ça efface l'enregistrement (après l'avoir
sélectionné !) dans la table ET sur la DBGrid...
Il faut juste préciser AllowDelete = True dans les
propriétés.
Sinon je sais pas ...
@+
-----Message d'origine-----
Bonjour j'ai une base de données sous SQL server et
j'interface mes table
dans VB avec une datagrid je cherche a supprimer un
enregistrement
directement depuis ma datagrid (Je clic sur la ligne a
supprimer puis sur un
bouton supprimer et l'enregistrement disparai et de la
datagrid et de la
base) j'ai reussi a le faire disparaitre de la table mais
imposible de la
faire disparaitre de la datagrid quelqu'un a t'il une
idée ??
Merci d'avance
Voici mon code pour effacer :
Sub suppression(ByRef Table As String, ByRef Cle As
String, ByRef NomForm As
Object)
Dim reponse As String
Dim db As New Base
reponse = MsgBox("Confirmer la suppression ",
vbYesNo, "Supprimer")
If reponse = 6 Then
db.DEV_SQL.Open
db.DEV_SQL.Execute ("DELETE FROM " & Table & "
WHERE " & Cle & " =
'" & NomForm.DataGrid1.Columns(0).Text & "'")
MsgBox "Fini"
End If
End Sub
si il y a plus simple par exemple directement avec le
En appuyant directement sur le bouton Suppr du clavier, normalement ça efface l'enregistrement (après l'avoir sélectionné !) dans la table ET sur la DBGrid... Il faut juste préciser AllowDelete = True dans les propriétés.
Sinon je sais pas ...
@+
-----Message d'origine----- Bonjour j'ai une base de données sous SQL server et
j'interface mes table
dans VB avec une datagrid je cherche a supprimer un
enregistrement
directement depuis ma datagrid (Je clic sur la ligne a
supprimer puis sur un
bouton supprimer et l'enregistrement disparai et de la
datagrid et de la
base) j'ai reussi a le faire disparaitre de la table mais
imposible de la
faire disparaitre de la datagrid quelqu'un a t'il une
idée ??
Merci d'avance
Voici mon code pour effacer : Sub suppression(ByRef Table As String, ByRef Cle As
String, ByRef NomForm As
Object) Dim reponse As String Dim db As New Base reponse = MsgBox("Confirmer la suppression ",
vbYesNo, "Supprimer")
If reponse = 6 Then db.DEV_SQL.Open db.DEV_SQL.Execute ("DELETE FROM " & Table & "
WHERE " & Cle & " =
'" & NomForm.DataGrid1.Columns(0).Text & "'") MsgBox "Fini" End If End Sub
si il y a plus simple par exemple directement avec le
datagrid merci de me
faire savoir ! :)
.
Patrice Lamarche
Bonjour,
Je crois qu'en executant DataGrid1.Refresh apres avoir effacher la ligne devrai faire l'affaire.
Patrice "Breton" wrote in message news:%23qTSDM$
Bonjour j'ai une base de données sous SQL server et j'interface mes table dans VB avec une datagrid je cherche a supprimer un enregistrement directement depuis ma datagrid (Je clic sur la ligne a supprimer puis sur
un
bouton supprimer et l'enregistrement disparai et de la datagrid et de la base) j'ai reussi a le faire disparaitre de la table mais imposible de la faire disparaitre de la datagrid quelqu'un a t'il une idée ??
Merci d'avance
Voici mon code pour effacer : Sub suppression(ByRef Table As String, ByRef Cle As String, ByRef NomForm
As
Object) Dim reponse As String Dim db As New Base reponse = MsgBox("Confirmer la suppression ", vbYesNo, "Supprimer") If reponse = 6 Then db.DEV_SQL.Open db.DEV_SQL.Execute ("DELETE FROM " & Table & " WHERE " & Cle & "
> '" & NomForm.DataGrid1.Columns(0).Text & "'")
MsgBox "Fini" End If End Sub
si il y a plus simple par exemple directement avec le datagrid merci de me faire savoir ! :)
Bonjour,
Je crois qu'en executant DataGrid1.Refresh apres avoir effacher la ligne
devrai faire l'affaire.
Patrice
"Breton" <belu@worldonline.fr> wrote in message
news:%23qTSDM$WDHA.1900@TK2MSFTNGP10.phx.gbl...
Bonjour j'ai une base de données sous SQL server et j'interface mes table
dans VB avec une datagrid je cherche a supprimer un enregistrement
directement depuis ma datagrid (Je clic sur la ligne a supprimer puis sur
un
bouton supprimer et l'enregistrement disparai et de la datagrid et de la
base) j'ai reussi a le faire disparaitre de la table mais imposible de la
faire disparaitre de la datagrid quelqu'un a t'il une idée ??
Merci d'avance
Voici mon code pour effacer :
Sub suppression(ByRef Table As String, ByRef Cle As String, ByRef NomForm
As
Object)
Dim reponse As String
Dim db As New Base
reponse = MsgBox("Confirmer la suppression ", vbYesNo, "Supprimer")
If reponse = 6 Then
db.DEV_SQL.Open
db.DEV_SQL.Execute ("DELETE FROM " & Table & " WHERE " & Cle & "
> '" & NomForm.DataGrid1.Columns(0).Text & "'")
MsgBox "Fini"
End If
End Sub
si il y a plus simple par exemple directement avec le datagrid merci de me
faire savoir ! :)
Je crois qu'en executant DataGrid1.Refresh apres avoir effacher la ligne devrai faire l'affaire.
Patrice "Breton" wrote in message news:%23qTSDM$
Bonjour j'ai une base de données sous SQL server et j'interface mes table dans VB avec une datagrid je cherche a supprimer un enregistrement directement depuis ma datagrid (Je clic sur la ligne a supprimer puis sur
un
bouton supprimer et l'enregistrement disparai et de la datagrid et de la base) j'ai reussi a le faire disparaitre de la table mais imposible de la faire disparaitre de la datagrid quelqu'un a t'il une idée ??
Merci d'avance
Voici mon code pour effacer : Sub suppression(ByRef Table As String, ByRef Cle As String, ByRef NomForm
As
Object) Dim reponse As String Dim db As New Base reponse = MsgBox("Confirmer la suppression ", vbYesNo, "Supprimer") If reponse = 6 Then db.DEV_SQL.Open db.DEV_SQL.Execute ("DELETE FROM " & Table & " WHERE " & Cle & "
> '" & NomForm.DataGrid1.Columns(0).Text & "'")
MsgBox "Fini" End If End Sub
si il y a plus simple par exemple directement avec le datagrid merci de me faire savoir ! :)
Breton
Rien ne marche ni datagrid.refresh ni le fait de supprimer avec le clavier aucune mise a jour ! Je vas pas m'en sortir :(
"Patrice Lamarche" a écrit dans le message de news:%
Bonjour,
Je crois qu'en executant DataGrid1.Refresh apres avoir effacher la ligne devrai faire l'affaire.
Patrice "Breton" wrote in message news:%23qTSDM$ > Bonjour j'ai une base de données sous SQL server et j'interface mes
table
> dans VB avec une datagrid je cherche a supprimer un enregistrement > directement depuis ma datagrid (Je clic sur la ligne a supprimer puis
sur
un > bouton supprimer et l'enregistrement disparai et de la datagrid et de la > base) j'ai reussi a le faire disparaitre de la table mais imposible de
la
> faire disparaitre de la datagrid quelqu'un a t'il une idée ?? > > Merci d'avance > > > Voici mon code pour effacer : > Sub suppression(ByRef Table As String, ByRef Cle As String, ByRef
NomForm
As > Object) > Dim reponse As String > Dim db As New Base > reponse = MsgBox("Confirmer la suppression ", vbYesNo, "Supprimer") > If reponse = 6 Then > db.DEV_SQL.Open > db.DEV_SQL.Execute ("DELETE FROM " & Table & " WHERE " & Cle &
"
> > '" & NomForm.DataGrid1.Columns(0).Text & "'") > MsgBox "Fini" > End If > End Sub > > > si il y a plus simple par exemple directement avec le datagrid merci de
me
> faire savoir ! :) > >
Rien ne marche ni datagrid.refresh ni le fait de supprimer avec le clavier
aucune mise a jour !
Je vas pas m'en sortir :(
"Patrice Lamarche" <Patrice.Lamarche@nospam.amadeus-csi.com> a écrit dans le
message de news:%23IGn7eBXDHA.2328@TK2MSFTNGP12.phx.gbl...
Bonjour,
Je crois qu'en executant DataGrid1.Refresh apres avoir effacher la ligne
devrai faire l'affaire.
Patrice
"Breton" <belu@worldonline.fr> wrote in message
news:%23qTSDM$WDHA.1900@TK2MSFTNGP10.phx.gbl...
> Bonjour j'ai une base de données sous SQL server et j'interface mes
table
> dans VB avec une datagrid je cherche a supprimer un enregistrement
> directement depuis ma datagrid (Je clic sur la ligne a supprimer puis
sur
un
> bouton supprimer et l'enregistrement disparai et de la datagrid et de la
> base) j'ai reussi a le faire disparaitre de la table mais imposible de
la
> faire disparaitre de la datagrid quelqu'un a t'il une idée ??
>
> Merci d'avance
>
>
> Voici mon code pour effacer :
> Sub suppression(ByRef Table As String, ByRef Cle As String, ByRef
NomForm
As
> Object)
> Dim reponse As String
> Dim db As New Base
> reponse = MsgBox("Confirmer la suppression ", vbYesNo, "Supprimer")
> If reponse = 6 Then
> db.DEV_SQL.Open
> db.DEV_SQL.Execute ("DELETE FROM " & Table & " WHERE " & Cle &
"
> > '" & NomForm.DataGrid1.Columns(0).Text & "'")
> MsgBox "Fini"
> End If
> End Sub
>
>
> si il y a plus simple par exemple directement avec le datagrid merci de
Rien ne marche ni datagrid.refresh ni le fait de supprimer avec le clavier aucune mise a jour ! Je vas pas m'en sortir :(
"Patrice Lamarche" a écrit dans le message de news:%
Bonjour,
Je crois qu'en executant DataGrid1.Refresh apres avoir effacher la ligne devrai faire l'affaire.
Patrice "Breton" wrote in message news:%23qTSDM$ > Bonjour j'ai une base de données sous SQL server et j'interface mes
table
> dans VB avec une datagrid je cherche a supprimer un enregistrement > directement depuis ma datagrid (Je clic sur la ligne a supprimer puis
sur
un > bouton supprimer et l'enregistrement disparai et de la datagrid et de la > base) j'ai reussi a le faire disparaitre de la table mais imposible de
la
> faire disparaitre de la datagrid quelqu'un a t'il une idée ?? > > Merci d'avance > > > Voici mon code pour effacer : > Sub suppression(ByRef Table As String, ByRef Cle As String, ByRef
NomForm
As > Object) > Dim reponse As String > Dim db As New Base > reponse = MsgBox("Confirmer la suppression ", vbYesNo, "Supprimer") > If reponse = 6 Then > db.DEV_SQL.Open > db.DEV_SQL.Execute ("DELETE FROM " & Table & " WHERE " & Cle &
"
> > '" & NomForm.DataGrid1.Columns(0).Text & "'") > MsgBox "Fini" > End If > End Sub > > > si il y a plus simple par exemple directement avec le datagrid merci de
