rubber

Okay, danke IJK und die anderen. Aber können die Prüfer denn verlangen, dass man sein Projekt vorstellen muss?

Das heißt also auch, dass man während der mündlichen Prüfung nicht sein Projekt präsentiert, sondern, der ganze Ablauf des Projektes. Oder kann es auch sein, dass man sein Projekt demonstrieren soll?

Also mit nem .refresh vor der Parameterauflistung funtkioniert es. Thema kann geschlossen werden.

Also die Datenfelder stimmen alle, das heißt, die werden richtig eingelesen und die Syntax ist doch auch okay, oder? DAs Problem ist ja nur, dass die Abfrage richtig ausgeführt wird, nur dass immer der erste Datensatz geschrieben wird...

Also zählen tut er richtig und auch ohne die cancel funktioniert es nicht. Die Abfragen kann ich dir ja auch nochmal zeigen: PARAMETERS Kundennummer IEEEDouble, Leistungen Text ( 30 ), Heute DateTime, Beginn Text ( 5 ), Dauer IEEEDouble, Kontakt Text ( 20 ), Art Text ( 15 ), Initialen Text ( 10 ), Bemerkung Text ( 255 ); INSERT INTO PC ( KDN_NR, LEISTUNG, DATUM, ZEIT_START, ZEIT, PARTNER, ART, KUERZEL, BEMERK ) VALUES ([Kundennummer], [Leistungen], [Heute], [Beginn], [Dauer], [Kontakt], [Art], [Initialen], [Bemerkung]); PARAMETERS Kundennummer IEEEDouble, Leistungen Text ( 30 ), Produkte Text ( 255 ), Heute DateTime, Beginn Text ( 5 ), Dauer IEEEDouble, Kontakt Text ( 20 ), Art Text ( 15 ), Initialen Text ( 10 ), Bemerkung Text ( 255 ); INSERT INTO Produkt ( KDN_NR, LEISTUNG, PRODUKT, DATUM, ZEIT_START, ZEIT, PARTNER, ART, KUERZEL, BEMERK ) VALUES ([Kundennummer], [Leistungen], [Produkte], [Heute], [Beginn], [Dauer], [Kontakt], [Art], [Initialen], [Bemerkung]);

Hallo. Habe hier etwas Quellcode für eine Prozedur, welche eine gespeicherte Abfrage (Insert_Pc oder Insert_Produkt) solange ausführen soll, bis Daten in den Variablen (Datenfeldern) sind. Es werden zwar immer mehrere Datensätze durch die Abfrage erstellt, aber immer wieder mit den Inhalten des ersten Datensatzes. Sub Daten_in_KV() Dim CnLeistung As ADODB.Connection Dim dblDauer As Double Set CnLeistung = New ADODB.Connection Set objCmd = New ADODB.Command dHeute = Date With CnLeistung .CursorLocation = adUseClient .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Reise.mdb" .Open End With With objCmd End With For i = 0 To 7 Step 1 If Not Dauer(i) = "" Then dblDauer = CDbl(Dauer(i)) With objCmd If PC(i) = True Then .CommandText = "Insert_PC" Else .CommandText = "Insert_Produkt" .Parameters.Append .CreateParameter("Produkte", adBSTR) .Parameters("Produkte").Value = Produkt(i) End If .CommandType = adCmdStoredProc .ActiveConnection = CnLeistung .Parameters.Append .CreateParameter("Kundennummer", adDouble) .Parameters("Kundennummer").Value = KundenNr .Parameters.Append .CreateParameter("Leistungen", adBSTR) .Parameters("Leistungen").Value = Leistung(i) .Parameters.Append .CreateParameter("Heute", adDate) .Parameters("Heute").Value = dHeute .Parameters.Append .CreateParameter("Beginn", adBSTR) .Parameters("Beginn").Value = Beginn(i) .Parameters.Append .CreateParameter("Dauer", adDouble) .Parameters("Dauer").Value = dblDauer .Parameters.Append .CreateParameter("Kontakt", adBSTR) .Parameters("Kontakt").Value = Kontakt .Parameters.Append .CreateParameter("Arten", adBSTR) .Parameters("Arten").Value = Art(i) .Parameters.Append .CreateParameter("Initialen", adBSTR) .Parameters("Initialen").Value = Initialen .Parameters.Append .CreateParameter("Bemerkung", adBSTR) .Parameters("Bemerkung").Value = Bemerkung(i) .Execute Options:=adExecuteNoRecords .Cancel End With End If Next i CnLeistung.Close Exit Sub End Sub Ist das nachzu vollziehen? Wenn ja, könnt ihr mir sagen, ob ich da einen Befehl vergessen habe, oder ob das in einer Schleife nicht geht? Danke im Vorraus. rubber :confused:

Sorry Hades, kommt nicht wieder vor! Frank, ich meine, wenn ich einen Datensatz in die Datenbank schreiben will, muss ich da 3 Insert-Anweisung machen, für jede Tabelle eine? Oder geht das auch mit einer für alle?

Noch ne Frage: Gibt es eine Möglichkeit geschachtelte INSERT-Anweisungen zu dieser DB zu machen? Bis jetzt hab ich immer nur von den normalen gelesen... Insert into Position (...) values (...)

auch ne möglichkeit. Danke

Ich hatte schon überlet einen zusammengesetzten Schlüssel zu nehmen. Aus ID_Abrechnung und meinetwegen ID_Position. Aber haut das dann mit den Beziehungen wieder hin?

Irgendwie glaub ich, die Tabelle Position ist noch nicht richtig... Was meint ihr?

oh ja, entschuldige... aber wie machen es die anderen?

ich meine eigentlich die seitenzahlen... *g*

Jo, dann danke erstmal. Dachte mir das schon und hab es auch so gemacht. Also Kopf- und Fußzeile wie in der restlichen Doku. Wie habt ihr das auf dem Inhaltsverzeichnis geschrieben?

Tach. Ich weiß, dass die Anlagen eine gesonderte Gliederung bekommen und jedes Anlagenblatt eine extra Seitennummer. Aber auch mit Kopf und Fußzeile, so wie sie in der restlichen Doku ist? Hmm... :floet: