Sql Datenbankabfrage?

[i.v.]

Hallo zusammen,

ich versuche mit VB in einer SQL Abfrage ein Feld, welches ein Datum enthält, als Jahr  zurück zugeben.

In Access Datenbanken würde ich das so machen:

Code

strSQL="Select Year(FirtsDate) From ......

Doch wie muss ich die Abfrage für eine Lotus Datenbank erstellen?

Danke und Gruß Ingo

[Axel]

So ohne weiteres kannst du keine SQL-Abfragen auf eine Notes-Datenbank loslassen. Notes ist keine relationale Datenbank.

Du musst dir zuerst NotesSQL downloaden und installieren. Dann kannst du über eine ODBC-Verbindung mit SQL-Befehlen die Daten abfragen.

Hier findest du eine Dokumentation: http://www-12.lotus.com/ldd/doc/notessql/3.0.2/Nsql302.nsf

Das Ganze ist m.E. ziemlich aufwendig und eigentlich heute nicht mehr zeitgemäß. Was soll denn das werden? Gibt mal ein paar mehr Infos. Vielleicht gibt's noch andere Lösungswege.

Axel

[i.v.]

Hallo Axel,

wir haben in Lotus Notes unteranderem eine Datenbank, in der Workshops protokolliert werden.
Mit einer VB Anwendeung erstelle ich den Monatsbericht für das IdeenManagement.
Die daten hierzu sind in einer Accessdatenbank.

Da bei uns Workshops (KVP) und das IdeenManagement verknüft sind, soll die Daten auch in einem Bericht dargestellt werden.

Den Zugriff auf die Datenbank habe ich schon und soweit funktioniert auch alles.
Nur die Konvertietung des Datums in das Jahr, oder Monat, das geht noch nicht.

Wie kann ich das realisieren?

Danke und Gruß Ingo
 

[ascabg]

Hallo,

Wie greifst Du denn nun auf die DB zu?


Andreas

[i.v.]

Hallo Andreas,

ich habe gestern schon geantwortet, doch wie ich gerade sehe, ist diese Antwort nicht gespeichert!?

Ja, wie greife ich auf die DB zu?
So wie es Axel Geschrieben hat. Mit einer ODBC- Verbindung.

Das ganze funktioniert auch, nur beim konverieren des Datums hab ich ein Problem

Mit diesem Code soll die Combobox Jahr gefüllte werden:

Code

Sub Jahr()
Dim strSQL      As String
Dim RS          As adodb.Recordset

Set RS = CreateObject("ADODB.Recordset")
strSQL = "select @Year(_11) from Liste order by _11 desc"
RS.Open strSQL, cn, adOpenKeyset, adLockReadOnly

With Me.cmbJahr
    .Clear
    Do Until RS.EOF
        .AddItem (RS.Fields(0))
    RS.MoveNext
    Loop
End With

End Sub

Allerdings kommt dann folgende eine Fehlermeldung beim öffnen des Recordsets:

Laufzeitfehler "-2147467259 (80004005)"
[Lotus][ODBC Lotus Notes]Invalid character

??

Danke und Gruß Ingo