ajouter une table avec vb6

Version imprimable

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:

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

12/06/2007, 11h26
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
12/06/2007, 13h20
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.

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

Code:

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

12/06/2007, 14h28
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é!
12/06/2007, 14h34
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

il me dit que table index n'est pas défini

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
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

12/06/2007, 15h06
La Praline

Avant même de lancer la procédure ou estce qu'il t'arrête sur une ligne précise ???
12/06/2007, 15h12
thunderpat

il bloque sur with adomatableindex.recorset
12/06/2007, 16h03
OhMonBato

C'est pas plutot MaTableIndex que adoMaTableIndex que tu devrais mettre ?
12/06/2007, 17h22
thunderpat

en mettant matableindex sa fait le meme
variable not defined
12/06/2007, 17h48
OhMonBato

Ben juste au dessus tu mets "set MaTableIndex = nothing", pourquoi ?
12/06/2007, 17h54
thunderpat

j'en c rien car j'ai repris un programme existant et en plus je suis débutant en vb
12/06/2007, 17h58
OhMonBato

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.
12/06/2007, 18h10
thunderpat

maintenant il me met compile error: method data member not found
cela selectionne le .recordset
12/06/2007, 18h29
OhMonBato

Bon courage pour la suite ;)
12/06/2007, 18h39
Mat.M

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

comment ferais tu en sql moi j'ai fait ca

j'ai mis ça comme code

Code:

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

12/06/2007, 21h27
Mat.M

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
13/06/2007, 09h54
La Praline

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