utilisation ADO pour créer une Base de Donnée vide

**laribi71** · 15/02/2008, 11h33

Salut tout le monde.
je suis entrain de développer une application avec visual basic 6.0 qui fait appel à une base de données grace au contrôle ADO. Cette application permet de faire une évaluation et donner une conclusion pour chaque registre qui représente une fiche d'évaluation.
Dans le cas d'une base de données existante le problème est résolu, par contre dans le cas ou je veut créer une nouvelle base de donnée mais avec les même champs mais vide, je n'arrive pas a trouver l'astuce.
Est ce qu'il y a une possibilité de créer une nouvelle base de donnée avec les même champs et leur propriétés mais totalement vide pour la remplir ?

merci.

**Phifi** · 15/02/2008, 14h25

Envoyé par laribi71

une application avec visual basic 6.0 qui fait appel à une base de données...

Soit mais laquelle ?

**laribi71** · 15/02/2008, 15h10

Re
Je m'explique autrement. Estce qu'il est possible de créer grace an contrôle ADO une nouvelle base de données qui a les mêmes champs et les mêmes propriétés d'un autre fichier de base de données existant ?
merci

**Vld44** · 15/02/2008, 18h30

Envoyé par Phifi

Soit mais laquelle ?

**Delbeke** · 15/02/2008, 23h41

Pas de chance, boule de cristal HS

**laribi71** · 18/02/2008, 08h59

Bonjour ttle monde et bon début de semaine.
Je sent que ma question n'est pas claire. J'essaye d'être le plus claire possible.
Sur une form VB6.0, j'ai créé un menu. Dans le menu Fichier, j'ai nouveau (création d'une nouvelle base de données) et ouvrir (une base existante). Alors Comment on peut créer une nouvelle base de données avec des champs, et leurs propriétés en appuyant sur nouveau. merci.

**Delbeke** · 18/02/2008, 09h12

Ahrgg..., la question posée est quelle base de données ? Acces? Oracle? SqlServer ? ou tout autre chose ?

**laribi71** · 18/02/2008, 09h21

Re
c'est une base de donées Ms Access.
A+

**Phifi** · 18/02/2008, 09h31

Vas plutôt voir du coté de DAO et de la méthode CreateDatabase, je ne sais pas si c'est possible directement avec ADO.

**Delbeke** · 18/02/2008, 09h32

Je ne suis pas un cador en ADO, mais je me defends avec DAO.
Voici un extrait de programme que j'utilise pour genere une nouvelle base à partir d'une autre

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
Public Function CopyBase(BaseName As String, TempBaseName As String, Optional lblRapport As Label = Nothing) As Boolean
  CopyBase = True
  Dim iRet As Integer
  Dim DbOrg As Database
  Dim DbDest As Database
  Dim TbDefOrg As TableDef
  Dim TbDefDest As TableDef
  Dim IdxOrg As Index
  Dim IdxDest As Index
  Dim FldOrg As Field
  Dim FldDest As Field
  Dim Attached As Boolean
  Dim PrpOrg As Property
  Dim PrpDest As Property
  Dim strIndex As String
  Dim iPntIndex As Integer
  Dim tbleIndexes As Variant
 
  Dim Sql As String
  Dim QryOrg As QueryDef
  Dim QryDest As QueryDef
 
  On Error GoTo Erreur
  Set DbDest = CreateDatabase(TempBaseName, dbLangGeneral, dbVersion40)
  DbDest.Close
 
  Set DbOrg = OpenDatabase(BaseName, False, False)
  Set DbDest = OpenDatabase(TempBaseName, False, False)
  'mettre à jour les proprétes de la base
  If lblRapport Is Nothing Then
    'nop
  Else
    lblRapport = "Transfert des propriètés"
    DoEvents
  End If
  For Each PrpOrg In DbOrg.Properties
    On Error Resume Next
    If PrpOrg.Name = "DesignMasterID" Or PrpOrg.Name = "AccessVersion" Then
      'nop
    Else
      Set PrpDest = DbDest.CreateProperty(PrpOrg.Name, PrpOrg.Type, PrpOrg.Value)
      DbOrg.Properties.Append PrpDest
    End If
    On Error GoTo 0
  Next
  For Each TbDefOrg In DbOrg.TableDefs
      If (TbDefOrg.Attributes And dbSystemObject) = 0 Then
        If (TbDefOrg.Attributes And dbAttachedTable) = dbAttachedTable Then
          Attached = True
        ElseIf (TbDefOrg.Attributes And dbAttachedODBC) = dbAttachedODBC Then
          Attached = True
        Else
          Attached = False
        End If
        If lblRapport Is Nothing Then
          'nop
        Else
          lblRapport = "convertion table " & IIf(Attached, "attachée ", "") & TbDefOrg.Name
          DoEvents
        End If
        If Attached Then
          Set TbDefDest = DbDest.CreateTableDef(TbDefOrg.Name)
          TbDefDest.Connect = TbDefOrg.Connect
          TbDefDest.SourceTableName = TbDefOrg.SourceTableName
          DbDest.TableDefs.Append TbDefDest
          For Each IdxOrg In TbDefOrg.Indexes
            tbleIndexes = Split(IdxOrg.Fields, ";")
            strIndex = ""
            For iPntIndex = 0 To UBound(tbleIndexes)
              If Left(tbleIndexes(iPntIndex), 1) = "+" Then
                strIndex = strIndex & Mid(tbleIndexes(iPntIndex), 2) & ","
              Else
                strIndex = strIndex & Mid(tbleIndexes(iPntIndex), 2) & " DESC ,"
              End If
            Next
            strIndex = Left(strIndex, Len(strIndex) - 1)
            On Error Resume Next
            If IdxOrg.Unique Then
              DbDest.Execute "Create unique Index [" & IdxOrg.Name & "] on [" & TbDefOrg.Name & "] (" & strIndex & ") "
            Else
              DbDest.Execute "Create  Index [" & IdxOrg.Name & "] on [" & TbDefOrg.Name & "] (" & strIndex & ") "
            End If
            On Error GoTo 0
          Next
        Else
          Set TbDefDest = DbDest.CreateTableDef(TbDefOrg.Name)
          'charger les fields de la table
          For Each FldOrg In TbDefOrg.Fields
            Set FldDest = TbDefDest.CreateField(FldOrg.Name, FldOrg.Type, FldOrg.Size)
            FldDest.Attributes = FldOrg.Attributes
            FldDest.DefaultValue = FldOrg.DefaultValue
            FldDest.OrdinalPosition = FldOrg.OrdinalPosition
            TbDefDest.Fields.Append FldDest
          Next
          'charger le propriétés de la base
          For Each PrpOrg In TbDefOrg.Properties
            On Error Resume Next
            If PrpOrg.Name = "ConflictTable" Or PrpOrg.Name = "ReplicaFilter" Then
              'nop
            Else
              Set PrpDest = TbDefDest.CreateProperty(PrpOrg.Name, PrpOrg.Type, PrpOrg.Value)
              TbDefDest.Properties.Append PrpDest
            End If
            On Error GoTo 0
          Next
          'charger les index
          For Each IdxOrg In TbDefOrg.Indexes
            Set IdxDest = TbDefDest.CreateIndex(IdxOrg.Name)
            IdxDest.Unique = IdxOrg.Unique
            IdxDest.Primary = IdxOrg.Primary
            For Each FldOrg In IdxOrg.Fields
              Set FldDest = IdxDest.CreateField(FldOrg.Name)
              FldDest.Attributes = FldOrg.Attributes
              IdxDest.Fields.Append FldDest
            Next
            On Error Resume Next
            TbDefDest.Indexes.Append IdxDest
            On Error GoTo 0
          Next
          DbDest.TableDefs.Append TbDefDest
          'transferer les datas à mettre en remarque si on veut une base vide
          DbDest.Execute "insert  into [" & TbDefDest.Name & "] " & _
                         "select * from [" & TbDefDest.Name & "] " & _
                         "in '" & BaseName & "'"
 
        End If
      End If
  Next
  'transfert des requêtes
  For Each QryOrg In DbOrg.QueryDefs
    If lblRapport Is Nothing Then
      'nop
    Else
      lblRapport = "Transfert requête " & QryOrg.Name
    End If
    'Sql = QryOrg.Sql
    Set QryDest = DbDest.CreateQueryDef(QryOrg.Name, QryOrg.Sql)
  Next
  If lblRapport Is Nothing Then
    'nop
  Else
    lblRapport = "Convertion terminée "
  End If
  DbOrg.Close
  DbDest.Close
  Exit Function
Erreur:
 CopyBase = False
End Function

En fait ce module me sert pour paser une base en ACCESS97 vers ACCESS2000

**Phifi** · 18/02/2008, 09h36

Pour compléter, MS propose une méthode complète de réplication de structure :
http://support.microsoft.com/kb/108147/fr

**laribi71** · 18/02/2008, 09h50

Re Phifi
J'ai essayé le support que tu viens de me le passé. J'ai créer une form, sur cette dernier j'ai inséré un contrôle command1 et j'ai insérer le code, une fois exécuté, j'ai reçu le message suivant :
Erreur de compilation
Type défini par l'utilisateur non défini.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Command1_Click()
      Dim dbsource As Database
      Dim dbdest As Database
      ' The following hard-coded database names could be changed to
      ' selections from a text box, list box, or combo box to make the
      ' program more generic:
      Set dbsource = OpenDatabase("E:\projets\Visual Basic 6.0\Préparation\Base de données pour test\Post-Earthquake.mdb", True, True)
      Set dbdest = OpenDatabase("E:\projets\Visual Basic 6.0\Préparation\Base de données pour test\test1.mdb", True, False)
      Print CopyStruct(dbsource, dbdest, "evaluation", "cevaluation", True)
      Print CopyData(dbsource, dbdest, "evaluation", "cevaluation")
      dbsource.Close
      dbdest.Close
   End Sub

**Phifi** · 18/02/2008, 10h38

Attention c'est en DAO, tu as la bonne référence ? (Microsoft DAO x.x Object Library)

**Delbeke** · 18/02/2008, 14h19

Envoyé par Phifi

Pour compléter, MS propose une méthode complète de réplication de structure :
http://support.microsoft.com/kb/108147/fr

Et moi une methode complète de replication de la base , héhé

**laribi71** · 19/02/2008, 18h25

Bonsoir tt le monde
Je suis arrivé finalement à créer une base de données gràce au code suivant :

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
Private Sub mnFicNou_Click()
Dim NomFichier As String
NomFichier = InputBox("Introduire le nom du fichier", "Nom")
If Dir("e:\" & NomFichier & ".mdb") <> "" Then
    Kill "e:\" & NomFichier & ".mdb"
End If
 
Set W = DBEngine.Workspaces(0)
Set BD = W.CreateDatabase("e:\" & NomFichier & ".mdb", dbLangGeneral)
    Set T = BD.CreateTableDef("Evaluation")
        Set F = T.CreateField("N_Client", dbLong, 8)
    T.Fields.Append F
        Set F = T.CreateField("Adresse", dbText, 20)
    T.Fields.Append F
        Set F = T.CreateField("Usage", dbText, 20)
    T.Fields.Append F
        Set F = T.CreateField("Age", dbDate)
    T.Fields.Append F
    BD.TableDefs.Append T
   BD.Close
    End Sub

J'ai inséré ensuite sur la forme des contrôles textbox et un contrôle adodc pour l'introduction des données, malheureusement je n'arrive pas à introduire dans les champs de la table des données. Quelque peut me guider car je suis un peu perdu. er merci

**laribi71** · 20/02/2008, 09h30

Bonjour tout le monde.
Il n 'y a personne pour m'orienter

.
Amicalement

**laribi71** · 20/02/2008, 18h01

Rebonjour
je suis toujours en attente d'une solution ou d'une astuce afin d'avancer.
cordialement

**ProgElecT** · 20/02/2008, 19h13

Salut
Je n’ai jamais créé de BD par code, copie avec chamgement de nom oui, mais ….

Apres la création de la table et des champs souhaités (BD.CreateTableDef("Evaluation") …. CreateField("Adresse", dbText, 20) …. CreateField("N_Client", dbLong, 8) …) tu fermes avec BD.Close) .

Donc, apres cette création

connection à la BD
Set BD= New ADODB.Connection
BD.CursorLocation = adUseClient
BD.Mode = adModeReadWrite
BD.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= " & CheminNomDelabase & ";"

ouvres la table
MeTable = New ADODB.Recordset
MeTable.Open Evaluation, BD, , , adCmdTable

demandes l’ajout d’un enregistrement
MeTable.AddNew

renseignes les champs,
MeTable! N_Client = 8 : MeTable! Adresse = "Ce que tu veux" ....

puis enregistres
MeTable.Update

tu fermes le Recordset
MeTable.Close

et enfin tu fermes la connection
BD.Close

utilisation ADO pour créer une Base de Donnée vide

VB 6 et antérieur

Discussions similaires

Partager

Partager