Discussion :

[thunderpat]

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]

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]

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]

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]

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]

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