ajouter une table avec vb6

**thunderpat** · 12/06/2007, 10h47

bonjour,

j'ai une base de donnée piloté avec ado.
Je voudrais que dans ma base donnée que je peux enregistrer une nouvelle table.

et je veux que cette et le nom du numéro de commande.

j'essai de comprendre avec adox

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 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:\Program files\PrjMarit\bdd1.mdb"
 
    NomTable = TxtNumComm.Text '"MaTable"
    Set MaTableIndex = CreateObject("ADOX.Table")
 
    With MaTableIndex
        .Name = NomTable
        With .Columns
            .Append "Date", adDate
            .Append "tension_obtenue", adsingle
        End With
    End With
 
    With Cat
    .Tables.Append MaTableIndex
    End With
 
    Set Cat = Nothing
    Set MaTableIndex = Nothing

j'ai une erreur sur dim cat as adox.catalog
il me dit: user_defined type notdefined

**thunderpat** · 12/06/2007, 11h26

j'ai réussi à corriger cette erreur
c'etait d'aller dans projet référence et de cocher ado ext

par contre je voudrais enregistrer les valeurs mon ma nouvelle table que j'ai créer comment fais ton

**La Praline** · 12/06/2007, 13h20

CE FORUM N'EST PAS UN SUPERMARCHE !!!

Pratique les tutoriels, les FAQs, cherche sur google, tentes du code et pose des questions sur les problèmes de code.
Personne ici ne te fera ton projet.
Personne ne fera le code à ta place.

**thunderpat** · 12/06/2007, 13h33

j'ai regardé les tutoriels plusieurs fois mais je n'arrive pas à enregistrer mes données sur la table

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
 
If LblAffichage.Caption >= 0 Then
    With adoMaTableIndex.Recordset
             .AddNew
             !Date = Date
             !tension_obtenue = LblAffichage.Caption
 
             .Save
             .Requery
    End With
   ' If FrmAffichage.Visible = True Then CmdAnnulation.SetFocus
 
    Timer3.Enabled = True
 
 
End If

**zazaraignée** · 12/06/2007, 14h28

Salut

Déjà que tu as nommé un champ de type Date par le mot réservé 'Date'... Commence par corriger ça. Après on verra. Fais le même si, dans l'immédiat, ça ne semble pas générer d'erreur. Car ça en génèrera, c'est assuré!

**La Praline** · 12/06/2007, 14h34

En effet le Date te posera des problèmse assurément.

Sans être obligatoirement une erreur, lorsque j'utilise rst.AddNew, je met à jour ma base de données avec rst.Update... Ca pourrait venir de là.

(par rst comprend RecordSet en abrégé...)

Cordialement

**thunderpat** · 12/06/2007, 14h50

il me dit que table index n'est pas 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
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
 
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.3.51;Data Source=C:\Program files\PrjMarit\bdd1.mdb"
 
    NomTable = TxtNumComm.Text '"MaTable"
    Set MaTableIndex = CreateObject("ADOX.Table")
 
    With MaTableIndex
        .Name = NomTable
        With .Columns
            .Append "Date1", adDate
            .Append "tension_obtenue", adSingle
        End With
    End With
 
    With Cat
    .Tables.Append MaTableIndex
    End With
 
    Set Cat = Nothing
    Set MaTableIndex = Nothing
 
 If LblAffichage.Caption > 0 Then
    With adoMaTableIndex.Recordset
             .AddNew
             !Date1 = Date
             !tension_obtenue = LblAffichage.Caption
 
             .Update
             .Save
             .Requery
 
End If

**La Praline** · 12/06/2007, 15h06

Avant même de lancer la procédure ou estce qu'il t'arrête sur une ligne précise ???

**thunderpat** · 12/06/2007, 15h12

il bloque sur with adomatableindex.recorset

**OhMonBato** · 12/06/2007, 16h03

C'est pas plutot MaTableIndex que adoMaTableIndex que tu devrais mettre ?

**thunderpat** · 12/06/2007, 17h22

en mettant matableindex sa fait le meme
variable not defined

**OhMonBato** · 12/06/2007, 17h48

Ben juste au dessus tu mets "set MaTableIndex = nothing", pourquoi ?

**thunderpat** · 12/06/2007, 17h54

j'en c rien car j'ai repris un programme existant et en plus je suis débutant en vb

**OhMonBato** · 12/06/2007, 17h58

Ben essaye en mettant cette ligne en remarque ou en l'enlevant, mais si tu ne comprends rien au code, il faudrait plutot travailler les bases que de se jeter dans un programme à l'aveuglette.
Sinon ce sera vite pénible pour toi, et pour nous aussi accessoirement.
VB est accessible à tous à condition de s'y mettre quand même un peu et au risque d'enfoncer des portes ouvertes, si vraiment tu débutes en VB peut être qu'il y a des projets plus aisés que de la gestion de base de donnée pour commencer.

**thunderpat** · 12/06/2007, 18h10

maintenant il me met compile error: method data member not found
cela selectionne le .recordset

**OhMonBato** · 12/06/2007, 18h29

Bon courage pour la suite

**Mat.M** · 12/06/2007, 18h39

je prefere appeler directement CREATE TABLE c'est du SQL standard plutot que les objets VB/ADO..
J'ai deja precede ainsi dans des projets pro et ca fonctionne tres bien

**thunderpat** · 12/06/2007, 18h47

comment ferais tu en sql moi j'ai fait ca

j'ai mis ça comme code

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim cnn As New ADODB.Connection
 
    ' Connexion à la base de donnée
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program files\PrjMarit\bdd1.mdb"
 
    ' Ajout de la table, des trois champs et de la clé primaire
    cnn.Execute "CREATE TABLE TxtNumComm.Text (date date, tension_obtenue single, PRIMARY KEY (Champ1))"
 
    cnn.Close
    Set cnn = Nothing

le problème c'est quand je l'execute i lme met erreur de syntaxe et cnn;execute il est en jaune

**Mat.M** · 12/06/2007, 21h27

Je viens d'essayer sous Access de créer une table avec pour nom Table1.tbl cela ne fonctionne pas.
Il ne faut pas utiliser de . pour le nommage.
Un truc éternel: toujours essayer sous Access ou SQL-Server selon les cas ( ou autres ) avec un moniteur SQL ses requêtes SQL si cela ne fonctionne pas avant de les mettre dans le code

**La Praline** · 13/06/2007, 09h54

Tu n'y arrivse pas comme ça Pat...

Les méthodes qu'on te donne sont bnnes... Mais si tu ne comprend rien au code ca ne sert à rien d'essayer de les appliquer...
Il faut que tu apprennes les bases, ensuite tu y arriveras...

Cordialement

ajouter une table avec vb6

VB 6 et antérieur

Discussions similaires

Partager

Partager