CREATE DATABASERésolu

Question

Bonjour,

J'essaie d'utiliser une base de donn&#233;es ACCESS dans mon code en VB6.
J'aimerais que mon code cr&#233;e une base de donn&#233;es ACCESS vide nomm&#233;e pool.mdb si elle n'existe pas d&#233;j&#224;.

Partout o&#249; je cherche, tout le monde dit d'utiliser ADODB pour g&#233;rer les bases de donn&#233;es ACCESS, mais tous les exemples de cr&#233;ation d'un fichier de base de donn&#233;es ACCESS utilisent DAO...

Quelqu'un peut m'expliquer cette contradiction?
Mais surtout, quelqu'un peut m'indiquer comment cr&#233;er ma base ACCESS avec ADODB?

Ensuite, je voudrais savoir comment lister le nom des tables existantes d'une base de donn&#233;es ACCESS existante.
Autrement dit, l'&#233;quivalent MySQL :
SHOW DATABASES;
SHOW TABLES;
SELECT DATABASE();
DESCRIBE table;

Puis, surtout, pourquoi :
CREATE TABLE player_name IF NOT EXIST ( ...

ne fonctionne pas?
Comment je peux d&#233;tecter si une table existe ou non avant d'essayer de la cr&#233;er?

Compufly

cs_Willi · Accepted Answer

Salut,
Rajoute la r&#233;f&#233;rence Microsoft ADO Ext 2.xx for dll and security.

Donc pour cr&#233;er ta base access rien de plus simple:
Set catX = New ADOX.Catalog
catX.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TaBase.mdb"

cs_DARKSIDIOUS · Answer

C'est tout simplement qu'il est bien plus simple de créer une base de données avec DAO qu'avec ADO !!! Voir par exemple mon tutorial pour créer une base de données sur www.ProgOtoP.com _

Compufly · Answer

Je trouve la r&#233;ponse de Willi pourtant tr&#232;s simple ;)

Merci beaucoup...

Compufly

cs_Willi · Answer

Pour lister les tables de ta base (ajoute la r&#233;f microsoft activex data objects 2.x....)
Exemple dans un listbox:

    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    'connection &#224; la base
    con.Provider = "Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=C:\TaBase.mdb"
    con.Open
    
    'lecture des tables
    Set rs = con.OpenSchema(adSchemaTables)

    Do Until rs.EOF
        If rs.Fields("TABLE_TYPE") = "TABLE" Then
            List1.AddItem rs.Fields("TABLE_NAME")
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    con.Close

cs_DARKSIDIOUS · Answer

Eh eh, le code qu'il t'a donné précédement te permet juste de créer le fichier, mais pas la base en elle même ! Son deuxième messaye permet par contre de créer 1 table (et déjà, pas mal de lignes de code !!!), je te laisse imaginé le nombre de ligne qu'il faut pour créer une table complète avec des champs indéxés... ca fait peur !!! Le mieux : fait comme moi : créer une classe permettant de créer facilement et rapidement des tables/champs/index, etc. Désolé, mais je ne peux pas te donner le code de ma classe : étant donné que je veux vendre le produit d'ici peu... _

cs_Willi · Answer

Darksidious a raison pour ce qui concerne la cr&#233;ation de la base, la on cr&#233;er que le fichier.
C'est sur apr&#232;s comme te conseilles Darksidious cr&#233;er une classe pour simplifier les actions sur ta base...

Par contre il m'a semblait avoir lu il y a quelques temps voir plus d'un an, qu'il fallait pr&#233;f&#233;rer ado &#224; dao.
Qu'en pensez-vous ??

Compufly · Answer

D&#233;sol&#233; Dark Sidious, je m'&#233;tais probablement mal exprim&#233; au d&#233;part, je cherchais vraiment un code pour cr&#233;er le fichier .mdb donc le code de Willi &#233;tait exactement ce que je cherchais.

Je connais d&#233;j&#224; SQL, mais les seules applications que j'ai eu &#224; faire jusqu'&#224; maintenant &#233;taient en PERL et MySQL.
C'est surtout une question d'adaptation au VB6 et M$ ACCE$$ qui me bloque chaque fois que j'essaie de faire quelque chose.

Donc, encore une fois, merci Willi pour le code de cr&#233;ation du fichier.

Pour ce qui est de ADODB, je savais la base, mais je ne me serais jamais imagin&#233; que &#231;a prenait autant de code pour remplacer la bonne ville commande MySQL :
SHOW TABLES;

Merci

Par contre, le myst&#232;re suivant reste entier...

DESCRIBE table;
CREATE TABLE player_name IF NOT EXIST (...

Est-ce que la seule fa&#231;on de ne pas recr&#233;er une table est vraiment de lister toutes les tables et de faire une boucle de comparaison pour voir si celle qu'on veut cr&#233;er existe d&#233;j&#224; o&#249; puis-je simplement demander &#224; ACCESS comme je le fais pour MySQL de cr&#233;er la table seulement si elle n'existe pas?

Compufly

cs_DARKSIDIOUS · Answer

Willi : j'ai toujours préféré utiliser DAO à ADO, non pas parce que je suis contre les nouvelles technologies (je prog toujours en VB6, et je ne pense pas migrer vers .NET !!!), mais tout simplement parce que DAO est plus léger et plus rapide qu'ADO. (cependant, je programme qu'en ADO maintenant car il paraît que DAO est obsolète...) Maintenant, ADO apporte une approche plus objet que DAO, c'est pas plus mal, mais le problème, c'est qu'on a pas mal de dépendances si on veux créer une base et la gérer dans son intégralité, alors qu'avec DAO : on référence la librairie de base (qui en plus était très bien intégrée à VB6), et hop, le tour est joué. Compufly : oui en effet, ca doit être possible de recréer ensuite toute ta base avec des instructions SQL. _

Compufly · Answer

Je vois.

Je n'ai par contre jamais utilis&#233; les class, donc je pr&#233;f&#232;re ne pas trop m'aventurer &#224; l'ext&#233;rieur de ce que je connais pour l'instant.

J'ai commenc&#233; &#224; travailler avec VB6 il y a un an seulement, avant j'&#233;tais toujours avec QBasic sous DOS et C++ sous DOS &#233;galement.
J'ai aussi utilis&#233; PERL sous Linux et MySQL comme base de donn&#233;es avec mon site Internet de l'&#233;poque, donc VB n'est pas vraiment "user freindly" pour moi.
Les objets, je commence &#224; comprendre, mais les class et tout le tralala des ActiveX, j'ai de la mis&#232;re.

Merci beaucoup pour votre aide.

Willi : Une derni&#232;re chose, je vois bien comment lister les tables maintenant, mais comment puis-je lister le nom des fields dans la table?
Par exemple, j'ai une table NHL qui contient les fields PLAYER_NAME et SCORE qui eux m&#234;me contiennent les valeurs Saku et 20 (admettons).

Que puis-je faire au lieu d'un DESCRIBE TABLE NHL pour lister les noms des deux fields : PLAYER_NAME et SCORE ?

Compufly

cs_Willi · Answer

Merci Darksidious de ton point de vue 

Sinon Compufly pour r&#233;cup&#233;rer les champs d'une table c'est &#224; peu pr&#232;s pareil...

    Do Until rs.EOF
        If (rs.Fields("TABLE_NAME") = "NHL") Then
            If rs.Fields("COLUMN_NAME") <> "" Then List1.AddItem rs.Fields("COLUMN_NAME")
        End If
        rsBase.MoveNext
    Loop

Voila
Bon courage

Compufly · Answer

Merci encore une fois ;0)

Compufly

CREATE DATABASE

11 réponses

Discussions similaires