OpenOffice.info

So, ich habe eine Lösung gefunden!!!


' Passwortabfrage umgehen
sub VerbindungDatenbank
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("DBname")
DataSource ...

Versuchs mal damit:

Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Datenbankname")
Connection = DataSource.GetConnection("","")
Connection.close()

Das ...

Ich habe gerade ein Dokument erstellt, das erstmal unabhängig von der Datenbank läuft. Darauf befinden sich zwei Buttons, von denen einer mit Passwort und einer ohne auf die Datenbank zugreifen. Die Verbindung zur Datenbank über Button 1 funktioniert, ich bekomme Werte aus der Datenbank angezeigt ...

Hallo,

ich habe ein Formular, in welchem ich über Makros die Eigenschaften von bestimmten Objekten ändere. Nun möchte ich verhindern, dass das Formular von unerfahreren Benutzern verändert und überschrieben wird. Daher habe ich es schreibgeschützt. Nun werden aber während der Benutzung die ...

Die Fehlermeldung besagt, dass du keinen Namen und Nachnamen eingegeben hast, die Tabelle dies aber erfrdert. Wann genau kommt die Fehlermeldung denn?

Kann denn wirklich keiner helfen? Mit dieser Abfrage sind die letzten Wochen Arbeit an dem Formular wertlos -.-

Geh mit Rechtsklick auf das Eingabefeld für die zweite Tabelle, dort kannst du dann unter Formular->Daten->Inhalt die zweite Tabelle auswählen.
Dann änderst du das Ziel des Feldes und fertig.
Allerdings solltest du in irgendeiner Weise dafür sorgen, dass nicht mehrere Einträge für den gleichen ...

Gibt es die Eigenschaft Label?
Probiers mal mit .text statt .label:

REM Textfelder auffüllen mit aktuellen Daten
sub Textfelder_definieren
DIM sText1 as string, sText2 as string
sText1 = aTexte(1)
if (hour(now()) > 4) And (hour(now()) < 11) then sText1 = aTexte(0)
if (hour(now()) > 18) And (hour ...

Das hier habe ich auf die schnelle gefunden:
http://www.office-center-epj.de/base_vorlagen.htm
(google hilft)

Ansonsten bietet Base grade für Sammlungen und Inventar relativ gute Unterstützung was das erstellen von Tabellen und Formularen angeht.

Hab ich versucht, bringt auch nichts.

Mh, so komm ich nicht weiter, hab das ganze jetzt auch auf:
http://www.openoffice-forum.de/viewtopic.php?f=9&t=1553
gepostet.

Das Passwort wird definitiv richtig übergeben, ich bekomme ja die Werte aus der Datenbank per Makro auch ohne das Passwort anzugeben. Aber durch die Aktion wird anscheinend die Verbindung zwischen Formular und Datenbank nicht hergestellt, sondern nur für die dauer der Anfrage zwischen dem Makro und ...

Der wesentliche Unterschied ist, dass die im Beitrag markierte Stelle durch
connection=datasource.getconnection("Benutzer","Passwort")
ersetzt wurde. Zumindest verstehe ich das so. Nun habe ich folgendes Makro:

sub SetDatabaseConnection
Dim DatabaseContext As Object
Dim DataSource As Object
Dim ...

Also ich hatte das gleiche Problem mit einem Datumsfeld, dazu ist meine Lösung:


REM Datumsfeld beschriften
dim a as string
a = Date()
oDoc = ThisComponent
oDocView = oDoc.getCurrentController()
oForm = oDoc.drawpage.forms(0)
oFeld = oForm.getByName("datDatum")
oDocView.getControl(oFeld).setFocus ...

Willst du immer BKP und zugehörige Beschreibung in einem Feld zur Auswahl haben oder beides getrennt voneinander, also untereinander in der Liste?
Das erste ließe sich ja mit einer Abfrage erreichen, wo die zwei Felder per concat verbunden sind.
Die Abfrage wäre dann z.B.
SELECT Concat("BKP",Concat ...