begin process at 2012 02 16 08:45:20
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > CRÉATION DUNE BASE DE DONNÉE

CRÉATION DUNE BASE DE DONNÉE


 Information sur la source

Note :
7,17 / 10 - par 6 personnes
7,17 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Classé sous :dao, créér, access Niveau :Initié Date de création :17/08/2005 Vu / téléchargé :11 061 / 1 679

Auteur : chalghoum

Ecrire un message privé
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 Description

Création d'une base de donnée avec l'uterface DAO sans l'aide de microsoft access

Source

  • 'Module de démarrage
  • Public Ex As Database
  • Public T1 As DAO.Recordset
  • Public Ann As Database
  • Public TC As DAO.Recordset
  • Public TF As DAO.Recordset
  • Public TA As DAO.Recordset
  • Public RR As DAO.Recordset
  • Public Sub main()
  • Set Ex = OpenDatabase(App.Path & "\exist.mdb")
  • Set T1 = Ex.OpenRecordset("t1")
  • If T1.RecordCount = 0 Then
  • Create.CreateDB
  • T1.AddNew
  • T1!Create = 1
  • T1.Update
  • T1.Close
  • Set Ann = OpenDatabase("d:\Base Create\Ann.mdb")
  • Ex.Close
  • FrmMenu.Show
  • Else
  • Set Ann = OpenDatabase("d:\Base Create\Ann.mdb")
  • FrmMenu.Show
  • End If
  • End Sub
  • 'Module de création de BD
  • Public Sub CreateDB()
  • Dim dbNew As DAO.Database
  • Dim Tb As TableDef
  • Dim f As DAO.Field
  • MkDir ("d:\Base Create")
  • 'crée Base de donnée
  • Set dbNew = DBEngine.CreateDatabase("d:\Base Create\Ann.mdb", dbLangGeneral)
  • 'céation de la table Client
  • Set Tb = dbNew.CreateTableDef("Client")
  • 'création des champs de la table
  • With Tb
  • '.Fields.Append .CreateField("Cin", dbCurrency, 8)
  • .Fields.Append .CreateField("Cin", dbLong, 8)
  • .Fields.Append .CreateField("Nom", dbText)
  • .Fields.Append .CreateField("Prenom", dbText)
  • '.Fields.Append .CreateField("Tel", dbCurrency, 8)
  • .Fields.Append .CreateField("Tel", dbLong, 8)
  • End With
  • dbNew.TableDefs.Append Tb
  • 'céation de la table Fournisseur
  • Set Tb = dbNew.CreateTableDef("four")
  • 'création des champs de la table
  • With Tb
  • '.Fields.Append .CreateField("Cfour", dbCurrency, 3)
  • .Fields.Append .CreateField("Cfour", dbLong, 3)
  • .Fields.Append .CreateField("Nom", dbText)
  • .Fields.Append .CreateField("Tel", dbCurrency, 8)
  • End With
  • dbNew.TableDefs.Append Tb
  • 'céation de la table Agendat
  • Set Tb = dbNew.CreateTableDef("Agn")
  • 'création des champs de la table
  • With Tb
  • '.Fields.Append .CreateField("N°", dbCurrency)
  • .Fields.Append .CreateField("", dbLong)
  • .Fields.Append .CreateField("Date", dbDate)
  • .Fields.Append .CreateField("Heure", dbDate)
  • .Fields.Append .CreateField("Des", dbText)
  • End With
  • dbNew.TableDefs.Append Tb
  • If Not dbNew Is Nothing Then dbNew.Close
  • End Sub
'Module de démarrage

Public Ex As Database
Public T1 As DAO.Recordset
Public Ann As Database
Public TC As DAO.Recordset
Public TF As DAO.Recordset
Public TA As DAO.Recordset
Public RR As DAO.Recordset
Public Sub main()
    Set Ex = OpenDatabase(App.Path & "\exist.mdb")
    Set T1 = Ex.OpenRecordset("t1")
    If T1.RecordCount = 0 Then
        Create.CreateDB
        T1.AddNew
        T1!Create = 1
        T1.Update
        T1.Close
        Set Ann = OpenDatabase("d:\Base Create\Ann.mdb")
        Ex.Close
        FrmMenu.Show
    Else
        Set Ann = OpenDatabase("d:\Base Create\Ann.mdb")
        FrmMenu.Show
    End If
    
End Sub

'Module de création de BD

Public Sub CreateDB()

    Dim dbNew As DAO.Database
    Dim Tb As TableDef
    Dim f As DAO.Field

    MkDir ("d:\Base Create")
    'crée Base de donnée
    Set dbNew = DBEngine.CreateDatabase("d:\Base Create\Ann.mdb", dbLangGeneral)
    'céation de la table Client
    Set Tb = dbNew.CreateTableDef("Client")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("Cin", dbCurrency, 8)
    .Fields.Append .CreateField("Cin", dbLong, 8)
    .Fields.Append .CreateField("Nom", dbText)
    .Fields.Append .CreateField("Prenom", dbText)
    '.Fields.Append .CreateField("Tel", dbCurrency, 8)
    .Fields.Append .CreateField("Tel", dbLong, 8)
    End With
    dbNew.TableDefs.Append Tb
    
    'céation de la table Fournisseur
    Set Tb = dbNew.CreateTableDef("four")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("Cfour", dbCurrency, 3)
    .Fields.Append .CreateField("Cfour", dbLong, 3)
    .Fields.Append .CreateField("Nom", dbText)
    .Fields.Append .CreateField("Tel", dbCurrency, 8)
    End With
    dbNew.TableDefs.Append Tb
    
    'céation de la table Agendat
    Set Tb = dbNew.CreateTableDef("Agn")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("N°", dbCurrency)
    .Fields.Append .CreateField("N°", dbLong)
    .Fields.Append .CreateField("Date", dbDate)
    .Fields.Append .CreateField("Heure", dbDate)
    .Fields.Append .CreateField("Des", dbText)
    End With
    dbNew.TableDefs.Append Tb
    
    If Not dbNew Is Nothing Then dbNew.Close
End Sub


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa
Source avec Zip VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source .NET (Dotnet) MISAHORAIRE par MdelM
Source avec Zip Source avec une capture BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture MDB TO BAS par skyla
Source avec Zip Source avec une capture OPEN ACCESS MDB par MALIKcpp
Source avec Zip Source avec une capture UN ACCESS MOIN COMPLET (IL MANQUE L'ÉDITEUR DE BASE DE DONNÉ... par MALIKcpp
Source avec Zip CRÉATION ASSISTÉE PAR CODE DAO D’UNE TABLE DANS MS ACCESS – ... par hector_quebec
Source avec Zip FONCTION DAO PERMETTANT DE VÉRIFIER SI UNE TABLE POSSÈDE UN ... par hector_quebec

Commentaires et avis

Commentaire de bouv le 17/08/2005 10:24:16

Ouai cela peut etre utile. Cependant, le DAO n'est plus supporté par Microsoft depuis que k'ai perdu mes premières dents de lait... Tu devrais transcrire ce code en ADO et y passer.

Sinon je n'ai pas testé mais cela semble très bien.

Bonne prog
++

Commentaire de frop01 le 17/08/2005 15:49:10

Hi,

Pour la création des bases de données et tables , utilises ADOX (catalog);

Voici quelques liens à visiter :

Migration des applications de DAO vers ADO:
http://mypage.bluewin.ch/w.stucki/MigrationADO.htm

Migration de DAO vers ADO : Utilisation de ADO avec le fournisseur Microsoft Jet :

http://www.microsoft.com/FRANCE/MSDN/Technologies/technos/dataaccess/info/info.asp?mar=/FRANCE/MSDN/Technologies/technos/dataaccess/info/migration_DAO_ADO.html

Bonne continuation!

Commentaire de asimengo le 18/08/2005 13:40:26

Merci à Frop01 pour les liens cités, fooooooort interessant pour moi.

Merci aussi à toi Chalghoum car j'ai pu l'avoir à partir de ta source.

Bonne Prog

Commentaire de purplespot le 26/08/2005 17:50:13

Rien de nouveau sur la planète !
Tu essaie de nous apprendre quoi exactement ?
Le B.A.BA de VB !!!

Commentaire de bouv le 26/08/2005 20:12:31

Je trouve que vous etes un peu dur ! Ce code peut etre utile, mais comme je l'ai dis mieu vaut passer a l'ADO pour VB6 ou encore mieu ADO.NET pour VB.NET.
Allez je mets 5/10 pour remonter un peu la moyenne parce que 1/10 pour un code qui fonctionne je trouve ça quand meme dur...

Bonne prog
++

Commentaire de asimengo le 26/08/2005 21:56:19

je suis du même avis, car il s'agit d'un code clair qui aiderait les habitués à ACCESS de commencer VB par une syntaxe familière avant de commencer ADO. Car rien ne dit que Chalghoum ne connait rien en ADO. J'ai pas ouvert le code mais c'est toujours bon pour ma bibliothèque et là je mets 8/10, c'est pas pour le flatter mais c'est assez propre à voir la source plus haut.

Asimengo

Commentaire de purplespot le 26/08/2005 22:05:56

Sorry, mais pour ma part cela fait longtemps que j'utilise ces fonctionnalités.
Pour ma part, je trouvais cela un peu naïf, mais bon tout le monde n'a pas le même niveau.

Sorry.

Commentaire de moonstar le 11/10/2005 16:52:26

Au départ sous Access :

Je cherche désespérément à créer par script un champ de type 'autoNumber' au format 'Replication ID' en primary key avec valeur par défaut = (newid()).

J'ai réussi à faire un champ integer autonumber, primary key etc. ou alors un champ 'replication ID' primary key mais il ne veut PAS y mettre de valeur par défaut (de type CLSID donc) or il me faudrait un champ de type 'Replication ID'

Quelqu'un aurait-il une vague idée ?

Merci d'avance.

Commentaire de sallahedine le 07/05/2006 17:54:29

pouyr ma part je trouve ce code géniale aussi car ca différe des besoin que on a si d'autre ne voi pas l'intéré de ce code c qu'il monque un peu de creativité moi de ma part je donne 8/10 car il é bien ecrit et bien structuré et fiable

Commentaire de Cramfr le 21/08/2007 13:18:03

http://www.vbfrance.com/code.aspx?ID=29726

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Etat Access avec VB + dao - Changement du source [ par steph ] Bonjour, Mon pb est le suivant : Dans VB j'alimente une table avec des données. Cette table est temporaire et vit le temps du traitement. A la fin de Attributs des champs d'une table en DAO (access) [ par SoftWay ] Voilà,j'ai cherché partout et je ne trouve pas la solution afin de mettre un ou plusieurs attributs d'un champ dans une table.Je connais la syntaxe de Comment créér une BD Access 2000/2002 [ par wico2002 ] Comment faire pour créer un base de données Access pour la version 2000 ou 2002 et comment y acceder sans control si possible sinon avec un controleMe DAO sans access, sur NT !!! [ par yannactivex ] Bonjour à tous et toutes !! Je rencontre un problème sous VB6 : je dois en effet créer un EXE qui doit : - ouvrir une DB access dont le Prob Access 2000 et DAO ... Hyper Urgent, pleazzze !!!: ) [ par dvdnet ] Bonjour, je rencontre un problème avec un développenent fait pour un client ... Ce prog a fonctionné au bureau, mais il marche plus chez le client, ch BASE DONNée : QUEL CHOIX ??? ADO/DAO ? ACCESS/SQL SERVER/MYSQL ? [ par pingwee ] Je fais 1 prog qui nécessite une connection vers 1 base de donnée sur le net qui doit être sécurisée.Quelle base de donnée à utiliser ?g commencé avec DAO + ACCESS URGENT MERCI [ par marquesj ] salut a tous,dans un projet Excel doit mettre ajour une base Acces via un Recordset, mail il arrive que l'enregistrement soit en cours de modification ADO & DAO sous Access [ par Cramfr ] Bonjour,Juste une question anodine... Je sais que sous VB6 il est plus interessant d'utiliser ADO plutôt que DAO pour sa rapidité et peut-&# connection DAO à une base sur le web [ par l_krys ] Bonjour,Afin de pouvoir améliorer d'anciens softs VB/Access (utilisant DAO) sans trop de redéveloppement (car les application DAO 3.6 sur base access avec mot de passe [ par sprintjeff ] salut,j'arrive pas a me connecter sous dao3.6 a ma base access protégée par un mot de passe. quelqu'un a un bout de code avec la syntaxe adéquate d'op


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,278 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales