Discussion :

[deubelte]

Bonjour
j'aimerais remplir la table de données Acces avec les champs ci-dessous,
N° Date Tick Bid Qte_BID Ask Qte_ASK


à partir d'un fichier .txt. Je ne sais pas du tout comment faire alors pouvez vous s'il vous plait des indications où chercher? Des liens dans la FAQ, des bouts de codes.


Par exemple, j'aimerais avoir:

N° Date Tick Bid Qte_BID Ask Qte_ASK
1 14/03/2033 1.2 4 543 5 5534
2 12/12/2022 3 4 543 5 765

où le fichier txt contient ces informations.
Plus précisément, les données sont les unes à la suite des autres, séparées par des virgules d'une ligne à l'autre:
14/03/2033,1.2,4,543,5,5534
12/12/20223,4,543,5,765

J'ai besoin de les extraires.

Merci

[stigma]

Fais une boucle où tu testes le ";" pour enregistrer tes lignes dans la table au fur et à mesure.

[deubelte]

Merci.
J'ai utilisé "Split"
J'ai une autre question:
Je veux mettre à jour une base "Table1" avec les données de "Dow".
Je prends les valeurs sous forme de Date de dow pour les mettre dans la table "Table1".
La variable gg est la date.

Le problème, c'est que quand je lance, ca ne bug pas, mais la base de donnée ne se met pas à jour.

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
Dim db As DAO.Database
Dim rc As DAO.Recordset
 
NomBd = "C:\Users\Pierre\Favorites\Documents\basededonnees\bd1.mdb"
Set db = DAO.Workspaces(0).OpenDatabase(NomBd)
 
 
Set rc = db.OpenRecordset("Table1", dbOpenTable)
Set rc2 = db.OpenRecordset("Dow", dbOpenTable)
Call rc2.Move(20)
For i = 1 To 3
 
 
gg = rc2.Fields(2)
 
Call rc.Edit
 
rc.Fields(0) = i
rc.Fields(1) = gg
 
 
Call rc.Move(1)
Call rc2.Move(21)
Call rc.Edit
Call rc.Update
Next i
 
rc.Close