OpenOffice.info

oCon = DataSource.GetConnection( "joachim", "meinPasswort" )

[quote="MikeRo"]wie ich mit dem Makro die Verbindung herstellen soll.[/quote]


[code]oCon = DataSource.GetConnection( "joachim", "meinPasswort" )[/code]

Ja ich kann mit der JDBC Verbindung Tabelleninhalte verändern, allerdings kann ich leider das Passwort nicht speichern und somit weiß ich gerade nicht wie ich mit dem Makro die Verbindung herstellen soll.

[quote="MikeRo"]Ich meine die JDBC Verbindung.[/quote]

Dann interessiert uns natürlich auch noch, ob Du nun Tabelleninhalte ändern kannst...

Ich meine die JDBC Verbindung.

Und das mit dem Fokus werde ich versuchen.

[quote="MikeRo"]Habe es geschafft, aber kann man das Passwort irgendwie speichern? [/quote]
Was hast Du geschafft: die JDBC-Installtion, die Verbindung zur Datenbank oder das Ändern der Tabellen?


[quote="MikeRo"]Bei dem anderen Problem hast du auch keine Idee oder?[/quote]
Hatte ich mir zuvor noch gar nicht angesehen...

Dein Makro reagiert auf das Ereignis "Textfeld geändert"?
Kein Wunder, dass der Index durcheinander kommt, wenn Du Buchstaben löschst.

Würde als Auslöser da wohl eher [color=#0040FF]Focus verlassen[/color] nehmen

[quote="komma4"]Hast Du die [color=#008000]JAR[/color] lokal gespeichert? Im [color=#0040FF]Class Path[/color] bei [color=#0040FF]Extras>Optionen...>OpenOffice.org>Java[/color] eingetragen?[/quote]
[color=#800000]Moderation,4:[/color] Vollzitat gekürzt


Nein noch nicht, habe aber eine Anleitung gefunden.

http://www.postgresonline.com/journal/archives/8-Using-OpenOffice-Base-2.3.1-with-PostgreSQL.html

Habe es geschafft, aber kann man das Passwort irgendwie speichern?

Und Danke.

Bei dem anderen Problem hast du auch keine Idee oder?

Wenn die Tabellen Schlüssel haben, dann ist das nicht die Ursache...

[quote="MikeRo"] Aber wenn ich bei klasse org.postgresql.Driver eintrage kommt die Meldung konnte nicht geladen werden.[/quote]
Hast Du die [color=#008000]JAR[/color] lokal gespeichert? Im [color=#0040FF]Class Path[/color] bei [color=#0040FF]Extras>Optionen...>OpenOffice.org>Java[/color] eingetragen?

Was meinst du genau mit dem Primärschlüssel? Die DB zu der ich verbinde ist unsere in der Firma und da sind hunderte von Tabellen. Da hat natürlich jede Tabelle einen Primärschlüssel.

Aber wenn ich bei klasse org.postgresql.Driver eintrage kommt die Meldung konnte nicht geladen werden.

[quote="MikeRo"]Woran kann das denn liegen?[/quote]

Wenn Du Berechtigung und (fehlenden) Primärschlüssel ausschliessen kannst:
am Treiber kann das liegen.

Ich arbeite mit JDBC [PostgreSQL 9.0 JDBC4 (build 801); Verbindung: [color=#008000]jdbc:postgresql://SERVER:5432/DATENBANKNAME[/color]] - und da funktioniert es.

[color=#800000]Moderation,4[/color]: Vollzitat gelöscht


Ich habe eine Base Datenbank mit einer Verbindung zur PostgreSQL Datenbank.
Ich habe PostgreSQL ausgewählt und bin über folgenden Link verbunden.

dbname=swdb host=192.168.0.200 user=joachim password=*****

Der User Joachim hat alle Rechte und Vollzugriff. Denn über PGAdmin kann ich mit dem User auch Einträge verändern und löschen, aber mit der BaseDatenbank nicht. Woran kann das denn liegen?

[quote="MikeRo"]1. Kann ich eigentlich eine Verbindung zu einer PostgreSQL Datenbank aufbauen ohne Base als Datenquelle zu nutzen? Denn in Base habe ich eine Verbindung hergestellt aber ich kann nur aus der Datenbank lesen und nicht schreiben oder updaten. [/quote]

Nein, BASE ist das Bindeglied zwischen einer Datenbank-[i]engine[/i] und OOo. Ohne das geht nichts.

Du kannst auf alle Tabellen der DB nur lesend zugreifen?

Hast Du einen Schlüssel ([i]primary key[/i]) für die betroffene(n) Tabelle(n) definiert?
Überprüfe die Benutzerberechtigungen!


Welche OOo-Version?
Welches Betriebssystem?
Welcher Datenbank-Treiber?

rem-------------------------------------------------------------------------------------------------------------------------------------Dialog Starten

Dim oDialog as Object
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Zaehler AS Integer
Public eLokal

Sub StammdatenDialog 

	DialogLibraries.LoadLibrary("Befragungsbogen")
 	oDialog = createUnoDialog(DialogLibraries.Befragungsbogen.DialogStammdaten)
	OS = GetGUIType()
    oDialog.execute()
   
End Sub

Sub DB

	If OS = 1 Then 'Windows
	DBurl=converttourl("Z:\Programme\Vorlagen für Makros\Datenbankverbindung Testserver.odb")
   	ElseIf OS = 4 Then 'Unix
	DBurl=converttourl("/media/transfer/Programme/Vorlagen für Makros/Datenbankverbindung Testserver.odb")   	
   	End IF
   	
   	DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
   	DataSource = DatabaseContext.getByName(DBurl)
   	oCon = DataSource.GetConnection("","")
   
End Sub

Sub StammdatenAnzeige

Call DB

	eLokal = oDialog.getControl("EingabeLokal").text

	oStatement = oCon.createStatement()
	oListenAbfrage = oStatement.executeQuery("SELECT ""name"" FROM ""public"".""outlet"" WHERE UPPER(""name"") LIKE UPPER('%"& eLokal &"%')")
    
    
    		aListe = array()
			Zaehler = 0
    
    	    If not isNull(oListenAbfrage) Then
			
			Do while oListenAbfrage.Next
			ReDim Preserve aListe(Zaehler)
            aListe(Zaehler) = oListenAbfrage.getString(1)
          	
          	Zaehler = Zaehler + 1
        	
        	Loop
    
    		End IF

    aLokal = oDialog.getControl("AusgabeLokal")
   	aLokal.removeItems(0, aLokal.getItemCount())  
	aLokal.addItems(aListe, 1)

End Sub

Hallo ich habe zwei Fragen.

1. Kann ich eigentlich eine Verbindung zu einer PostgreSQL Datenbank aufbauen ohne Base als Datenquelle zu nutzen? Denn in Base habe ich eine Verbindung hergestellt aber ich kann nur aus der Datenbank lesen und nicht schreiben oder updaten.

2. Ich habe dieses Makro, welches auf die Datenbank zugreift und die Abfrage ausführt. In dem Dialog ist ein Textfeld und ein Listenfeld. Und bei jeder Veränderung des Textfeldes wird die Abfrage ausgeführt. Es soll eben nach Einträgen gesucht werden. Aber es kommt oft vor wenn ich was suche und Buchstaben wieder lösche das der Fehler kommt Index außerhalb des Definierten Bereichs. Woran liegt das?

[code]
rem-------------------------------------------------------------------------------------------------------------------------------------Dialog Starten

Dim oDialog as Object
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Zaehler AS Integer
Public eLokal

Sub StammdatenDialog

DialogLibraries.LoadLibrary("Befragungsbogen")
oDialog = createUnoDialog(DialogLibraries.Befragungsbogen.DialogStammdaten)
OS = GetGUIType()
oDialog.execute()

End Sub

Sub DB

If OS = 1 Then 'Windows
DBurl=converttourl("Z:\Programme\Vorlagen für Makros\Datenbankverbindung Testserver.odb")
ElseIf OS = 4 Then 'Unix
DBurl=converttourl("/media/transfer/Programme/Vorlagen für Makros/Datenbankverbindung Testserver.odb")
End IF

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName(DBurl)
oCon = DataSource.GetConnection("","")

End Sub

Sub StammdatenAnzeige

Call DB

eLokal = oDialog.getControl("EingabeLokal").text

oStatement = oCon.createStatement()
oListenAbfrage = oStatement.executeQuery("SELECT ""name"" FROM ""public"".""outlet"" WHERE UPPER(""name"") LIKE UPPER('%"& eLokal &"%')")


aListe = array()
Zaehler = 0

If not isNull(oListenAbfrage) Then

Do while oListenAbfrage.Next
ReDim Preserve aListe(Zaehler)
aListe(Zaehler) = oListenAbfrage.getString(1)

Zaehler = Zaehler + 1

Loop

End IF

aLokal = oDialog.getControl("AusgabeLokal")
aLokal.removeItems(0, aLokal.getItemCount())
aLokal.addItems(aListe, 1)

End Sub

[/code]