Création de table par code

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:

---

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

Bonjour,

Citation:

---

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

:oops: 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

Bonjour,

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

Code:

---

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

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:

---

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

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