créer une table temporaire dans access

bonjour.
je voudrais le code qui me permette de supprimer une table "z_balance_stock" en access si elle existe.
de plus, je voudrais recréer la table

voilà mon code

Code:

---

CREATE TABLE [z_balancestock] ([codearticle] texte(10),[precedent] double,[entre] double,[retourfourn] as double,[sorti] double,[retourclient] double,[Ajuste] double,[Actuel] double)

---

à l'exécution, j'ai l'erreur suivante

Citation:

---

Erreur de syntaxe dans la définition de champ.

---

je voudrais savoir ce qui n'a pas marché

Salut,
Code pour créer une table:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Cmd As OleDbCommand Dim SQL As String Dim objCmd As New OleDbCommand   Dim Con = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;data source=" & Database & "")   SQL = "CREATE TABLE tbCatalogue ([codearticle] texte(10),[precedent] double,[entre] double,[retourfourn] double,[sorti] double,[retourclient] double,[Ajuste] double,[Actuel] double)" Cmd = New OleDbCommand(SQL, Con)   Con.Open() objCmd = New OleDbCommand(SQL, Con) objCmd.ExecuteNonQuery() Con.Close()

---

Regarde ton code :
Il n'y a pas de "as" içi

Code:

---

[retourfourn] as double

---

Bonjour

Ton create table va supprimer la table existante .
Supprimer les messages d'avertissement(docmd.setwarnig false en vba) avant et pas besoin de faire un drop table .
Sinon si tu préfère utilise la commande Drop table "Nom_De_Ta_Table"

Voila
;)

merci beaucoup pour le premier @moiced50

Citation:

---

utilise la commande Drop table "Nom_De_Ta_Table"

---

et si je veux vérifier que la table "Nom_De_Ta_Table" existe déjà (avant de la supprimer) pour être sur que je ne vais pas générer une erreur,
comment je fais?

Peut etre ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

SchemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})   Dim int As Integer For int = 0 To SchemaTable.Rows.Count - 1 If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then 'Add items to list box If SchemaTable.Rows(int)!TABLE_NAME.ToString() = "z_balance_stock" then effacer table exit for end if End If Next

---

merci beaucoup.
mon code marche à merveille

pour le bout de code

Code:

---

SchemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})

---

il faut s'assurer que la connexion est ouverte. quit à la refermer après

Code:

---

1 2 3

oledbConn.Open() dim SchemaTable = OledbConn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing}) oledbConn.Close()

---