Discussion :

[lerico]

Bonjour à tous,

Je voudrais créer une table sans passer par CREATE TABLE en sql.
J'ai trouvé un code mais il ne créé rien et je suis un peu juste sur ce type de langage :

Code :

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
20
21
Sub CreateRS()
 
    Dim rs As New ADODB.Recordset
 
    rs.Fields.Append "Field1", adChar, 10
    rs.Fields.Append "Field2", adInteger
 
    rs.Open
    rs.AddNew
    rs("Field1") = "any string"
    rs("Field2") = 9
 
    Do While Not rs.EOF
        Debug.Print rs("Field1") & " " & rs("Field2")
        rs.MoveNext
    Loop
 
    rs.Close
    Set rs = Nothing
 
End Sub

Pouvez-vous me dire ce qui manque pour créer la table ?

Je ne veux pas passer par CREATE TABLE parce-que je dois créer un champ de type oui/non et de type text. En SQL, seul le type text est possible.

Quel est le type à utiliser dans le code ci-dessus pour oui/non.

Merci,

LeRico

[pgz]

Bonjour,

Je ne veux pas passer par CREATE TABLE parce-que je dois créer un champ de type oui/non et de type text. En SQL, seul le type text est possible.

Je suis très surpris par cette affirmation. A ma connaissance, on peut très bien définir le type de chaque champ dans une instruction CREATE TABLE.

Si j'ai tort, promis je t'aide à faire autrement.

pgz

[lerico]

Effectivement, je suis allé un peu vite. Les types sont multiples.
Par contre, je ne le connais pas. Je vais regarder les tutoriels en SQL.

En faîte, je cherche le code le plus rapide pour créer une table.
Je fais peut être une erreur mais je crois qu'en DAO, cela va plus vite.

LeRico

[ActionAccess]

Bonjour,

Voici un exemple de code pour créer une table avec DAO (ne pas oublier d'ajouter la référence) :

Code :

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
20
21
22
23
24
25
26
27
28
Sub DAOCreateTable()
 
Dim db As DAO.Database
Dim tbl As DAO.TableDef
 
' Ouvre la base de données
Set db = CurrentDb
 
' Crée une nouvelle table Contacts.
Set tbl = db.CreateTableDef("Contacts")
 
With tbl
' Crée les champs et les ajoute à la table.
' Cela doit être fait avant d'ajouter la table à la collection
' TableDefs de la base de données.
.Fields.Append .CreateField("NomContact", dbText)
.Fields.Append .CreateField("TitreContact", dbText)
.Fields.Append .CreateField("Téléphone", dbText)
.Fields.Append .CreateField("Commentaires", dbMemo)
.Fields("Commentaires").Required = False
End With
 
' Ajoute la nouvelle table à la base de données.
db.TableDefs.Append tbl
 
db.Close
 
End Sub

Pour un champ de type OUI/NON, mettre dbBoolean.

Bon courage

[lerico]

Merci pour ta réponse et ton code. Je vais m'en inspirer.

Pour info, pour un type oui/non, concernant la fonction SQL CREATE TABLE, il faut mettre BIT.

Code :

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

1
2
3
4
5
Function tab1()
 
DoCmd.RunSQL "CREATE TABLE RS (Coche BIT, Nom TEXT)"
 
End Function

La fonction marche mais ce qui est étonnant, c'est que le champ, malgrés le type oui/non, n'apparaît pas avec le petit carré à cocher mais seulement avec -1 et 0 ?

LeRico

[lerico]

Le code de ActionAccess fonctionne parfaitement.

Le type dbBoolean réagit de la même manière que le type BIT pour le SQL.

Cela me va.

Merci à tous.

LeRico