title image


Smiley Löschen und hinzufügen von Datensätzen (VB6) ! ?
Moin moin,



ich sammele Daten in einer Listview.

Mit dem Befehl speichern, will ich alle Datensätze in meiner Tabelle

löschen.

Danach die Daten meiner Listview auslesen und

die Datensätze meiner Datenbank wieder damit füllen.



Das wollte ich eigentlich so machen:

Ich gehe zum 1ten Eintrag in meiner Tabelle.

Rolle mit einer Schleife durch die Tabelle.

Lösche alle Redordsets.

Gehe wieder zum Anfang.

Lese alle Einträge meiner Listview aus, und füge sie mit

rs.addnew wieder hinzu.



Aber wieso macht er mir das nicht ????





Hat hier jemand eine Idee ?

Oder geht es sogar einfacher ?





Danke.





Gruss

Michael









rs.MoveFirst



While Not rs.EOF

rs.Delete

rs.MoveNext

Wend



rs.MoveFirst



For x = 1 To ListView1.ListItems.Count



rs.addnew







'rs("Zeiger") = ListView1.Item.Text 'Autowert

rs("Zeichnungsnummer") = ListView1.ListItems(x).SubItems(1) '1

rs("Teilenummer") = ListView1.ListItems(x).SubItems(2) '2

rs("Bezeichnung") = ListView1.ListItems(x).SubItems(3) '3

rs("Index") = ListView1.ListItems(x).SubItems(4) '4

rs("Status") = ListView1.ListItems(x).SubItems(5) '5

rs("PAvonName") = ListView1.ListItems(x).SubItems(6) '6

rs("PAvonAbteilung") = ListView1.ListItems(x).SubItems(7) '7

rs("Stueck") = ListView1.ListItems(x).SubItems(8) '8

rs("Auftrag") = ListView1.ListItems(x).SubItems(9) '9

rs("Zeit") = ListView1.ListItems(x).SubItems(10) '10

rs("io") = ListView1.ListItems(x).SubItems(11) '11

rs("Dienstleister") = ListView1.ListItems(x).SubItems(12) '12

rs("Hersteller") = ListView1.ListItems(x).SubItems(13) '13

rs("PANummer") = ListView1.ListItems(x).SubItems(14) '14

rs("Suchbegriff") = ListView1.ListItems(x).SubItems(15) '15

rs("Lieferantenbewertung") = ListView1.ListItems(x).SubItems(16) '16

rs("Fremd") = ListView1.ListItems(x).SubItems(17) '17

rs("EingangAm") = ListView1.ListItems(x).SubItems(18) '18

rs("EingangUm") = ListView1.ListItems(x).SubItems(19) '19

rs("AusgangAm") = ListView1.ListItems(x).SubItems(20) '20

rs("AusgangUm") = ListView1.ListItems(x).SubItems(21) '21

rs("Bemerkungen") = ListView1.ListItems(x).SubItems(22) '22

rs("ListboxZusaetze") = ListView1.ListItems(x).SubItems(23) '23

rs("ZusaetzePPL") = ListView1.ListItems(x).SubItems(24) '24

rs("ZusaetzeCHR") = ListView1.ListItems(x).SubItems(25) '25

rs("ZusaetzeBild") = ListView1.ListItems(x).SubItems(26) '26

rs("BewertungFormblatt") = ListView1.ListItems(x).SubItems(27) '27

rs("BewertungZusaetze") = ListView1.ListItems(x).SubItems(28) '28

rs("FremdDienstleister") = ListView1.ListItems(x).SubItems(29) '29

rs("FremdBanf") = ListView1.ListItems(x).SubItems(30) '30

rs("FremdAusgang") = ListView1.ListItems(x).SubItems(31) '31

rs("FremdEingang") = ListView1.ListItems(x).SubItems(32) '32

rs("FremdPreis") = ListView1.ListItems(x).SubItems(33) '33

rs("FremdZusaetze") = ListView1.ListItems(x).SubItems(34) '34

rs("Lieferschein") = ListView1.ListItems(x).SubItems(35) '35

rs("Lieferant") = ListView1.ListItems(x).SubItems(36) '36

rs("FremdInput") = ListView1.ListItems(x).SubItems(37) '37

rs("Arbeitsplatz") = ListView1.ListItems(x).SubItems(38) '38

rs("Startzeit") = ListView1.ListItems(x).SubItems(39) '39

rs("Endzeit") = ListView1.ListItems(x).SubItems(40) '40

rs("AbgelegtAm") = ListView1.ListItems(x).SubItems(41) '41

rs("AbgelegtUm") = ListView1.ListItems(x).SubItems(42) '42

rs("EingabenOK") = "OK" 'ListView1.ListItems(x).SubItems(43) '43

rs("AblaufGestoert") = ListView1.ListItems(x).SubItems(44) '44

rs("Bediener") = ListView1.ListItems(x).SubItems(45) '45

rs("MassX") = ListView1.ListItems(x).SubItems(46) '46

rs("MassY") = ListView1.ListItems(x).SubItems(47) '47

rs("MassZ") = ListView1.ListItems(x).SubItems(48) '48

rs("Lagerort") = ListView1.ListItems(x).SubItems(49) '49

rs("EingangPaTag") = ListView1.ListItems(x).SubItems(50) '50

rs("EingangPaZeit") = ListView1.ListItems(x).SubItems(51) '51

rs("EingangTeilTag") = ListView1.ListItems(x).SubItems(52) '52

rs("EingangTeilZeit") = ListView1.ListItems(x).SubItems(53) '53

rs("WterminTag") = ListView1.ListItems(x).SubItems(54) '54

rs("WterminZeit") = ListView1.ListItems(x).SubItems(55) '55

rs("Zugesagt") = ListView1.ListItems(x).SubItems(56) '56

rs("ErrTerminTag") = ListView1.ListItems(x).SubItems(57) '57

rs("ErrTerminZeit") = ListView1.ListItems(x).SubItems(58) '58

rs("Prio") = ListView1.ListItems(x).SubItems(59) '59

rs("Logbuch") = ListView1.ListItems(x).SubItems(60) '60

rs("MerkmaleAuswahl") = ListView1.ListItems(x).SubItems(61) '61

rs("Merkmale") = ListView1.ListItems(x).SubItems(62) '62



rs.Update

rs.MoveNext



Next x






und selbst wenn ich wuesste das morgen die welt unterginge, wuerde ich heute noch ein apfelbaeumchen pflanzen. (martin luther ) :-)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: