Ich bin absoluter Neuling in Sachen Dialoge erstellen. Ich habe jetzt viel gelesen, aber je mehr ich gelesen habe um so kompliziert wurde die Sache für mich. Vieleicht kann mir ja jemand Start hilfe geben und mir sagen was ich falsch mache.
Als erstes habe ich per Assistent 3 Dialoge erstellt, welche sich per Button öfnen lassen. dafür habe ich ein Modul erstellt. Alles habe ich im Arbeitsblatt von meiner Datenbank untergebracht (Also nicht in Meine Dialoge). Soweit ging es noch ganz gut. Der erste Dialog ist nur mit Button´s belegt mit dem die anderen geöfnet werden. Der 2. soll zum speichern meiner neuen Daten sein und der dritte für speichern von neuen Mitarbeitern. und ein 4. wir noch erstellt für´s filtern.
Jetzt weiß ich das ich erst mal jedes Feld deklarieren muß, und das ".Date " für Datum steht. aber bei Zeit Feldern bin ich schon nicht mehr sicher. Ich habe mal gelesen das Zeit auch als .Date deklariert werden muß und das man dann diesen Code benutzen muß.
Code: Alles auswählen
dim oDat as new com.sun.star.util.Date
with oDat
.day = Day(now)
.month = Month(now)
.year = Year(now)
end with
oDlg.getControl("meinDatumsKontrollfeld").date = oDat
dDatum = CDate(oDlg.getControl("meinDatumsKontrollfeld").getAccessibleContext.text)
Außer dem weiß ich nicht muß ich die ID mit einbauen obwohl die Datenbanktabelle ja automatisch eine ID setzt , jedenfalls beim Formular.
Und ist mein Code für die Tabelle richtig? (weil ich ja angeben muß wohin meine Eingaben gespeichert werden.)
Soll mein Dialog mal aussehen, wobei Mitarbeiter eine Beziehung zum Hauptabelle namens "Gesammtdaten" ist, mit den Namen tbl_ma. Aber das nur neben bei.
Mein Code sieht bis jetzt so aus. Wobei ich bei
Code: Alles auswählen
stVon = oDialog1.getControl("TimeField1").Date
Code: Alles auswählen
REM ***** BASIC *****
DIM oDialog0 AS OBJECT
DIM oDialog1 AS OBJECT
DIM oDialog2 AS OBJECT
SUB Dialog0Start
DialogLibraries.LoadLibrary("Standard")
oDialog0 = createUnoDialog(DialogLibraries.Standard.Dialog0) 'Der direkte Start beim Öffnen der Datei ist manchmal nicht möglich ...
oDialog0.Execute()
END SUB
SUB Dialog0Ende
oDialog0.EndExecute()
END SUB
SUB Dialog1Start
DialogLibraries.LoadLibrary("Standard")
oDialog1 = createUnoDialog(DialogLibraries.Standard.Dialog1)
oDialog1.Execute()
END SUB
SUB Dialog1Ende
oDialog1.EndExecute()
END SUB
SUB Daten1Speichern
DIM oDatenquelle AS OBJECT
DIM oVerbindung AS OBJECT
DIM oSQL_Anweisung AS OBJECT
dim oDat as new com.sun.star.util.Date
with oDat
.day = Day(now)
.month = Month(now)
.year = Year(now)
end with
DIM stVon AS Date
DIM stBis AS Date
oDate = oDialog1.getControl("DateField1").Date
stVon = oDialog1.getControl("TimeField1").Date
stBis = oDialog1.getControl("TimeField2").Date
oVerbindung = oDatenquelle.ActiveConnection()
oSQL_Anweisung = oVerbindung.createStatement()
stSql = "INSERT INTO ""Gesamtdaten"" ( ""Datum"", ""Von"", "" Bis"") ('"+Datum+"','"+Von+",'"+Bis+"')"
dDatum = CDate(oDlg.getControl("Datum").getAccessibleContext.text)
END SUB
Vieleicht versteht jemand mein Erklährungsversuch und kann mir sagen wie ich die Zeit deklarieren muß und ich was ich tun muß das es auch in die DB-Tabelle gespeiert wird. Vieleicht hat jemand Lust mir den Aufbau zu erklären. Ich glaub aus Büchern lernen nicht so mein Ding .Aber für ein Basic Kurs habe ich nicht wirklich Zeit im Moment.
Gruß Moerser01