Discussion :

[thierry007]

Je suis nouveau sur ce forum et cela fait qq semaines que le visite, il me semble bien suivit et non surchargé de messages en tous genres

Je vais donc m'y attacher régulièrement

voici ma requête ce soir :

Je recherche un petit bout de code pour créer une base de données access 2000 en VB6 ADO, si qq a une idée génial je suis preneur merci

[Le Pharaon]

Bienvenu thierry007

Si tu sais exécuter un requête depuis VB le tour est joué sinon regarde les tutoriels ADO du site pour avoir une idée.

Révise aussi le sql, si ce n'est déjà fait
Bonne continuation

[khany]

Bienvenue Thierry007 !

Avant de poser une question sur le forum, tu as à ta disposition plein d'outils et d'exemples pour t'aider dans ta programmation, tu peux en trouver la liste dans ce topic de mise à jour

Ensuite, si tu rencontres des problèmes particuliers, tes questions sont les bienvenues pour t'éclairer dans l'aboutissement de tes projets

Bonne programmation !

[thierry007]

J'ai fais un petit tour dans les FAQ, mais rien de tres positif pour mon prob
En fait voici ce que je fesait en DAO
Y a t'il similaire en ADO?

Ceci me permet de créer une table local temporaire
Une autre idée est la bien venue

Le but est d'avoir une Datagrid dans la quel j'encode des données stockées en locale, et a la fin du traitement envoie dans la Db principale

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
Dim Db As Database
Dim td As TableDef
Dim f As Field
Dim ind As Index
 
If Dir(dbTmp) <> "" Then Kill dbTmp
 
Set Db = CreateDatabase(dbTmp, dbLangGeneral)
Set td = New TableDef
 
Set f = New Field
f.Name = "IdLigne"
f.Type = dbInteger
td.Fields.Append f
 
Set f = New Field
f.Name = "Classe"
f.Type = dbText
f.Size = 40
f.AllowZeroLength = True
td.Fields.Append f
 
td.Name = "PointsLocal"
Db.TableDefs.Append td
 
Db.Close

[Balise "Code" rajoutée par Khany]
[Pensez-y vous-même à l'avenir. Merci. ]

[SilkyRoad]

bonjour

tu peux tester cet exemple

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
Sub Creation_Base_Et_Table()
    'Nécessite d'activer la reference
    '"Microsoft ADO ext x.x for DLL and Security"
    Dim Cat As ADOX.Catalog
    Dim MaTableIndex As ADOX.Table
    Dim NomTable As String
 
    Set Cat = CreateObject("ADOX.Catalog")
    Cat.Create _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\maNouvelleBase.mdb"
 
    NomTable = "MaTable"
    Set MaTableIndex = CreateObject("ADOX.Table")
 
    With MaTableIndex
        .Name = NomTable
        With .Columns
            .Append "Date", adDate
            .Append "Nombre", adInteger
        End With
    End With
 
    With Cat
    .Tables.Append MaTableIndex
    End With
 
    Set Cat = Nothing
    Set MaTableIndex = Nothing
End Sub

bonne journée
michel

[thierry007]

je vais essayer ce soir

ADOX correspond a quoi exactement ?

Merci beaucoup