Domino 9 und frühere Versionen > ND6: Entwicklung

Lotus <- Navision

(1/6) > >>

tbrendel:
Hat schon mal jemand per SQL Befehle aus einer Navision Datenbank
Infos geholt?...also per lotusscript und dem

Uselsx "*LSXODBC"

Habe da ein Problem, das ich zwar von Access aus eine SQL-Abfrage absetzen kann, die über zwei Tabellen mit einem "JOIN" abfragen kann..aber LOTUS NOTES eben nicht...
Hier habe ich mich bisher beholfen das ich zwei einzelne Abfragen gemacht habe.
Kennt das jemand?

koehlerbv:
Hilft Dir eventuell dieser Thread weiter?

Bernhard

tbrendel:
Nein, leider nicht...

ich bin folgendermaßen vorgegangen:

Ich habe in Access eine abfrage über ODBC gemacht. Dann habe ich mir die Syntax angeschaut im SQL-Editor und diese Abfrage dann in Lotus Notes übernommen.

Dabei habe ich erstmal so festgestellt das von Lotus Notes
es mir nicht möglich war zwei Tabellen gleichzeitig in einer abfrage zu erreichen. Aber vielleicht benötigt "Lotus Notes SQL" ja dabei eine
spezielle Syntax?????

Oder der "Lotus Notes SQL-Treiber" hat damit probleme????

Navision -> Access geht jedenfalls (Hilft mir aber nicht weiter)

Ich stocherer da ein wenig im Dunklen herum weil ich nicht den Finger auf die Fehlerquelle legen kann

In Access hiess dieses SQL Statement

SELECT Jobplan.Job_No_, Ressource.No_
FROM Jobplan INNER JOIN REssource ON Jobplan.No_ = Ressource.No_


Habe also schon mit einem INNER JOIN arbeiten wollen

koehlerbv:
Jo, Notes SQL ist schwach auf der Brust. Aber das verwendest Du doch gar nicht, sondern einen ODBC-Treiber für Dein Navision-System. Und der sollte das eigentlich beherrschen ...
Leider habe ich derzeit keinen Zugang zu einem Navision-System, sonst hätte ich das hier mal nachgebaut. So stehe ich auch im Nebel ...

Bernhard

tbrendel:
ja klar verwende ich ODBC für den Zugriff....aber um dann auf daten zuzugreifen muss ich doch eine
"SQL" Anweisung schreiben.....(oder gehts auch anders??????????)

ich habe das mal hier in dem Code gemacht:

Schnipp-----------------------------------------------------------

   Dim con As New ODBCConnection
   Dim qry As New ODBCQuery
   Dim result As New ODBCResultSet
   Dim result2 As New ODBCResultSet
   Dim result3 As New ODBCResultSet
   Dim Session As New NotesSession
   Dim db As NotesDatabase
   Dim formular As New NotesDatabase("","Formulare.nsf")
   Dim collection As NotesDocumentCollection
   Dim doc, formulardoc, searchdoc As NotesDocument
   Dim firstName, lastName As String
   Dim nam As NotesName
   Dim view, ressourceview, projektview As NotesView
   
   Set db = session.CurrentDatabase
   Set collection = db.AllDocuments
   Set view = db.GetView("Ressourcen2")
   Set ressourceview = db.GetView("Ressourcen")
   Set projektview = db.GetView("Projekte")
   
     REM erstmal alle Dokumente löschen
   Call collection.RemoveAll(True)
   
   If Not con.ConnectTo("Navision") Then
      Messagebox "Could not connect to Navision",, _
      "Error connecting"
      Exit Sub
   End If
   Set qry.Connection = con
   Set result.Query = qry
   Set result2.Query = qry
   Set result3.Query = qry
   
   REM erstmal alle Projektköpfe löschen
   searchform$ = {FORM = "Projektkopf"}
   Set collection = db.Search(searchform$, Nothing, 0)
   Call collection.RemoveAll(True)
   
   qry.SQL = "SELECT Nr_,Beschreibung,geplantes_Startdatum, geplantes_Endedatum, Status, " &_
   "Rech__an_Deb__Nr_ , Name, Projektbuchungsgruppe, Startdatum, erwartetes_Enddatum, ""GeschaftschancePct""  " &_
   "FROM Projekt WHERE Projekt.Nr_ LIKE 'PN%' AND (Status = 'Auftrag' OR Status = 'Angebot')"
   
   result.Execute
   If result.IsResultSetAvailable Then


Schnapp------------------------------------------------------

Navigation

[0] Themen-Index

[#] Nächste Seite