Bonjour,
J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid apres la
supression d'un enregistrement. Celui ci se suprime mais n'est pas
directement mis a jour comment doit-je faire ?
Mon code de suppression:
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.Bookmark & "'")
MsgBox "Fini"
End If
End Sub
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
Breton
Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai pas trouver de commande refresh qui fonctionne. Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise !
"+The_Taco+" a écrit dans le message de news:uP%
Essai de refresher ton contrôle ADODC ainsi que ta DataGrid.
"Breton" a écrit dans le message de news:% > Bonjour, > J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid apres
la
> supression d'un enregistrement. Celui ci se suprime mais n'est pas > directement mis a jour comment doit-je faire ? > > Mon code de suppression: > > 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.Bookmark & "'") > MsgBox "Fini" > End If > End Sub > > >
Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai pas
trouver de commande refresh qui fonctionne.
Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise !
"+The_Taco+" <dominic.feron@dessausoprin.com> a écrit dans le message de
news:uP%23IK61WDHA.656@tk2msftngp13.phx.gbl...
Essai de refresher ton contrôle ADODC ainsi que ta DataGrid.
"Breton" <belu@worldonline.fr> a écrit dans le message de
news:%238lkt80WDHA.2236@TK2MSFTNGP10.phx.gbl...
> Bonjour,
> J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid apres
la
> supression d'un enregistrement. Celui ci se suprime mais n'est pas
> directement mis a jour comment doit-je faire ?
>
> Mon code de suppression:
>
> 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.Bookmark & "'")
> MsgBox "Fini"
> End If
> End Sub
>
>
>
Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai pas trouver de commande refresh qui fonctionne. Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise !
"+The_Taco+" a écrit dans le message de news:uP%
Essai de refresher ton contrôle ADODC ainsi que ta DataGrid.
"Breton" a écrit dans le message de news:% > Bonjour, > J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid apres
la
> supression d'un enregistrement. Celui ci se suprime mais n'est pas > directement mis a jour comment doit-je faire ? > > Mon code de suppression: > > 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.Bookmark & "'") > MsgBox "Fini" > End If > End Sub > > >
Breton
Merci a toi par contre j'ai encore une petite question a quoi correspond le " str " qui ce trouve avant le nom de ma datagrid ?
+The_Taco+" a écrit dans le message de news:%238U$
Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a régler mon problème alors tu perds rien à l'essayer!
With strNomGrid .DataChanged = True .ReBind .Refresh End With
Je crois que le rebind reconstruit la grid au complet.
cheers
"Breton" a écrit dans le message de news: > Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai
pas
> trouver de commande refresh qui fonctionne. > Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise ! > > > "+The_Taco+" a écrit dans le message de > news:uP% > > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid. > > > > "Breton" a écrit dans le message de > > news:% > > > Bonjour, > > > J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid apres > la > > > supression d'un enregistrement. Celui ci se suprime mais n'est pas > > > directement mis a jour comment doit-je faire ? > > > > > > Mon code de suppression: > > > > > > 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 " &
Merci a toi par contre j'ai encore une petite question a quoi correspond le
" str " qui ce trouve avant le nom de ma datagrid ?
+The_Taco+" <dominic.feron@dessausoprin.com> a écrit dans le message de
news:%238U$Jl2WDHA.656@tk2msftngp13.phx.gbl...
Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a régler
mon problème alors tu perds rien à l'essayer!
With strNomGrid
.DataChanged = True
.ReBind
.Refresh
End With
Je crois que le rebind reconstruit la grid au complet.
cheers
"Breton" <belu@worldonline.fr> a écrit dans le message de
news:uBpXIK2WDHA.608@TK2MSFTNGP12.phx.gbl...
> Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai
pas
> trouver de commande refresh qui fonctionne.
> Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise !
>
>
> "+The_Taco+" <dominic.feron@dessausoprin.com> a écrit dans le message de
> news:uP%23IK61WDHA.656@tk2msftngp13.phx.gbl...
> > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid.
> >
> > "Breton" <belu@worldonline.fr> a écrit dans le message de
> > news:%238lkt80WDHA.2236@TK2MSFTNGP10.phx.gbl...
> > > Bonjour,
> > > J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid
apres
> la
> > > supression d'un enregistrement. Celui ci se suprime mais n'est pas
> > > directement mis a jour comment doit-je faire ?
> > >
> > > Mon code de suppression:
> > >
> > > 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 " &
Merci a toi par contre j'ai encore une petite question a quoi correspond le " str " qui ce trouve avant le nom de ma datagrid ?
+The_Taco+" a écrit dans le message de news:%238U$
Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a régler mon problème alors tu perds rien à l'essayer!
With strNomGrid .DataChanged = True .ReBind .Refresh End With
Je crois que le rebind reconstruit la grid au complet.
cheers
"Breton" a écrit dans le message de news: > Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai
pas
> trouver de commande refresh qui fonctionne. > Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise ! > > > "+The_Taco+" a écrit dans le message de > news:uP% > > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid. > > > > "Breton" a écrit dans le message de > > news:% > > > Bonjour, > > > J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid apres > la > > > supression d'un enregistrement. Celui ci se suprime mais n'est pas > > > directement mis a jour comment doit-je faire ? > > > > > > Mon code de suppression: > > > > > > 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 " &
Le str devant le datagrid est le nom du datagrid que je passais en paramètre dans ma fonction, str est un code pour moi pour dire que la variable est un nom d'un objet.
"Breton" a écrit dans le message de news:bgqa15$p6a$
Merci a toi par contre j'ai encore une petite question a quoi correspond
le
" str " qui ce trouve avant le nom de ma datagrid ?
+The_Taco+" a écrit dans le message de news:%238U$ > Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a
régler
> mon problème alors tu perds rien à l'essayer! > > With strNomGrid > .DataChanged = True > .ReBind > .Refresh > End With > > Je crois que le rebind reconstruit la grid au complet. > > cheers > > "Breton" a écrit dans le message de > news: > > Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai pas > > trouver de commande refresh qui fonctionne. > > Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise
!
> > > > > > "+The_Taco+" a écrit dans le message
de
> > news:uP% > > > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid. > > > > > > "Breton" a écrit dans le message de > > > news:% > > > > Bonjour, > > > > J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid > apres > > la > > > > supression d'un enregistrement. Celui ci se suprime mais n'est pas > > > > directement mis a jour comment doit-je faire ? > > > > > > > > Mon code de suppression: > > > > > > > > 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.Bookmark & "'") > > > > MsgBox "Fini" > > > > End If > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > >
Le str devant le datagrid est le nom du datagrid que je passais en paramètre
dans ma fonction, str est un code pour moi pour dire que la variable est un
nom d'un objet.
"Breton" <belu@worldonline.fr> a écrit dans le message de
news:bgqa15$p6a$1@reader1.imaginet.fr...
Merci a toi par contre j'ai encore une petite question a quoi correspond
le
" str " qui ce trouve avant le nom de ma datagrid ?
+The_Taco+" <dominic.feron@dessausoprin.com> a écrit dans le message de
news:%238U$Jl2WDHA.656@tk2msftngp13.phx.gbl...
> Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a
régler
> mon problème alors tu perds rien à l'essayer!
>
> With strNomGrid
> .DataChanged = True
> .ReBind
> .Refresh
> End With
>
> Je crois que le rebind reconstruit la grid au complet.
>
> cheers
>
> "Breton" <belu@worldonline.fr> a écrit dans le message de
> news:uBpXIK2WDHA.608@TK2MSFTNGP12.phx.gbl...
> > Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai
pas
> > trouver de commande refresh qui fonctionne.
> > Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise
!
> >
> >
> > "+The_Taco+" <dominic.feron@dessausoprin.com> a écrit dans le message
de
> > news:uP%23IK61WDHA.656@tk2msftngp13.phx.gbl...
> > > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid.
> > >
> > > "Breton" <belu@worldonline.fr> a écrit dans le message de
> > > news:%238lkt80WDHA.2236@TK2MSFTNGP10.phx.gbl...
> > > > Bonjour,
> > > > J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid
> apres
> > la
> > > > supression d'un enregistrement. Celui ci se suprime mais n'est pas
> > > > directement mis a jour comment doit-je faire ?
> > > >
> > > > Mon code de suppression:
> > > >
> > > > 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.Bookmark & "'")
> > > > MsgBox "Fini"
> > > > End If
> > > > End Sub
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>
Le str devant le datagrid est le nom du datagrid que je passais en paramètre dans ma fonction, str est un code pour moi pour dire que la variable est un nom d'un objet.
"Breton" a écrit dans le message de news:bgqa15$p6a$
Merci a toi par contre j'ai encore une petite question a quoi correspond
le
" str " qui ce trouve avant le nom de ma datagrid ?
+The_Taco+" a écrit dans le message de news:%238U$ > Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a
régler
> mon problème alors tu perds rien à l'essayer! > > With strNomGrid > .DataChanged = True > .ReBind > .Refresh > End With > > Je crois que le rebind reconstruit la grid au complet. > > cheers > > "Breton" a écrit dans le message de > news: > > Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais j'ai pas > > trouver de commande refresh qui fonctionne. > > Y'en a bien une dans datagrid mais rien ne se passe quand je l'utilise
!
> > > > > > "+The_Taco+" a écrit dans le message
de
> > news:uP% > > > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid. > > > > > > "Breton" a écrit dans le message de > > > news:% > > > > Bonjour, > > > > J'ai un ptit probleme je n'arrive pas a metre a jour mon datagrid > apres > > la > > > > supression d'un enregistrement. Celui ci se suprime mais n'est pas > > > > directement mis a jour comment doit-je faire ? > > > > > > > > Mon code de suppression: > > > > > > > > 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.Bookmark & "'") > > > > MsgBox "Fini" > > > > End If > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > >
Breton
ok merci mais chez moa sa marche pas ! c impossible de rafraichir cette datagrid che plus quoi faire !
"+The_Taco+" a écrit dans le message de news:%
Le str devant le datagrid est le nom du datagrid que je passais en
paramètre
dans ma fonction, str est un code pour moi pour dire que la variable est
un
nom d'un objet.
"Breton" a écrit dans le message de news:bgqa15$p6a$ > Merci a toi par contre j'ai encore une petite question a quoi correspond le > " str " qui ce trouve avant le nom de ma datagrid ? > > > > +The_Taco+" a écrit dans le message de > news:%238U$ > > Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a régler > > mon problème alors tu perds rien à l'essayer! > > > > With strNomGrid > > .DataChanged = True > > .ReBind > > .Refresh > > End With > > > > Je crois que le rebind reconstruit la grid au complet. > > > > cheers > > > > "Breton" a écrit dans le message de > > news: > > > Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais
j'ai
> pas > > > trouver de commande refresh qui fonctionne. > > > Y'en a bien une dans datagrid mais rien ne se passe quand je
l'utilise
! > > > > > > > > > "+The_Taco+" a écrit dans le
message
de > > > news:uP% > > > > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid. > > > > > > > > "Breton" a écrit dans le message de > > > > news:% > > > > > Bonjour, > > > > > J'ai un ptit probleme je n'arrive pas a metre a jour mon
datagrid
> > apres > > > la > > > > > supression d'un enregistrement. Celui ci se suprime mais n'est
pas
> > > > > directement mis a jour comment doit-je faire ? > > > > > > > > > > Mon code de suppression: > > > > > > > > > > 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 "
ok merci mais chez moa sa marche pas !
c impossible de rafraichir cette datagrid che plus quoi faire !
"+The_Taco+" <dominic.feron@dessausoprin.com> a écrit dans le message de
news:%2330ix8CXDHA.888@TK2MSFTNGP10.phx.gbl...
Le str devant le datagrid est le nom du datagrid que je passais en
paramètre
dans ma fonction, str est un code pour moi pour dire que la variable est
un
nom d'un objet.
"Breton" <belu@worldonline.fr> a écrit dans le message de
news:bgqa15$p6a$1@reader1.imaginet.fr...
> Merci a toi par contre j'ai encore une petite question a quoi correspond
le
> " str " qui ce trouve avant le nom de ma datagrid ?
>
>
>
> +The_Taco+" <dominic.feron@dessausoprin.com> a écrit dans le message de
> news:%238U$Jl2WDHA.656@tk2msftngp13.phx.gbl...
> > Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a
régler
> > mon problème alors tu perds rien à l'essayer!
> >
> > With strNomGrid
> > .DataChanged = True
> > .ReBind
> > .Refresh
> > End With
> >
> > Je crois que le rebind reconstruit la grid au complet.
> >
> > cheers
> >
> > "Breton" <belu@worldonline.fr> a écrit dans le message de
> > news:uBpXIK2WDHA.608@TK2MSFTNGP12.phx.gbl...
> > > Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais
j'ai
> pas
> > > trouver de commande refresh qui fonctionne.
> > > Y'en a bien une dans datagrid mais rien ne se passe quand je
l'utilise
!
> > >
> > >
> > > "+The_Taco+" <dominic.feron@dessausoprin.com> a écrit dans le
message
de
> > > news:uP%23IK61WDHA.656@tk2msftngp13.phx.gbl...
> > > > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid.
> > > >
> > > > "Breton" <belu@worldonline.fr> a écrit dans le message de
> > > > news:%238lkt80WDHA.2236@TK2MSFTNGP10.phx.gbl...
> > > > > Bonjour,
> > > > > J'ai un ptit probleme je n'arrive pas a metre a jour mon
datagrid
> > apres
> > > la
> > > > > supression d'un enregistrement. Celui ci se suprime mais n'est
pas
> > > > > directement mis a jour comment doit-je faire ?
> > > > >
> > > > > Mon code de suppression:
> > > > >
> > > > > 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 "
ok merci mais chez moa sa marche pas ! c impossible de rafraichir cette datagrid che plus quoi faire !
"+The_Taco+" a écrit dans le message de news:%
Le str devant le datagrid est le nom du datagrid que je passais en
paramètre
dans ma fonction, str est un code pour moi pour dire que la variable est
un
nom d'un objet.
"Breton" a écrit dans le message de news:bgqa15$p6a$ > Merci a toi par contre j'ai encore une petite question a quoi correspond le > " str " qui ce trouve avant le nom de ma datagrid ? > > > > +The_Taco+" a écrit dans le message de > news:%238U$ > > Ok, j'ai eu des problème de refresh avec ma datagrid aussi. Ceci a régler > > mon problème alors tu perds rien à l'essayer! > > > > With strNomGrid > > .DataChanged = True > > .ReBind > > .Refresh > > End With > > > > Je crois que le rebind reconstruit la grid au complet. > > > > cheers > > > > "Breton" a écrit dans le message de > > news: > > > Je n'est pas de contrôle ADODC j'utilise un DataEnvironement mais
j'ai
> pas > > > trouver de commande refresh qui fonctionne. > > > Y'en a bien une dans datagrid mais rien ne se passe quand je
l'utilise
! > > > > > > > > > "+The_Taco+" a écrit dans le
message
de > > > news:uP% > > > > Essai de refresher ton contrôle ADODC ainsi que ta DataGrid. > > > > > > > > "Breton" a écrit dans le message de > > > > news:% > > > > > Bonjour, > > > > > J'ai un ptit probleme je n'arrive pas a metre a jour mon
datagrid
> > apres > > > la > > > > > supression d'un enregistrement. Celui ci se suprime mais n'est
pas
> > > > > directement mis a jour comment doit-je faire ? > > > > > > > > > > Mon code de suppression: > > > > > > > > > > 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 "
