vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: rst in access difinieren? 
Autor: 2face
Datum: 15.10.03 10:58

Dim conConnection As Connection
Dim rstPosition As Recordset
Dim rstPositionNeu As Recordset

Set conConnection = CurrentProject.Connection
Set rstPosition = New Recordset
Set rstPositionNeu = New Recordset

rstPosition.ActiveConnection = conConnection

rstPosition.Open "Select Menge, Bezeichnung, ZeitVon, ZeitBis, EinzelPreis, GesamtPreis from " & _
"Position Where AuftragID = " & intID

rstPosition.Open "Select * FROM Auftrag"


'rstPositionNeu.ActiveConnection = conConnectionNeu



Do While Not rstPosition.EOF

rstPositionNeu.AddNew
rstPositionNeu!AuftragID = intNeuID
rstPositionNeu!Menge = rstPosition!Menge
rstPositionNeu!Bezeichnung = rstPosition!Bezeichnung
rstPositionNeu!ZeitVon = rstPosition!ZeitVon
rstPositionNeu!ZeitBis = rstPosition!ZeitBis
rstPositionNeu!EinzelPreis = rstPosition!EinzelPreis
rstPositionNeu!GesamtPreis = rstPosition!GesamtPreis

rstPositionNeu.Update
rstPositionNeu.Requery
rstPosition.MoveNext

Loop


'Do While rstPositionNeu.EOF
'DoCmd.GoToRecord acDataTable, Position, acNewRec, 50


' Me.Position!Menge = rstPositionNeu!Menge
' Me.Position!Bezeichnung = rstPositionNeu!Bezeichnung
' Me.Position!ZeitVon = rstPositionNeu!ZeitVon
' Me.Position!ZeitBis = rstPositionNeu!ZeitBis
' Me.Position!EinzelPreis = rstPositionNeu!EinzelPreis
' Me.Position!GesamtPreis = rstPositionNeu!GesamtPreis
' Me.Position!AuftragID = rstPositionNeu!AuftragID

' Loop

------------------------------------------------------------------------------------------------------------
er mauelt beim 2ten rst.

Wenn jeder nur ?ber das Reden w?rde,
Wovon er etwas verst?nde,
W?re es ziemlich Leise auf unserer Erde.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
rst in access difinieren?7122face15.10.03 09:57
Re: rst in access difinieren?429Stefan Rühl15.10.03 10:00
Re: rst in access difinieren?3732face15.10.03 10:58
Re: rst in access definieren?350Stefan Rühl15.10.03 11:11
Re: rst in access definieren?3942face15.10.03 11:15
Re: rst in access definieren?340Stefan Rühl17.10.03 12:42

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel