Daten mit Basic aus Tabelle auslesen und schreiben

[Loeckenhoff]

Wer hilft mir bei folgendem Problem:
Ich erstelle eine Vereinsverwaltung in lo-base mit 2 Tabellen.
Tabelle1 enthält die Mitglieder, deren Monatsbeitrag und …....
Tabelle2 enthält Buchungen: monatliche Sollstellungen (der Monatsbeiträge) und Zahlungseingänge.
Die Zahlungseingänge werden per Hand als Gutschrift in die Tabelle2 gebucht.
PROBLEM:
Die Monatsbeitrag möchte ich als Sollstellung jeden Monat, mit Makro, für alle Mitglieder aus Tabelle1, in die Tabelle2 buchen.
Das Makro soll:
aus einem Formular heraus gestartet werden.
die Zal der Datensätze der Tabelle1 ermitteln.
in einer Schleife alle Datensätze aus Tabelle1 auslesen, Datenfelder bearbeiten und als Datensatz an Tabelle2 anhängen.

Wo finde ich ein Beispiel.

Gruß Löckenhoff

[gogo]

etwa so?

Code: Alles auswählen

insert into Buchungen 
		(ID_Buchungen, ID_Mitglied, Monatsbeitrag ) 
	select 
		NULL, ID_Mitglied, Monatsbeitrag 
	from Mitglieder 

[Loeckenhoff]

Vielen Danke gogo,
mit dem SQL-Kode wird fast das erreich was mir vorschwebt.
Warum einfach wenn es auch umständlich geht. Um Basic in Base besser zu begreifen, möchte ich das ganze umständlich mit Basic lösen. Denn wenn ich die Feldinhalte in Basic-Variablen habe, fällt es mir leichter die Daten zu bearbeiten, Wie muss ich die Tabellen aus Basic heraus ansprechen?
So:
Datenquelle = ThisComponent.Parent.DataSource
Verbindung = Datenquelle.GetConnection("","")
SQL_Anweisung = Verbindung.createStatement()

geht es nicht.

Wie übernehme ich die Feldinhalte in Basic-Variablen?

[RobertG]

Hallo Loeckenhoff,

an welcher Stelle geht das, was Du da andeutest, denn nicht?

Code: Alles auswählen

Datenquelle = ThisComponent.Parent.DataSource
Verbindung = Datenquelle.GetConnection("","")
SQL_Anweisung = Verbindung.createStatement() 

Jetzt muss doch nur noch der SQL-Code kommen:

Code: Alles auswählen

stSql = "insert into ""Buchungen"" (""ID_Mitglied"", ""Monatsbeitrag"" ) (select ""ID_Mitglied"", ""Monatsbeitrag"" from ""Mitglieder"")"
SQL_Anweisung.executeUpdate(stSql)	

Die Maskierung mit Anführungszeichen sollten im Basic-Code für die interne Datenbank vorhanden sein.

Gruß

Robert

[Loeckenhoff]

Danke  RobertG,
ja das klappt.
Und wie bekomme ich die Feldinhalte in Basic-Variablen ?
Gruß Loeckenhoff

[gogo]

Code: Alles auswählen

' wichtig, falls Du mal von hinten nach vorne durch das Resultset isterieren moechtest:
SQL_Anweisung = com.sun.star.sdbc.ResultSetType.SCROLL_INSENSITIVE

select case LCase(left(stSql,6))
case "select"
	' HOLT die Daten
	oResultset=SQL_Anweisung.executeQuery(stSql)
	' scrollt durch das Ergebnis (Spalte 1 in diesem Fall) bis zum Ende ...
	while oResultset.next
		VariableX=oResultset.getstring(1)
		msgbox "Zeile " & oResultset.row & " = " & VariableX
	wend
case else
	' FUEHRT ein Daten-veraenderndes Statement AUS
	SQL_Anweisung.executeUpdate(stSql)
end select

[RobertG]

Hallo Loeckenhoff,

meinst Du mit den Feldinhalten die Inhalte, die gerade in Deinem Formular angezeigt werden?

Ansonsten reicht es doch, das Formular anschließend zu aktualisieren.

Schau Dir gegebenenfalls einfach einmal das Makro-Kapitel des Handbuches an.

Gruß

Robert

[Loeckenhoff]

Danke gogo und RobertG,
ich sehe, dass ich noch viel üben muss, um Makros in Base zu verstehen.
Für weitere Anregungen bin ich dankbar. Doch jetzt muss ich alles erst verarbeiten.
Ich schau mir auch das Kapitel Makros im Handbuch an.
Bis dann Gruß Loeckenhoff