CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

Base de données en VB6

julju
julju
Niveau 10
26 août 2006 à 16:16:07

Voila, j´ai créé une base de données en VB6 pour faire une vidéothèque.
:d) j´ajoute mes DVD grace a:

open "c:\dvd.txt" for append as #1
entree = numeroID & "~é" & titredudvd (ou ~é est mon séparateur de liste)
print #1, entree
close #1

Jusque là, aucun pb

:d) Ensuite, si je veux modifier une entrée, je fais:

open "c:\dvd.txt" for input as #2
dim ligne
dim tableau
do while not EOF(2)
line input #2, ligne
tableau=split (ligne, "~é")
if tableau(0)= "X" then(ou X est l´ID de mon DVD)
etc...

et la les informations concernant le DVD numéro
X s´affiche normalment.
C´est la que je suis bloqué, car je ne parvient pas à enregistrer les informations que j´ai modifié.
Quelu´un pourrait-il m´expliquer comment faire.
Merci d´avance, en espérant avoir été clair!!

dnob700
dnob700
Niveau 10
26 août 2006 à 18:00:50

tu efface le fichier texte, et tu le réécrit entièrement avec ta première méthode en utilisant les données contenues dans le tableau (après que tu les a modifié comme tu veux).

du genre :

open "c:\dvd.txt" for input as #2
dim ligne as string
dim tableau() as string
dim fichier() as string() ´là, je ne suis pas sûr que ça marche, mais dans tout les cas, tu peut redim la dernière dimension du tableau si tu fait fichier(2,).
dim i as integer=0
do while not EOF(2)
line input #2, ligne
tableau=split (ligne, "~é")
fichier(i)=tableau
i=i+1
if tableau(0)= "X" then(ou X est l´ID de mon DVD)

etc...

end do

open "c:\dvd.txt" for append as #1
for i=0 to ubound(fichier) ´-1 ?
entree = fichier(i)(0) & "~é" & fichier(i)(1) ´là je suis pas sûr pour les parenthèses
print #1, entree
next
close #1

bon, on sens que j´ai abandonné le VB il y a un certain temps, mais en gros ça devrait aller.

Sous forums
  • Aide à l'achat Mac
  • Création de sites web
  • Création de Jeux
  • Linux
  • Programmation
  • Internet
  • Steam Deck
  • Macintosh
  • Hardware
La vidéo du moment