Discussion :

[djelloharmel]

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 :

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

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

Erreur de syntaxe dans la définition de champ.

je voudrais savoir ce qui n'a pas marché

[hugoclo]

Salut,
Code pour créer une table:

Code :

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

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 :

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

[retourfourn] as double

[moiced50]

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

[djelloharmel]

merci beaucoup pour le premier @moiced50

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?

[hugoclo]

Peut etre ca

Code :

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

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

[djelloharmel]

merci beaucoup.
mon code marche à merveille

pour le bout de code

Code :

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

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 :

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

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