VB6 et ADO creation de base de données

Version imprimable

21/08/2006, 23h00
thierry007

VB6 et ADO creation de base de données

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:cry:
22/08/2006, 03h14
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 ;)
22/08/2006, 09h48
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 :D

Bonne programmation !

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:

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.:wink: ]

bonjour

tu peux tester cet exemple

Code:

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

22/08/2006, 16h17
thierry007

je vais essayer ce soir

ADOX correspond a quoi exactement ?

Merci beaucoup
22/08/2006, 18h00
SilkyRoad

rebonjour Thierry

tu peux consulter ce tutoriel de J-M Rabilloud

http://vb.developpez.com/bidou/adox/

bon apres midi
michel

A l'air d'être bon ,je pedales encore sur qq paramètres genre:
Code:

1 2 3 4 5 6 7 With MaTableIndex .Name = NomTable With .Columns .Append "Date", adDate .Append "RefTmp", adChar, 10 --> genere un message d'erreur End With End With
Apres sa devrait repartir, un dernier petit coup de main et puis zou...

Merci d'avance

Grosse épine hor du pied

:lol:

22/08/2006, 23h33
SilkyRoad
bonsoir

Effectivement il y a un soucis avec le type adChar. Cela vient peut etre de la façon dont j'ai rédigé la procédure de création: mais il faudrait qu'un spécialiste ADO passe par ici pour nous en dire plus ...

En attendant tu peux tester cette adaptation qui fonctionne chez moi
Code:

1 2 MaTableIndex.Columns.Append "RefTmp", adWChar, 10
bonne soiree
michel

Tu as donné la reponse a la dernière ligne
le simple fait de prendre adWChar a la place de adChar est suffisante
cela fonctionne
Code:

1 2 3 4 5 6 7 8 With MaTableIndex .Name = NomTable With .Columns .Append "Date", adDate .Append "RefTmp", adWChar, 10 --> ok End With End With
Grand Merci de ton aide bien precieuse