Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Compactage Base Access

Compactage Base Access

18 réponses
Avatar
Annie L.
En Visual Basic 2005, comment peut-on faire pour compacter une base de
données MS Access dans le code ?

Merci de vos réponse!
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
1 2
Avatar
Annie
Vous dites : "Le lien d'Eric est correct et apporte une solution valide."
Quand je clique sur ce lien, j'obtiens une page vide!!!!

"jerome crevecoeur" wrote:

Le lien d'Eric est correct et apporte une solution valide.
Cordialement

Eric a écrit :
> Bonsoir,
>
> Tu peux aller voir la:
>
> http://support.microsoft.com/default.aspx?scid=kb;en-us;306287
>
> a+
>
> EricG
>
> "Annie" a écrit dans le message de news:
>
>> VB.net et VB 2005 c'est la même chose!!!!!
>> Tout comme VB.Net et Vb 2003 c'est pareil!!!!
>> Je le savais que j'avais affaire à un "chialeux"
>> Dénigrer les autres!!! Ça tu es très fort là-dessus comme on peut le
>> constater!
>> Il y a longtemps qu'on n'avais pas vu un "baveu" sur ce site!
>> Débarasse, on n'a pas besoin de quelqu'un comme toi!!!!
>>
>> "Eddy Maue" wrote:
>>
>>> Alors faut juste précisé.
>>>
>>> Ici c'est vb.net alors que tu ne mentionnes que vb 2005
>>>
>>> et bien sure comme papa et moman on toujours répondu à tes attentes,
>>> qu'il
>>> n'ont jamais opposés quoi que ce soit à leur petite Annie, on peut
>>> s'attendre à
>>> ce genre de boutade
>>>
>>>> Tu pourrait laissez faire pour ces petits commentaires dont on pourrait
>>>> volontier se passer!!!!!!!
>>> De je vois que tu as précisés et dommage que tu ne sois gentille, je
>>> t'aurais
>>> donné la réponse
>>>
>>> a+ et je passe mon tour
>>>
>>>
>>> Annie a pensé très fort :
>>>> Je me ne trompes pas de FORUM, car je travaille avec VB.Net
>>>> C'est avec le code de VB.net que je veux compacter ma base de données!
>>>
>>>> Si tu n'as pas d'idée constructive, évite tes petits commentaires!
>>>> Je travaille en VB.NET, suis-je dans le bon Forum d'après toi ????
>>>> "Eddy Maue" wrote:
>>>>> tu te trompes de forum
>>>>>
>>>>> a+
>>>>>
>>>>> Le 30-04-08, Annie L. a supposé :
>>>>>> En Visual Basic 2005, comment peut-on faire pour compacter une base
>>>>>> de
>>>>>> données MS Access dans le code ?
>>>>>> Merci de vos réponse!
>>>
>>>
>
>




Avatar
Jo
Bonjour, moi je fais:

ajouter la reference 'Microsoft Jet and Replication Objects x.xx

Private Sub frmPrincipal_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If ModifBase = True Then
Compactage()
End If
End Sub

Private Sub Compactage()
Try
Dim BaseActuel As String = Application.StartupPath &
"LeFichier.mdb"
Dim BaseCompactée As String = Application.StartupPath &
"LeFichier_B.mdb"
Dim dbPassWord As String = "Le Pass"
'
' Pour Compactage reference 'Microsoft Jet and Replication
Objects x.xx
Dim JRO As JRO.JetEngine
JRO = New JRO.JetEngine
'
Me.Cursor = Cursors.AppStarting
Me.StatusFichier.Text = "Compactage base de données en cours..."
'
'Si le fichier de base compactée existe déjà
If My.Computer.FileSystem.FileExists(BaseCompactée) = True Then
My.Computer.FileSystem.DeleteFile(BaseCompactée)
End If
'
'Compactage
'pour jet 4 (;Jet OLEDB:Engine Type=5;)
JRO.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & BaseActuel & ";Jet OLEDB:Database Password=" & dbPassWord, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
BaseCompactée & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=" &
dbPassWord)
'
'Copie base compactée vers fichier base actuel
My.Computer.FileSystem.CopyFile(BaseCompactée, BaseActuel, True)
' supprime fichier base compactée
My.Computer.FileSystem.DeleteFile(BaseCompactée)
'
ModifBase = False
Me.StatusFichier.Text = "Compactage terminer..."
Me.Cursor = Cursors.AppStarting
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "Compactage base de données")
End Try
End Sub

Cordialement
Jo

"Annie" a écrit dans le message de groupe
de discussion :
Cela fonctionne-t-il sans Ms Access?
Je m'explique...
Mon programme comporte une base de données avec le moteur Jet seulement.
Il n'y a pas de MS Access sur les postes où est installé mon programme,
mais
seulement la base de données!!!

Merci de vos réponses!

"Euclide" wrote:

Tu peux toujours lancer un shell du type:
MSACCESS.EXE MaBaseAccess /COMPACT

"Annie" a écrit :

> Page vide, il n'y a rien!!!!!
>
> "Eric" wrote:
>
> > Bonsoir,
> >
> > Tu peux aller voir la:
> >
> > http://support.microsoft.com/default.aspx?scid=kb;en-us;306287
> >
> > a+
> >
> > EricG
> >
> > "Annie" a écrit dans le message de
> > news:
> >
> > > VB.net et VB 2005 c'est la même chose!!!!!
> > > Tout comme VB.Net et Vb 2003 c'est pareil!!!!
> > > Je le savais que j'avais affaire à un "chialeux"
> > > Dénigrer les autres!!! Ça tu es très fort là-dessus comme on peut
> > > le
> > > constater!
> > > Il y a longtemps qu'on n'avais pas vu un "baveu" sur ce site!
> > > Débarasse, on n'a pas besoin de quelqu'un comme toi!!!!
> > >
> > > "Eddy Maue" wrote:
> > >
> > >> Alors faut juste précisé.
> > >>
> > >> Ici c'est vb.net alors que tu ne mentionnes que vb 2005
> > >>
> > >> et bien sure comme papa et moman on toujours répondu à tes
> > >> attentes,
> > >> qu'il
> > >> n'ont jamais opposés quoi que ce soit à leur petite Annie, on peut
> > >> s'attendre à
> > >> ce genre de boutade
> > >>
> > >> > Tu pourrait laissez faire pour ces petits commentaires dont on
> > >> > pourrait
> > >> > volontier se passer!!!!!!!
> > >>
> > >> De je vois que tu as précisés et dommage que tu ne sois gentille,
> > >> je
> > >> t'aurais
> > >> donné la réponse
> > >>
> > >> a+ et je passe mon tour
> > >>
> > >>
> > >> Annie a pensé très fort :
> > >> > Je me ne trompes pas de FORUM, car je travaille avec VB.Net
> > >> > C'est avec le code de VB.net que je veux compacter ma base de
> > >> > données!
> > >>
> > >>
> > >> > Si tu n'as pas d'idée constructive, évite tes petits
> > >> > commentaires!
> > >>
> > >> > Je travaille en VB.NET, suis-je dans le bon Forum d'après toi
> > >> > ????
> > >>
> > >> > "Eddy Maue" wrote:
> > >>
> > >> >> tu te trompes de forum
> > >> >>
> > >> >> a+
> > >> >>
> > >> >> Le 30-04-08, Annie L. a supposé :
> > >> >>> En Visual Basic 2005, comment peut-on faire pour compacter une
> > >> >>> base
> > >> >>> de
> > >> >>> données MS Access dans le code ?
> > >> >>
> > >> >>> Merci de vos réponse!
> > >> >>
> > >>
> > >>
> > >>
> >
> >
> >




Avatar
Jo
en complément voir:

http://support.microsoft.com/kb/230501/fr

Cordialement
Jo

"Jo" a écrit dans le message de groupe de discussion :

Bonjour, moi je fais:

ajouter la reference 'Microsoft Jet and Replication Objects x.xx

Private Sub frmPrincipal_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If ModifBase = True Then
Compactage()
End If
End Sub

Private Sub Compactage()
Try
Dim BaseActuel As String = Application.StartupPath &
"LeFichier.mdb"
Dim BaseCompactée As String = Application.StartupPath &
"LeFichier_B.mdb"
Dim dbPassWord As String = "Le Pass"
'
' Pour Compactage reference 'Microsoft Jet and Replication
Objects x.xx
Dim JRO As JRO.JetEngine
JRO = New JRO.JetEngine
'
Me.Cursor = Cursors.AppStarting
Me.StatusFichier.Text = "Compactage base de données en
cours..."
'
'Si le fichier de base compactée existe déjà
If My.Computer.FileSystem.FileExists(BaseCompactée) = True Then
My.Computer.FileSystem.DeleteFile(BaseCompactée)
End If
'
'Compactage
'pour jet 4 (;Jet OLEDB:Engine Type=5;)
JRO.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & BaseActuel & ";Jet OLEDB:Database Password=" & dbPassWord, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
BaseCompactée & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=" &
dbPassWord)
'
'Copie base compactée vers fichier base actuel
My.Computer.FileSystem.CopyFile(BaseCompactée, BaseActuel,
True)
' supprime fichier base compactée
My.Computer.FileSystem.DeleteFile(BaseCompactée)
'
ModifBase = False
Me.StatusFichier.Text = "Compactage terminer..."
Me.Cursor = Cursors.AppStarting
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "Compactage base de données")
End Try
End Sub

Cordialement
Jo

"Annie" a écrit dans le message de
groupe de discussion :

Cela fonctionne-t-il sans Ms Access?
Je m'explique...
Mon programme comporte une base de données avec le moteur Jet seulement.
Il n'y a pas de MS Access sur les postes où est installé mon programme,
mais
seulement la base de données!!!

Merci de vos réponses!

"Euclide" wrote:

Tu peux toujours lancer un shell du type:
MSACCESS.EXE MaBaseAccess /COMPACT

"Annie" a écrit :

> Page vide, il n'y a rien!!!!!
>
> "Eric" wrote:
>
> > Bonsoir,
> >
> > Tu peux aller voir la:
> >
> > http://support.microsoft.com/default.aspx?scid=kb;en-us;306287
> >
> > a+
> >
> > EricG
> >
> > "Annie" a écrit dans le message de
> > news:
> >
> > > VB.net et VB 2005 c'est la même chose!!!!!
> > > Tout comme VB.Net et Vb 2003 c'est pareil!!!!
> > > Je le savais que j'avais affaire à un "chialeux"
> > > Dénigrer les autres!!! Ça tu es très fort là-dessus comme on peut
> > > le
> > > constater!
> > > Il y a longtemps qu'on n'avais pas vu un "baveu" sur ce site!
> > > Débarasse, on n'a pas besoin de quelqu'un comme toi!!!!
> > >
> > > "Eddy Maue" wrote:
> > >
> > >> Alors faut juste précisé.
> > >>
> > >> Ici c'est vb.net alors que tu ne mentionnes que vb 2005
> > >>
> > >> et bien sure comme papa et moman on toujours répondu à tes
> > >> attentes,
> > >> qu'il
> > >> n'ont jamais opposés quoi que ce soit à leur petite Annie, on
> > >> peut
> > >> s'attendre à
> > >> ce genre de boutade
> > >>
> > >> > Tu pourrait laissez faire pour ces petits commentaires dont on
> > >> > pourrait
> > >> > volontier se passer!!!!!!!
> > >>
> > >> De je vois que tu as précisés et dommage que tu ne sois gentille,
> > >> je
> > >> t'aurais
> > >> donné la réponse
> > >>
> > >> a+ et je passe mon tour
> > >>
> > >>
> > >> Annie a pensé très fort :
> > >> > Je me ne trompes pas de FORUM, car je travaille avec VB.Net
> > >> > C'est avec le code de VB.net que je veux compacter ma base de
> > >> > données!
> > >>
> > >>
> > >> > Si tu n'as pas d'idée constructive, évite tes petits
> > >> > commentaires!
> > >>
> > >> > Je travaille en VB.NET, suis-je dans le bon Forum d'après toi
> > >> > ????
> > >>
> > >> > "Eddy Maue" wrote:
> > >>
> > >> >> tu te trompes de forum
> > >> >>
> > >> >> a+
> > >> >>
> > >> >> Le 30-04-08, Annie L. a supposé :
> > >> >>> En Visual Basic 2005, comment peut-on faire pour compacter
> > >> >>> une base
> > >> >>> de
> > >> >>> données MS Access dans le code ?
> > >> >>
> > >> >>> Merci de vos réponse!
> > >> >>
> > >>
> > >>
> > >>
> >
> >
> >






Avatar
Annie
Je clique sur ce lien et je vois une page vide et le mot "terminé" dans le
bas!!!!

mais je vais essayer l'exemple fournit!

Merci pour votre dévouement et vos réponses!



"Jo" wrote:

en complément voir:

http://support.microsoft.com/kb/230501/fr

Cordialement
Jo

"Jo" a écrit dans le message de groupe de discussion :

> Bonjour, moi je fais:
>
> ajouter la reference 'Microsoft Jet and Replication Objects x.xx
>
> Private Sub frmPrincipal_FormClosing(ByVal sender As Object, ByVal e As
> System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
> If ModifBase = True Then
> Compactage()
> End If
> End Sub
>
> Private Sub Compactage()
> Try
> Dim BaseActuel As String = Application.StartupPath &
> "LeFichier.mdb"
> Dim BaseCompactée As String = Application.StartupPath &
> "LeFichier_B.mdb"
> Dim dbPassWord As String = "Le Pass"
> '
> ' Pour Compactage reference 'Microsoft Jet and Replication
> Objects x.xx
> Dim JRO As JRO.JetEngine
> JRO = New JRO.JetEngine
> '
> Me.Cursor = Cursors.AppStarting
> Me.StatusFichier.Text = "Compactage base de données en
> cours..."
> '
> 'Si le fichier de base compactée existe déjà
> If My.Computer.FileSystem.FileExists(BaseCompactée) = True Then
> My.Computer.FileSystem.DeleteFile(BaseCompactée)
> End If
> '
> 'Compactage
> 'pour jet 4 (;Jet OLEDB:Engine Type=5;)
> JRO.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=" & BaseActuel & ";Jet OLEDB:Database Password=" & dbPassWord, _
> "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> BaseCompactée & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=" &
> dbPassWord)
> '
> 'Copie base compactée vers fichier base actuel
> My.Computer.FileSystem.CopyFile(BaseCompactée, BaseActuel,
> True)
> ' supprime fichier base compactée
> My.Computer.FileSystem.DeleteFile(BaseCompactée)
> '
> ModifBase = False
> Me.StatusFichier.Text = "Compactage terminer..."
> Me.Cursor = Cursors.AppStarting
> Catch ex As Exception
> MsgBox(ex.Message, vbCritical, "Compactage base de données")
> End Try
> End Sub
>
> Cordialement
> Jo
>
> "Annie" a écrit dans le message de
> groupe de discussion :
>
>> Cela fonctionne-t-il sans Ms Access?
>> Je m'explique...
>> Mon programme comporte une base de données avec le moteur Jet seulement.
>> Il n'y a pas de MS Access sur les postes où est installé mon programme,
>> mais
>> seulement la base de données!!!
>>
>> Merci de vos réponses!
>>
>> "Euclide" wrote:
>>
>>> Tu peux toujours lancer un shell du type:
>>> MSACCESS.EXE MaBaseAccess /COMPACT
>>>
>>> "Annie" a écrit :
>>>
>>> > Page vide, il n'y a rien!!!!!
>>> >
>>> > "Eric" wrote:
>>> >
>>> > > Bonsoir,
>>> > >
>>> > > Tu peux aller voir la:
>>> > >
>>> > > http://support.microsoft.com/default.aspx?scid=kb;en-us;306287
>>> > >
>>> > > a+
>>> > >
>>> > > EricG
>>> > >
>>> > > "Annie" a écrit dans le message de
>>> > > news:
>>> > >
>>> > > > VB.net et VB 2005 c'est la même chose!!!!!
>>> > > > Tout comme VB.Net et Vb 2003 c'est pareil!!!!
>>> > > > Je le savais que j'avais affaire à un "chialeux"
>>> > > > Dénigrer les autres!!! Ça tu es très fort là-dessus comme on peut
>>> > > > le
>>> > > > constater!
>>> > > > Il y a longtemps qu'on n'avais pas vu un "baveu" sur ce site!
>>> > > > Débarasse, on n'a pas besoin de quelqu'un comme toi!!!!
>>> > > >
>>> > > > "Eddy Maue" wrote:
>>> > > >
>>> > > >> Alors faut juste précisé.
>>> > > >>
>>> > > >> Ici c'est vb.net alors que tu ne mentionnes que vb 2005
>>> > > >>
>>> > > >> et bien sure comme papa et moman on toujours répondu à tes
>>> > > >> attentes,
>>> > > >> qu'il
>>> > > >> n'ont jamais opposés quoi que ce soit à leur petite Annie, on
>>> > > >> peut
>>> > > >> s'attendre à
>>> > > >> ce genre de boutade
>>> > > >>
>>> > > >> > Tu pourrait laissez faire pour ces petits commentaires dont on
>>> > > >> > pourrait
>>> > > >> > volontier se passer!!!!!!!
>>> > > >>
>>> > > >> De je vois que tu as précisés et dommage que tu ne sois gentille,
>>> > > >> je
>>> > > >> t'aurais
>>> > > >> donné la réponse
>>> > > >>
>>> > > >> a+ et je passe mon tour
>>> > > >>
>>> > > >>
>>> > > >> Annie a pensé très fort :
>>> > > >> > Je me ne trompes pas de FORUM, car je travaille avec VB.Net
>>> > > >> > C'est avec le code de VB.net que je veux compacter ma base de
>>> > > >> > données!
>>> > > >>
>>> > > >>
>>> > > >> > Si tu n'as pas d'idée constructive, évite tes petits
>>> > > >> > commentaires!
>>> > > >>
>>> > > >> > Je travaille en VB.NET, suis-je dans le bon Forum d'après toi
>>> > > >> > ????
>>> > > >>
>>> > > >> > "Eddy Maue" wrote:
>>> > > >>
>>> > > >> >> tu te trompes de forum
>>> > > >> >>
>>> > > >> >> a+
>>> > > >> >>
>>> > > >> >> Le 30-04-08, Annie L. a supposé :
>>> > > >> >>> En Visual Basic 2005, comment peut-on faire pour compacter
>>> > > >> >>> une base
>>> > > >> >>> de
>>> > > >> >>> données MS Access dans le code ?
>>> > > >> >>
>>> > > >> >>> Merci de vos réponse!
>>> > > >> >>
>>> > > >>
>>> > > >>
>>> > > >>
>>> > >
>>> > >
>>> > >


Avatar
Jo
bizarre pour les liens ils fonctionnent
avez vous essayer de les copier et de les coller directement dans le
navigateur ?


"Annie" a écrit dans le message de groupe
de discussion :
Je clique sur ce lien et je vois une page vide et le mot "terminé" dans le
bas!!!!

mais je vais essayer l'exemple fournit!

Merci pour votre dévouement et vos réponses!



"Jo" wrote:

en complément voir:

http://support.microsoft.com/kb/230501/fr

Cordialement
Jo

"Jo" a écrit dans le message de groupe de discussion :

> Bonjour, moi je fais:
>
> ajouter la reference 'Microsoft Jet and Replication Objects x.xx
>
> Private Sub frmPrincipal_FormClosing(ByVal sender As Object, ByVal e As
> System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
> If ModifBase = True Then
> Compactage()
> End If
> End Sub
>
> Private Sub Compactage()
> Try
> Dim BaseActuel As String = Application.StartupPath &
> "LeFichier.mdb"
> Dim BaseCompactée As String = Application.StartupPath &
> "LeFichier_B.mdb"
> Dim dbPassWord As String = "Le Pass"
> '
> ' Pour Compactage reference 'Microsoft Jet and Replication
> Objects x.xx
> Dim JRO As JRO.JetEngine
> JRO = New JRO.JetEngine
> '
> Me.Cursor = Cursors.AppStarting
> Me.StatusFichier.Text = "Compactage base de données en
> cours..."
> '
> 'Si le fichier de base compactée existe déjà
> If My.Computer.FileSystem.FileExists(BaseCompactée) = True
> Then
> My.Computer.FileSystem.DeleteFile(BaseCompactée)
> End If
> '
> 'Compactage
> 'pour jet 4 (;Jet OLEDB:Engine Type=5;)
> JRO.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=" & BaseActuel & ";Jet OLEDB:Database Password=" & dbPassWord, _
> "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> BaseCompactée & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password="
> &
> dbPassWord)
> '
> 'Copie base compactée vers fichier base actuel
> My.Computer.FileSystem.CopyFile(BaseCompactée, BaseActuel,
> True)
> ' supprime fichier base compactée
> My.Computer.FileSystem.DeleteFile(BaseCompactée)
> '
> ModifBase = False
> Me.StatusFichier.Text = "Compactage terminer..."
> Me.Cursor = Cursors.AppStarting
> Catch ex As Exception
> MsgBox(ex.Message, vbCritical, "Compactage base de données")
> End Try
> End Sub
>
> Cordialement
> Jo
>
> "Annie" a écrit dans le message de
> groupe de discussion :
>
>> Cela fonctionne-t-il sans Ms Access?
>> Je m'explique...
>> Mon programme comporte une base de données avec le moteur Jet
>> seulement.
>> Il n'y a pas de MS Access sur les postes où est installé mon
>> programme,
>> mais
>> seulement la base de données!!!
>>
>> Merci de vos réponses!
>>
>> "Euclide" wrote:
>>
>>> Tu peux toujours lancer un shell du type:
>>> MSACCESS.EXE MaBaseAccess /COMPACT
>>>
>>> "Annie" a écrit :
>>>
>>> > Page vide, il n'y a rien!!!!!
>>> >
>>> > "Eric" wrote:
>>> >
>>> > > Bonsoir,
>>> > >
>>> > > Tu peux aller voir la:
>>> > >
>>> > > http://support.microsoft.com/default.aspx?scid=kb;en-us;306287
>>> > >
>>> > > a+
>>> > >
>>> > > EricG
>>> > >
>>> > > "Annie" a écrit dans le message
>>> > > de
>>> > > news:
>>> > >
>>> > > > VB.net et VB 2005 c'est la même chose!!!!!
>>> > > > Tout comme VB.Net et Vb 2003 c'est pareil!!!!
>>> > > > Je le savais que j'avais affaire à un "chialeux"
>>> > > > Dénigrer les autres!!! Ça tu es très fort là-dessus comme on
>>> > > > peut
>>> > > > le
>>> > > > constater!
>>> > > > Il y a longtemps qu'on n'avais pas vu un "baveu" sur ce site!
>>> > > > Débarasse, on n'a pas besoin de quelqu'un comme toi!!!!
>>> > > >
>>> > > > "Eddy Maue" wrote:
>>> > > >
>>> > > >> Alors faut juste précisé.
>>> > > >>
>>> > > >> Ici c'est vb.net alors que tu ne mentionnes que vb 2005
>>> > > >>
>>> > > >> et bien sure comme papa et moman on toujours répondu à tes
>>> > > >> attentes,
>>> > > >> qu'il
>>> > > >> n'ont jamais opposés quoi que ce soit à leur petite Annie, on
>>> > > >> peut
>>> > > >> s'attendre à
>>> > > >> ce genre de boutade
>>> > > >>
>>> > > >> > Tu pourrait laissez faire pour ces petits commentaires dont
>>> > > >> > on
>>> > > >> > pourrait
>>> > > >> > volontier se passer!!!!!!!
>>> > > >>
>>> > > >> De je vois que tu as précisés et dommage que tu ne sois
>>> > > >> gentille,
>>> > > >> je
>>> > > >> t'aurais
>>> > > >> donné la réponse
>>> > > >>
>>> > > >> a+ et je passe mon tour
>>> > > >>
>>> > > >>
>>> > > >> Annie a pensé très fort :
>>> > > >> > Je me ne trompes pas de FORUM, car je travaille avec VB.Net
>>> > > >> > C'est avec le code de VB.net que je veux compacter ma base
>>> > > >> > de
>>> > > >> > données!
>>> > > >>
>>> > > >>
>>> > > >> > Si tu n'as pas d'idée constructive, évite tes petits
>>> > > >> > commentaires!
>>> > > >>
>>> > > >> > Je travaille en VB.NET, suis-je dans le bon Forum d'après
>>> > > >> > toi
>>> > > >> > ????
>>> > > >>
>>> > > >> > "Eddy Maue" wrote:
>>> > > >>
>>> > > >> >> tu te trompes de forum
>>> > > >> >>
>>> > > >> >> a+
>>> > > >> >>
>>> > > >> >> Le 30-04-08, Annie L. a supposé :
>>> > > >> >>> En Visual Basic 2005, comment peut-on faire pour compacter
>>> > > >> >>> une base
>>> > > >> >>> de
>>> > > >> >>> données MS Access dans le code ?
>>> > > >> >>
>>> > > >> >>> Merci de vos réponse!
>>> > > >> >>
>>> > > >>
>>> > > >>
>>> > > >>
>>> > >
>>> > >
>>> > >




Avatar
Annie
J'ai même copier à la main les 2 adresses dans mon navigateur et il m'affiche
toujours une page blanche! Bien bizarre comme tu dis! mais ce n'est pas grave!
J'ai déjà un bon exemple et je vais construire avec cela!

Un gros merci pour votre aide!

"Jo" wrote:

bizarre pour les liens ils fonctionnent
avez vous essayer de les copier et de les coller directement dans le
navigateur ?


"Annie" a écrit dans le message de groupe
de discussion :
> Je clique sur ce lien et je vois une page vide et le mot "terminé" dans le
> bas!!!!
>
> mais je vais essayer l'exemple fournit!
>
> Merci pour votre dévouement et vos réponses!
>
>
>
> "Jo" wrote:
>
>> en complément voir:
>>
>> http://support.microsoft.com/kb/230501/fr
>>
>> Cordialement
>> Jo
>>
>> "Jo" a écrit dans le message de groupe de discussion :
>>
>> > Bonjour, moi je fais:
>> >
>> > ajouter la reference 'Microsoft Jet and Replication Objects x.xx
>> >
>> > Private Sub frmPrincipal_FormClosing(ByVal sender As Object, ByVal e As
>> > System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
>> > If ModifBase = True Then
>> > Compactage()
>> > End If
>> > End Sub
>> >
>> > Private Sub Compactage()
>> > Try
>> > Dim BaseActuel As String = Application.StartupPath &
>> > "LeFichier.mdb"
>> > Dim BaseCompactée As String = Application.StartupPath &
>> > "LeFichier_B.mdb"
>> > Dim dbPassWord As String = "Le Pass"
>> > '
>> > ' Pour Compactage reference 'Microsoft Jet and Replication
>> > Objects x.xx
>> > Dim JRO As JRO.JetEngine
>> > JRO = New JRO.JetEngine
>> > '
>> > Me.Cursor = Cursors.AppStarting
>> > Me.StatusFichier.Text = "Compactage base de données en
>> > cours..."
>> > '
>> > 'Si le fichier de base compactée existe déjà
>> > If My.Computer.FileSystem.FileExists(BaseCompactée) = True
>> > Then
>> > My.Computer.FileSystem.DeleteFile(BaseCompactée)
>> > End If
>> > '
>> > 'Compactage
>> > 'pour jet 4 (;Jet OLEDB:Engine Type=5;)
>> > JRO.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data
>> > Source=" & BaseActuel & ";Jet OLEDB:Database Password=" & dbPassWord, _
>> > "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
>> > BaseCompactée & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password="
>> > &
>> > dbPassWord)
>> > '
>> > 'Copie base compactée vers fichier base actuel
>> > My.Computer.FileSystem.CopyFile(BaseCompactée, BaseActuel,
>> > True)
>> > ' supprime fichier base compactée
>> > My.Computer.FileSystem.DeleteFile(BaseCompactée)
>> > '
>> > ModifBase = False
>> > Me.StatusFichier.Text = "Compactage terminer..."
>> > Me.Cursor = Cursors.AppStarting
>> > Catch ex As Exception
>> > MsgBox(ex.Message, vbCritical, "Compactage base de données")
>> > End Try
>> > End Sub
>> >
>> > Cordialement
>> > Jo
>> >
>> > "Annie" a écrit dans le message de
>> > groupe de discussion :
>> >
>> >> Cela fonctionne-t-il sans Ms Access?
>> >> Je m'explique...
>> >> Mon programme comporte une base de données avec le moteur Jet
>> >> seulement.
>> >> Il n'y a pas de MS Access sur les postes où est installé mon
>> >> programme,
>> >> mais
>> >> seulement la base de données!!!
>> >>
>> >> Merci de vos réponses!
>> >>
>> >> "Euclide" wrote:
>> >>
>> >>> Tu peux toujours lancer un shell du type:
>> >>> MSACCESS.EXE MaBaseAccess /COMPACT
>> >>>
>> >>> "Annie" a écrit :
>> >>>
>> >>> > Page vide, il n'y a rien!!!!!
>> >>> >
>> >>> > "Eric" wrote:
>> >>> >
>> >>> > > Bonsoir,
>> >>> > >
>> >>> > > Tu peux aller voir la:
>> >>> > >
>> >>> > > http://support.microsoft.com/default.aspx?scid=kb;en-us;306287
>> >>> > >
>> >>> > > a+
>> >>> > >
>> >>> > > EricG
>> >>> > >
>> >>> > > "Annie" a écrit dans le message
>> >>> > > de
>> >>> > > news:
>> >>> > >
>> >>> > > > VB.net et VB 2005 c'est la même chose!!!!!
>> >>> > > > Tout comme VB.Net et Vb 2003 c'est pareil!!!!
>> >>> > > > Je le savais que j'avais affaire à un "chialeux"
>> >>> > > > Dénigrer les autres!!! Ça tu es très fort là-dessus comme on
>> >>> > > > peut
>> >>> > > > le
>> >>> > > > constater!
>> >>> > > > Il y a longtemps qu'on n'avais pas vu un "baveu" sur ce site!
>> >>> > > > Débarasse, on n'a pas besoin de quelqu'un comme toi!!!!
>> >>> > > >
>> >>> > > > "Eddy Maue" wrote:
>> >>> > > >
>> >>> > > >> Alors faut juste précisé.
>> >>> > > >>
>> >>> > > >> Ici c'est vb.net alors que tu ne mentionnes que vb 2005
>> >>> > > >>
>> >>> > > >> et bien sure comme papa et moman on toujours répondu à tes
>> >>> > > >> attentes,
>> >>> > > >> qu'il
>> >>> > > >> n'ont jamais opposés quoi que ce soit à leur petite Annie, on
>> >>> > > >> peut
>> >>> > > >> s'attendre à
>> >>> > > >> ce genre de boutade
>> >>> > > >>
>> >>> > > >> > Tu pourrait laissez faire pour ces petits commentaires dont
>> >>> > > >> > on
>> >>> > > >> > pourrait
>> >>> > > >> > volontier se passer!!!!!!!
>> >>> > > >>
>> >>> > > >> De je vois que tu as précisés et dommage que tu ne sois
>> >>> > > >> gentille,
>> >>> > > >> je
>> >>> > > >> t'aurais
>> >>> > > >> donné la réponse
>> >>> > > >>
>> >>> > > >> a+ et je passe mon tour
>> >>> > > >>
>> >>> > > >>
>> >>> > > >> Annie a pensé très fort :
>> >>> > > >> > Je me ne trompes pas de FORUM, car je travaille avec VB.Net
>> >>> > > >> > C'est avec le code de VB.net que je veux compacter ma base
>> >>> > > >> > de
>> >>> > > >> > données!
>> >>> > > >>
>> >>> > > >>
>> >>> > > >> > Si tu n'as pas d'idée constructive, évite tes petits
>> >>> > > >> > commentaires!
>> >>> > > >>
>> >>> > > >> > Je travaille en VB.NET, suis-je dans le bon Forum d'après
>> >>> > > >> > toi
>> >>> > > >> > ????
>> >>> > > >>
>> >>> > > >> > "Eddy Maue" wrote:
>> >>> > > >>
>> >>> > > >> >> tu te trompes de forum
>> >>> > > >> >>
>> >>> > > >> >> a+
>> >>> > > >> >>
>> >>> > > >> >> Le 30-04-08, Annie L. a supposé :
>> >>> > > >> >>> En Visual Basic 2005, comment peut-on faire pour compacter
>> >>> > > >> >>> une base
>> >>> > > >> >>> de
>> >>> > > >> >>> données MS Access dans le code ?
>> >>> > > >> >>
>> >>> > > >> >>> Merci de vos réponse!
>> >>> > > >> >>
>> >>> > > >>
>> >>> > > >>
>> >>> > > >>
>> >>> > >
>> >>> > >
>> >>> > >


Avatar
andre.araste
Bonjour

Arrêtez ces réflexions désagréables qui font perdre du temps à tout le mode.
Il est permis de se tromper. Visual Basic 2500 express Édition, c'est du
.net et quand bien même ce n'en serait pas, un membre de la famille
Programmeur doit toujours être accueilli courtoisement.

Quand je n'apprécie pas une intervention, je ne réponds pas.
--
Bonne réception.

http://perso.orange.fr/andre.araste/
Membre du Club Win's: http://www.clubwins.org
Avertissement: Je ne vends rien.




"Eddy Maue" @hotmail.com> a écrit dans le message de news:

Alors faut juste précisé.

Ici c'est vb.net alors que tu ne mentionnes que vb 2005

et bien sure comme papa et moman on toujours répondu à tes attentes, qu'il
n'ont jamais opposés quoi que ce soit à leur petite Annie, on peut
s'attendre à ce genre de boutade

Tu pourrait laissez faire pour ces petits commentaires dont on pourrait
volontier se passer!!!!!!!



De je vois que tu as précisés et dommage que tu ne sois gentille, je
t'aurais donné la réponse

a+ et je passe mon tour


Annie a pensé très fort :
Je me ne trompes pas de FORUM, car je travaille avec VB.Net
C'est avec le code de VB.net que je veux compacter ma base de données!




Si tu n'as pas d'idée constructive, évite tes petits commentaires!



Je travaille en VB.NET, suis-je dans le bon Forum d'après toi ????



"Eddy Maue" wrote:



tu te trompes de forum

a+

Le 30-04-08, Annie L. a supposé :
En Visual Basic 2005, comment peut-on faire pour compacter une base de
données MS Access dans le code ?



Merci de vos réponse!











Avatar
Eddy Maue
Chère Annie,

Vb.net c'est la programmation objet et vb 2005 c'est de la programmation de
composants. Y'a toute un monde qui sépare les deux.

a+ et j'espère que tu n'as pas cassé ton clavier en l'enfoncant de tes lourdes
mains :')

quoi qu'il en soit si je suis un chialleux, toi tu es une excessive
compulsive.



Annie a formulé ce lundi :
VB.net et VB 2005 c'est la même chose!!!!!
Tout comme VB.Net et Vb 2003 c'est pareil!!!!
Je le savais que j'avais affaire à un "chialeux"
Dénigrer les autres!!! Ça tu es très fort là-dessus comme on peut le
constater!
Il y a longtemps qu'on n'avais pas vu un "baveu" sur ce site!
Débarasse, on n'a pas besoin de quelqu'un comme toi!!!!



"Eddy Maue" wrote:



Alors faut juste précisé.

Ici c'est vb.net alors que tu ne mentionnes que vb 2005

et bien sure comme papa et moman on toujours répondu à tes attentes, qu'il
n'ont jamais opposés quoi que ce soit à leur petite Annie, on peut
s'attendre à ce genre de boutade

Tu pourrait laissez faire pour ces petits commentaires dont on pourrait
volontier se passer!!!!!!!



De je vois que tu as précisés et dommage que tu ne sois gentille, je
t'aurais donné la réponse

a+ et je passe mon tour

Annie a pensé très fort :
Je me ne trompes pas de FORUM, car je travaille avec VB.Net
C'est avec le code de VB.net que je veux compacter ma base de données!



Si tu n'as pas d'idée constructive, évite tes petits commentaires!
Je travaille en VB.NET, suis-je dans le bon Forum d'après toi ????
"Eddy Maue" wrote:







1 2