VB VideoVerleih

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

16.02.2003 - 10:51

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

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

16.02.2003 - 11:20

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

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

16.02.2003 - 11:44

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

atrox

in fairy dust... I trust!

Registered: Sep 2002
Location: HTTP/1.1 404
Posts: 2782

16.02.2003 - 13:13

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

jayjay

---------

Registered: Dec 2001
Location: Klosterneuburg
Posts: 642

16.02.2003 - 13:29

Programmpfad ist App.Path

sollte das nicht eh in der Hilfe stehen?

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

16.02.2003 - 13:31

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

Vivo

Dreamworker

Registered: May 2002
Location: Tal der Könige
Posts: 1478

16.02.2003 - 14:06

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

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

16.02.2003 - 14:30

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

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

16.02.2003 - 16:25

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

damit überschreibt er aber immer des was drinsteht und schreibt das neue rein. wie gehts richtig?

jayjay

---------

Registered: Dec 2001
Location: Klosterneuburg
Posts: 642

16.02.2003 - 16:38

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

atrox

in fairy dust... I trust!

Registered: Sep 2002
Location: HTTP/1.1 404
Posts: 2782

16.02.2003 - 16:49

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 ?

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

16.02.2003 - 16:58

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

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

16.02.2003 - 17:03

Code:

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

ok danke so wies jetz is gehts

wenn ich noch weitere fragen habe wende ich mich einfach an euch

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

17.02.2003 - 22:34

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

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

watchout

Legend
undead

Registered: Nov 2000
Location: Off the grid.
Posts: 6845

17.02.2003 - 23:20

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

schei* doch aufs speichern, machs wie word:
raise_error ("possible harddisk failure")

jetzt im ernst:
die einfachste variante wird sein, das file schritt für schritt durchzugehen und nach dem schlüssel zu suchen, und dann die zeile zu ersetzen, ich weiss jetzt leider nimmer ob man mit vb auf die leichte daten mitten in ein file einfügen kann, wenn nicht dann schreibst eben den ganzen datensatz ans ende vom file (den alten löschen nicht vergessen

)

Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	16.02.2003 - 10:51 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
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	16.02.2003 - 11:20 -push- bitte leute ich brauch das prog anfang nächster woche also MO oder DI help
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	16.02.2003 - 11:44 -push- again es is wichtig bitte bitte wird doch irgendwer wissen. ich finds in dem friggin msdn ned
atrox in fairy dust... I trust! Registered: Sep 2002 Location: HTTP/1.1 404 Posts: 2782	16.02.2003 - 13:13 [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]
jayjay --------- Registered: Dec 2001 Location: Klosterneuburg Posts: 642	16.02.2003 - 13:29 Programmpfad ist App.Path sollte das nicht eh in der Hilfe stehen?
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	16.02.2003 - 13:31 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...
Vivo Dreamworker Registered: May 2002 Location: Tal der Könige Posts: 1478	16.02.2003 - 14:06 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) ...
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	16.02.2003 - 14:30 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
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	16.02.2003 - 16:25 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 = "" damit überschreibt er aber immer des was drinsteht und schreibt das neue rein. wie gehts richtig?
jayjay --------- Registered: Dec 2001 Location: Klosterneuburg Posts: 642	16.02.2003 - 16:38 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
atrox in fairy dust... I trust! Registered: Sep 2002 Location: HTTP/1.1 404 Posts: 2782	16.02.2003 - 16:49 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 ?
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	16.02.2003 - 16:58 nana das ganz am schluss is das nachm speichern in den textfeldern nix mehr drinsteht beim programm
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	16.02.2003 - 17:03 Code: `Open "Artikel.dat" For Random As #1 Len = Len(artikel) snr = LOF(1) \ Len(artikel) Put #1, snr + 1, artikel Close #1` ok danke so wies jetz is gehts wenn ich noch weitere fragen habe wende ich mich einfach an euch
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	17.02.2003 - 22:34 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` 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
watchout Legend undead Registered: Nov 2000 Location: Off the grid. Posts: 6845	17.02.2003 - 23:20 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 schei* doch aufs speichern, machs wie word: raise_error ("possible harddisk failure") jetzt im ernst: die einfachste variante wird sein, das file schritt für schritt durchzugehen und nach dem schlüssel zu suchen, und dann die zeile zu ersetzen, ich weiss jetzt leider nimmer ob man mit vb auf die leichte daten mitten in ein file einfügen kann, wenn nicht dann schreibst eben den ganzen datensatz ans ende vom file (den alten löschen nicht vergessen )

VB VideoVerleih

Forum Index > Software > Coding Stuff

Flip

Flip

Flip

atrox

jayjay

Flip

Vivo

Flip

Flip

jayjay

atrox

Flip

Flip

Flip

watchout