27. Mai 200916 j Hallo... Ich hab volgendes problem... ich bin neuling in sachen VB habe ne zeit lang mit VBA rum gedocktert und kleinigkeiten gebastelt... u.a. Monopoly... nur jetz in VB is ja mehr möglich und ich dachte mir ich schreibe mal ein programm womit ich meine Kunden speichern kann (Name,Adresse,Tel.,E-Mail...) zudem will ich damit auch Bestellungen verwalten... Rechnungen ausdrucken lassen USW! ich hab das schonmal gesehen... aber ich finde die seite nicht mehr! naja... Also ich hab 2 probleme! und zwar 1. Ich muss irgendwo meine Kundendaten ablegen... hatte dabei an eine Access datenbank gedacht... nun hab ich schon in zig foren nachgeblettert und nicht das passende gefunden die kundennaten sollten gespeichert/gelesen/geändert/gelöscht werden können... und ich weis nicht wie ich das realisieren kann 2. ich hab eine Access datenbank angelegt wo Artikel (Artikelnumer,Beschreibumg,EK-Preis,VK-Preis usw) aufgelistet sind.. diese liste würde ich gern abfragen... also wenn ich nach der Artikelnummer suche brauche ich dann die bezeichnung und den VK-Preis den rest bekomm ich hin... nur die beiden sachen sind das problem... Ich hoffe mir kann jemand helfen... Google tuts in dem fall nicht!!! Wär euch sehr verbunden wenn ihr bei der lösung meines problems hefen könntet! danke im vorraus Gruß Chriss
27. Mai 200916 j Habe ein ähnliches Problem... Kann man das (in ermangelung von access) auch ohne realisieren? (Abfrage, änderung, von Name, Geb., etc.)?
28. Mai 200916 j Guten Morgen :-) @Chriss: Auf ASPHelper.de findest du gute Erklärungen zum Thema. Zwar geht es da im Grunde genommen um ASP und damit um VBS aber Analogien sind vorhanden ^^ (Ansonsten war das der erste Treffer bei google) @Rollermann: Dann speicher die Daten doch in ne TXT :-)
4. Juni 200916 j Hallo... Ich hab volgendes problem... ich bin neuling in sachen VB habe ne zeit lang mit VBA rum gedocktert und kleinigkeiten gebastelt... u.a. Monopoly... nur jetz in VB is ja mehr möglich und ich dachte mir ich schreibe mal ein programm womit ich meine Kunden speichern kann (Name,Adresse,Tel.,E-Mail...) zudem will ich damit auch Bestellungen verwalten... Rechnungen ausdrucken lassen USW! ich hab das schonmal gesehen... aber ich finde die seite nicht mehr! naja... Also ich hab 2 probleme! und zwar 1. Ich muss irgendwo meine Kundendaten ablegen... hatte dabei an eine Access datenbank gedacht... nun hab ich schon in zig foren nachgeblettert und nicht das passende gefunden die kundennaten sollten gespeichert/gelesen/geändert/gelöscht werden können... und ich weis nicht wie ich das realisieren kann 2. ich hab eine Access datenbank angelegt wo Artikel (Artikelnumer,Beschreibumg,EK-Preis,VK-Preis usw) aufgelistet sind.. diese liste würde ich gern abfragen... also wenn ich nach der Artikelnummer suche brauche ich dann die bezeichnung und den VK-Preis den rest bekomm ich hin... nur die beiden sachen sind das problem... Ich hoffe mir kann jemand helfen... Google tuts in dem fall nicht!!! Wär euch sehr verbunden wenn ihr bei der lösung meines problems hefen könntet! danke im vorraus Gruß Chriss Ich kann euch einen einfachen Quellcode aus meinen alten Zeiten mit VB6 schicken. Hierzu müßt ihr allerdings noch einen "Verweis" setzen. "Microsoft DAO 2.5/3.5 Compatibility Libary" (kommt darauf an kann auch nur der Microsoft DAO 3.6 Compatibility Libary sein) Private Sub speichern() Dim db As Database Dim rec As Recordset Dim sql As String ' Tabellenblatt ist Stammdaten ' Name, Vorname etc. sind die Feldnamen sql = "SELECT * FROM Stammdaten WHERE (Name = '" & TextBox1.Text & "') AND Vorname = '" & TextBox2.Text & "'" Set db = OpenDatabase("C:\Urlaub\Datenerfassung\db2002.mdb") Set rec = db.OpenRecordset(sql) With rec If .EOF Then .AddNew Else .Edit End If .Fields("Name") = TextBox1.Text .Fields("Vorname") = TextBox2.Text .Fields("Kennung") = TextBox3.Text .Update .Close End With db.Close Label1.Caption = "Datensatz wurde geschrieben." End Sub Private Sub laden() Dim db As Database Dim rec As Recordset Dim sql As String Me.ListBox1.Clear 'sql = "SELECT * FROM Stammdaten WHERE (Name = '" & TextBox1.Text & "') AND Vorname = '" & TextBox2.Text & "'" Set db = OpenDatabase("C:\Urlaub\Datenerfassung\db2002.mdb") Set rec = db.OpenRecordset("Stammdaten") With rec Do While Not .EOF ListBox1.AddItem (.Fields("Vorname") & ", " & .Fields("Name") & ", " & .Fields("Kennung")) .MoveNext Loop .Close End With db.Close Label1.Caption = Str$(ListBox1.ListCount) & " Datensätze wurden gefunden." End Sub Den Quellcode könnt ihr entsprechend eurer Accessdatenbank anpassen
Archiv
Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.