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