Discussion :

[kikilevrai]

Bonjour tout le monde j'aimerai savoir comment remettre l'auto incrément à zéro par une requete SQL sous ACCES (en VBA) J'ai essayer avec cette syntaxe (comme sous mysql)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ALTER TABLE nom_table
auto_increment = 0

Mais sa ne fonctionne pas sa serait trop beau lol est - ce que quelqu'un connaot la syntaxe SVP

Merci d'avance

[jean-paul lepetit]

Salut,

Tu veux remettre à Zéro un champ numéro Auto ?

Je pense que c'est impossible, la seule solution est de faire une copie de la structure de la table

[Gary_Stoupy]

Très juste...
Tu ne peux pas remettre à zéro un auto-increment par du code SQL

[kikilevrai]

Arf ok je pensais que c'était possible comme sous MYSQL ont peut le remttre à 0 merci pour vos réponse rapide !

[vaan3713]

Bonjour tout le monde j'aimerai savoir comment remettre l'auto incrément à zéro par une requete SQL sous ACCES (en VBA) J'ai essayer avec cette syntaxe (comme sous mysql)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ALTER TABLE nom_table
auto_increment = 0

Mais sa ne fonctionne pas sa serait trop beau lol est - ce que quelqu'un connaot la syntaxe SVP

Merci d'avance

après quelques années...

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

DBCC CHECKIDENT ('nom_de_la_table', RESEED, 0)

[jean-paul lepetit]

salut,

Et comment code tu ça en VB ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.runsql....?

[vaan3713]

salut,

Et comment code tu ça en VB ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.runsql....?

je sais vraiment pas mais je pense que tu peu utiliser un "SqlCommand"

Code VB.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Imports System.Data.SqlClient
 
Public Class maClass
    Private con As New SqlConnection("Connexion_a_sql_server")
    Private cmd as SqlCommand
    Private sub trucXD()
       Try
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "DBCC CHECKIDENT ('nom_de_la_table', RESEED, 0)"
            cmd.ExecuteNonQuery()
        Catch sqlex As SqlException
            MsgBox(sqlex.Message)
        Finally
            con.Close()
        End Try
    End Sub
End Class

[vodiem]

je passe un peu tard...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "ALTER TABLE matable ALTER COLUMN indice COUNTER(base,pas)"

avec par ex: base=1 et pas=1

[ROMS77]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "ALTER TABLE matable ALTER COLUMN indice COUNTER(base,pas)"

Mon problème est le suivant :
- J'ai bien remplacer "matable", "indice", "base" et "pas" par les valeurs appropriées,
- J'utilise une fonction VBA,

Je ne comprend donc pas pourquoi cela ne fonctionne pas,
voici mon message d'erreur lors du Debug :

Erreur d'exécution '3259':
Type de champs de données non valide.

Que faire ?

[ROMS77]

Voici la solution que j'ai trouver (sans utiliser de table tampon, et sans compacter la base, donc en la gardant ouverte !) :

J'ai donc utiliser le code de vodiem,
seulement avant de l'utiliser j'ai supprimer le champs de la table,
j'en ai recréer un,
et je l'ai fait démarrer de 1 avec un pas de 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
' Suppression de monChamp dans maTable
DoCmd.RunSQL "ALTER TABLE maTable DROP COLUMN monChamp"
' Ajout de monChamp de type COUNTER dans maTable
DoCmd.RunSQL "ALTER TABLE maTable ADD monChamp COUNTER"
' Départ de monChamp de type COUNTER à base avec un pas de step
DoCmd.RunSQL "ALTER TABLE maTable ALTER COLUMN monChamp COUNTER(base,step)"

/!\ Avant tout, il faut que monChamps ne soit ni un index, ni une clé primaire pour qu'il puisse être supprimé /!\

Voilà, j'espère que cela servira