VB VideoVerleih

Seite 1 von 3 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/vb_videoverleih_67495/page_1 - zur Vollversion wechseln!

so ich muss in vb für die schule a videoverleih prog mit RANDOM files machen.

wie moch i des das die bestimmten dateien wo die daten über die kunden oda über die videos stehen dort angelegt werden wo das programm abgespeichert is?

das is irgendwas mit progpath oda?

tia

-push- bitte leute ich brauch das prog anfang nächster woche also MO oder DI help

-push- again es is wichtig bitte bitte wird doch irgendwer wissen. ich finds in dem friggin msdn ned

[mod]
Flip
wir sind hier nicht im SBT wo dinge gepusht werden müssen damit sie oben bleiben, und selbst dort wird ein 30 min takt nicht tolleriert! ärger sinnlos deine aktion!
[/mod]

[topic]
ziehe dir mal folgende beispiele rein:
http://www.freevbcode.com/ShowCode.Asp?ID=2673
http://www.programmersheaven.com/c/...ting=A9999F0020
[/topic]

Programmpfad ist App.Path
sollte das nicht eh in der Hilfe stehen?

ok atrox

die 2 links helfen mir nicht wirklich.

das is nur ein command und der is irgendwas mit progpath oda so ich kanns in der hilfe aba leida ned finden un im web hab ich auch nix dazugfunden.

wird doch wen geben der das kennt...

http://www.vbarchiv.net/workshop/workshops.php

Dort findest du alles was du dafür braucht ...

Würd dir allerdings empfehlen das ganze mit einer Datenbank und der JET Engine machen ... ist viel einfacher und übersichtlicher (in dem Fall einfach die 3 Datenbankworkshops durchlesen und du checkst alles) ...

vivo danke für den tipp aba vorgabe vom lehrer war in einer RANDOM datei. er sagt als nextes nochmal das selbe und dann in acces.

@ jayjay genau das danke

wie mach ichs jetz das er nicht nur immer das letzte was ich gspeichert hab in der datei stehen hat sondern alles. cmd zum speichern button schaun derzeit so aus:

Code:

    kunden.KNr = txtKNr.Text
    kunden.VName = txtVName.Text
    kunden.ZName = txtZName.Text
    kunden.Land = txtLand.Text
    kunden.PLZ = txtPLZ.Text
    kunden.Ort = txtOrt.Text
    kunden.Straße = txtStrasse.Text
    kunden.Tel = txtTel.Text
    kunden.Ausweis = txtAusweis.Text
    kunden.AuswNr = txtAuswNr.Text
    kunden.GebDat = txtGebDat.Text
    kunden.Bemerkung = txtBemerkung.Text
    kunden.Gesperrt = txtGesperrt.Text
    
        Open "Kunden.dat" For Random As #1 Len = Len(kunden)
            dnr = EOF(1)
                Put #1, dnr + 1, kunden
        Close #1
    
    MsgBox "Kunde erfolgreich in Datenbank aufgenommen"
    
    txtKNr = ""
    txtVName = ""
    txtZName = ""
    txtLand = ""
    txtPLZ = ""
    txtOrt = ""
    txtStrasse = ""
    txtTel = ""
    txtAusweis = ""
    txtAuswNr = ""
    txtGebDat = ""
    txtBemerkung = ""
    txtGesperrt = ""

ich trau mich garnicht das zu sagen, aber ich weiß keinen besseren Weg: Du liest den Inhalt der Datei aus, und schreibst diesen + den neuen Text wieder hinein.

Wenn einer nen besseren Vorschlag hat, bitte sagen

sowohl app.path als auch das berechnen des letzten datensatzes findet sich in den urls die ich oben gepostet habe.

ich vermute, du willst mit dem code oben einen datesatzh hinten anfügen.

eof() sagt dir ob du am ende der datei bist, es verschiebt dich nicht dorthin, oder gibt dir die länge.
ich glaub du brauchst LOF() oder du machst es so: NumberOfRecords = FileLen(Filename)/len(kunden)

ausserdem drängt sich mir eine frage auf: ist das korrekt dass du alle datensätze am ende anfügst, oder sollte nicht evt. die kundennummer das index-kriterium sein ?

nana das ganz am schluss is das nachm speichern in den textfeldern nix mehr drinsteht beim programm

Code:

        Open "Artikel.dat" For Random As #1 Len = Len(artikel)
            snr = LOF(1) \ Len(artikel)
                Put #1, snr + 1, artikel
        Close #1

ok bis jetzt rennt alles recht gut nur bei einem häng ich.

ich hab eine random date die heisst verleih.dat

dort werden alle verleihaktionen gespeichert

jeder datensatz beginnt mit der verleih nummer zb 0001
bei der rückgabe eines videos muss dem datensatz mit der nummer zb 0001 noch eine variable hinzugefügt werden, nämlich der eingang des videos

variablen

Code:

Type verleihstamm
    VerleihNr As String * 6
    KundenNr As String * 4
    ArtNr As String * 5
    AusDatum As String * 8
    EinDatum As String * 8
End Type

Zitat von Flip

ok bis jetzt rennt alles recht gut nur bei einem häng ich.

ich hab eine random date die heisst verleih.dat

dort werden alle verleihaktionen gespeichert

jeder datensatz beginnt mit der verleih nummer zb 0001
bei der rückgabe eines videos muss dem datensatz mit der nummer zb 0001 noch eine variable hinzugefügt werden, nämlich der eingang des videos

variablen

beim verleih werden alle gespeichert bis auf EinDatum.

bei der Rückgabe geb ich dann alle daten wieder ein und halt noch das datum der rückgabe. und genau dieses soll dem datensatz mit der nummer zb 0001 hinzugefügt werden.

wie geht des jetzt?

tia

overclockers.at v4.thecommunity
© all rights reserved by overclockers.at 2000-2025