Nom de champ en VBA

Le
Michel B
Bonjours a tous,

Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :

CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )

Quelques explications serait le bienvenue

D'avance merci
Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilbert
Le #7042051
Bonjour,

Extrait de l'aide d'Access :
Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)

Cet exemple crée une nouvelle table nommée ThisTable comportant deux champs
text.

Sub CreateTableX1()


Dim dbs As Database


' Modify this line to include the path to Northwind

' on your computer.

Set dbs = OpenDatabase(".mdb")


' Create a table with two text fields.

dbs.Execute "CREATE TABLE ThisTable " _

& "(FirstName CHAR, LastName CHAR, " _


dbs.Close


End Sub


Cet exemple crée une nouvelle table nommée MyTable comportant deux champs
text, un champ Date/Time et un index unique composé des trois champs

Sub CreateTableX2()


Dim dbs As Database


' Modify this line to include the path to Northwind

' on your computer.

Set dbs = OpenDatabase(".mdb")


' Create a table with three fields and a unique

' index made up of all three fields.

dbs.Execute "CREATE TABLE MyTable " _

& "(FirstName CHAR, LastName CHAR, " _

& "[DateOfBirth] DATETIME, " _

& "CONSTRAINT MyTableConstraint UNIQUE " _

& "(FirstName, LastName, [DateOfBirth]));"


dbs.Close


End Sub


Cet exemple crée une nouvelle table comportant deux champs text et un champ
integer. Le champ SSN constitue la clé primaire.

Sub CreateTableX3()


Dim dbs As Database


' Modify this line to include the path to Northwind

' on your computer.

Set dbs = OpenDatabase(".mdb")


' Create a table with three fields and a ^primary

' key.

dbs.Execute "CREATE TABLE NewTable " _

& "(FirstName CHAR, LastName CHAR, " _

& "SSN INTEGER CONSTRAINT MyFieldConstraint " _

& "PRIMARY KEY);"


dbs.Close


End Sub


--
Cordialement,

Gilbert


"Michel B" news:485a0df8$0$4533$

Bonjours a tous,

Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :

CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )

Quelques explications serait le bienvenue

D'avance merci
Michel




Michel B
Le #7043231
Bonjour Gilbert,

Merci pour ton aide

J'ai fait cela et ça fonctionne bien, jusqu'a "Saison" en revanche "Actif "
qui doit être un champ Oui/Non génére une erreur.
Je ne trouve pas dans l'aide la syntaxe a utiliser pour les différents type
de champs


Dim dbs As Database
Set dbs = OpenDatabase("C:BaseBase2003.mdb")
dbs.Execute "CREATE TABLE Mutations (N°Adherent LONG, N°Structure
LONG, Saison CHAR, Actif BOOL) "
dbs.Close

Encore merci
Michel


"Gilbert" %
Bonjour,

Extrait de l'aide d'Access :
Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)

Cet exemple crée une nouvelle table nommée ThisTable comportant deux
champs
text.

Sub CreateTableX1()


Dim dbs As Database


' Modify this line to include the path to Northwind

' on your computer.

Set dbs = OpenDatabase(".mdb")


' Create a table with two text fields.

dbs.Execute "CREATE TABLE ThisTable " _

& "(FirstName CHAR, LastName CHAR, " _


dbs.Close


End Sub


Cet exemple crée une nouvelle table nommée MyTable comportant deux champs
text, un champ Date/Time et un index unique composé des trois champs

Sub CreateTableX2()


Dim dbs As Database


' Modify this line to include the path to Northwind

' on your computer.

Set dbs = OpenDatabase(".mdb")


' Create a table with three fields and a unique

' index made up of all three fields.

dbs.Execute "CREATE TABLE MyTable " _

& "(FirstName CHAR, LastName CHAR, " _

& "[DateOfBirth] DATETIME, " _

& "CONSTRAINT MyTableConstraint UNIQUE " _

& "(FirstName, LastName, [DateOfBirth]));"


dbs.Close


End Sub


Cet exemple crée une nouvelle table comportant deux champs text et un
champ
integer. Le champ SSN constitue la clé primaire.

Sub CreateTableX3()


Dim dbs As Database


' Modify this line to include the path to Northwind

' on your computer.

Set dbs = OpenDatabase(".mdb")


' Create a table with three fields and a ^primary

' key.

dbs.Execute "CREATE TABLE NewTable " _

& "(FirstName CHAR, LastName CHAR, " _

& "SSN INTEGER CONSTRAINT MyFieldConstraint " _

& "PRIMARY KEY);"


dbs.Close


End Sub


--
Cordialement,

Gilbert


"Michel B" news:485a0df8$0$4533$

Bonjours a tous,

Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :

CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )

Quelques explications serait le bienvenue

D'avance merci
Michel








Gilbert
Le #7043211
As-tu essayé avec BOOLEAN?

--
Cordialement,

Gilbert


"Michel B" news:485a2c43$0$19721$
Bonjour Gilbert,

Merci pour ton aide

J'ai fait cela et ça fonctionne bien, jusqu'a "Saison" en revanche "Actif


"
qui doit être un champ Oui/Non génére une erreur.
Je ne trouve pas dans l'aide la syntaxe a utiliser pour les différents


type
de champs


Dim dbs As Database
Set dbs = OpenDatabase("C:BaseBase2003.mdb")
dbs.Execute "CREATE TABLE Mutations (N°Adherent LONG, N°Structure
LONG, Saison CHAR, Actif BOOL) "
dbs.Close

Encore merci
Michel


"Gilbert" %
> Bonjour,
>
> Extrait de l'aide d'Access :
> Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)
>
> Cet exemple crée une nouvelle table nommée ThisTable comportant deux
> champs
> text.
>
> Sub CreateTableX1()
>
>
> Dim dbs As Database
>
>
> ' Modify this line to include the path to Northwind
>
> ' on your computer.
>
> Set dbs = OpenDatabase(".mdb")
>
>
> ' Create a table with two text fields.
>
> dbs.Execute "CREATE TABLE ThisTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
>
> dbs.Close
>
>
> End Sub
>
>
> Cet exemple crée une nouvelle table nommée MyTable comportant deux


champs
> text, un champ Date/Time et un index unique composé des trois champs
>
> Sub CreateTableX2()
>
>
> Dim dbs As Database
>
>
> ' Modify this line to include the path to Northwind
>
> ' on your computer.
>
> Set dbs = OpenDatabase(".mdb")
>
>
> ' Create a table with three fields and a unique
>
> ' index made up of all three fields.
>
> dbs.Execute "CREATE TABLE MyTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
> & "[DateOfBirth] DATETIME, " _
>
> & "CONSTRAINT MyTableConstraint UNIQUE " _
>
> & "(FirstName, LastName, [DateOfBirth]));"
>
>
> dbs.Close
>
>
> End Sub
>
>
> Cet exemple crée une nouvelle table comportant deux champs text et un
> champ
> integer. Le champ SSN constitue la clé primaire.
>
> Sub CreateTableX3()
>
>
> Dim dbs As Database
>
>
> ' Modify this line to include the path to Northwind
>
> ' on your computer.
>
> Set dbs = OpenDatabase(".mdb")
>
>
> ' Create a table with three fields and a ^primary
>
> ' key.
>
> dbs.Execute "CREATE TABLE NewTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
> & "SSN INTEGER CONSTRAINT MyFieldConstraint " _
>
> & "PRIMARY KEY);"
>
>
> dbs.Close
>
>
> End Sub
>
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Michel B" > news:485a0df8$0$4533$
>>
>> Bonjours a tous,
>>
>> Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
>> sépare les champs en VBA :
>>
>> CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
>> ,[Saison] Str )
>>
>> Quelques explications serait le bienvenue
>>
>> D'avance merci
>> Michel
>>
>>
>
>




3stone
Le #7044111
Salut,

"Michel B"
| Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
| sépare les champs en VBA :
|
| CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
| ,[Saison] Str )
|
| Quelques explications serait le bienvenue


Regarde ceci :
http://www.3stone.be/access/articles.php?lng=fr&pg&

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Publicité
Poster une réponse
Anonyme