Access -> ODBC -> Notes

[SnooP]

Hallo zusammen,

also ich habe ziemlich viel Zeit hier verbracht um eine Antwort auf meine Frage zu bekommen. Leider habe ich die Antwort nicht.

Was ich Realisieren möchte:

Ich möchte (was ich bekomme ist eine andere Sache    ) mit Notes auf eine Access DB über ODBC zugreifen. Soweit alles OK ! Habe hier z. B. die Möglichkeit über die ODBCResult class schon gefunden. Was ich bisher noch nicht gefunden habe ist, mir die Datensätze in eine Tabelle anzeigen zu lassen die ich nach bedarf Sortieren kann. Ich habe es geschafft mir die Datensätze in einer MessageBox anzeigen zu lassen. Das entspricht meinen Anforderungen jedoch noch nicht. Ich habe mir das so vorgestellt, dass ich mir meine Datensätze in einer View anzeigen lassen dafür müsste ich jedoch jeden Datensatz als Dokument speichern, was meiner Meinung nach auch nicht ganz geschickt währe (abgesehen davon, ob es überhaupt möglich ist.).

Ich könnte mir auch als Lösung eine Tabelle in einer Maske und einem Button (indem dann das jeweilige Script, mit bestimmten selektierungen "SELECT * FROM * WHERE und so weiter, eingebunden ist) vorstellen. Beim Klicken auf den Button wird die Tabelle mit entsprechenden Datensätzen gefüllt.

Ich hoffe, dass es verständlich ist was ich meine.

Jetzt meine Frage und Bitte: Ist meine Traumvorstellung machbar und wie könnte ich es in Ansätzen realisieren. Oder bleibt es auch meine Traumvorstellung. Meiner Meinung nach müsste es eine Lösung für mein Problem bereits schon geben.

Ich hoffe auf Zahlreiche Antworten und bedanke mich im Voraus.

Gruß

AMA

P.S.: Verwende den R5 Designer

[ata]

... das hat alles Haken und Ösen...

... du kannst für jeden Datensatz ein Dokument erstellen. Die markierten Dokumente kannst du dann mit einem Agenten weiterverarbeiten - warum nicht - die DB ist nur zur temporären Auswahl und wird mit einem Template erstellt.

... wenn du es in einer Tabelle machen möchtest, dann musst du Tabellen dynamisch generieren -. davo halte ich nichts.

... Dynamische Listen haben natürlich Grenzen in Notes

ata

[SnooP]

Hallo,

hat jemand ansatzweise oder schon mal so was gemacht, ich meine Datensätze in Dokumente gespeichert. Ich würde es mir mal trotzdem anschauen. Wäre super wenn mir jemand ein Beispiel zeigen könnte.

Wie sieht es mit einem Excel Import als Dokument aus

Oder habe ich bei meinem Problem das Produkt verfehlt, hoffe jedoch nicht.

Langsam bin ich am verzweifeln, weil ich einfach nicht weiter komme.

Gruß

AMA

[Rob Green]

wieviele Datensätze sind es, gibt es Gruppen dabei, und soll beideseitig geschrieben und gelesen werden?

[Axel_Janssen]

verstehe dein Problem nicht.

Sich Datensätze aus einer Rela-DB(*) zu besorgen und die irgendwie darzustellen, ist mit den Notes-Klassen auch nicht wesentlich anders als mit Visual Basic, Java, C und vermutlich auch Python.

O.k. in Notes neigt man häufiger dazu, die Rela-Datensätze als Dokument abzuspeichern (ist aber nicht zwingend).

Eine Besonderheit bei notes ist, dass es middleware-Komponenten (Decs_ist_umsonst und Lei_kostet_Geld) gibt, mit denen man nicht programmieren muss (da kenne ich mich aber nicht so aus).

Wenn du LS:DO und ODBC arbeitest, naja.
Von Hardy Gröger gibt es ein Buch zu Notes/Domino Integration (suche auf Amazon).
Unsere Volkswirtschaft brauch Umsatz !!!

Falls du Erfahrungen mit dem programmatischen Zugriff auf RelaDBs aus anderen Umgebungen hast, kannst Du die benutzen.

Falls Du auf der Suche nach code bist: Suche nach LS:DO, Lotus Enterprise Integration. auf google und auf www.redbooks.ibm.com.

 


-----------------------------------------------
* im Kontext von Access weigere ich mich von RDBMS zu sprechen
 

[SnooP]

es sind 12 Tables mit je ca. 500 Datensätze(diese werden regelmässig aus einer anderen Anwendung heraus als *.mdb exportiert), die nur gelesen werden müssen.

Gruß

AMA

[Rob Green]

also die Zahl ist zunächst Mini. Damit käme ein Abklatsch ins Notessystem in Frage. Anschließende Frage: was tust Du mit den Daten was Du nicht mit Access erledigen konntest? Kann man die gelesenen Daten ab einem bestimmtenm Punkt wieder verwerfen? Ist verteilter Zugriff notwendig und dafür Notes genommen? Oder ein Genehmigungsworkflow? Oder Auswertungen betreiben? Oder mit anderen Daten mischen, um...? Wäre wichtig zu wissen denke ich.

[ata]

... ich habe auf meiner Homepage im LotusScript-Teil unter Datenbanken den Imort anhand von Excel skizziert. Der Ablauf mit Access funktioniert ähnlich...

http://www.anton-tauscher.de

... in der rechten Navigation findest du den Link zum LotusScript-Kurs - dort dann im Kopfmenü zu Datenbanken...

ata

[SnooP]

@ata

danke habe es mir schon angeschaut.

@Rob Green


Es handelt sich um ein Genehmigungsworkflow.

Also, die derzeitige Situation sieht folgendermaßen aus:

Aus Anwendung heraus wird eine *.mdb erzeugt in der sich diverse Tabellen befinden z.B. Table User mit folgenden Attributen: Name, Nachname, Email, Kostenstelle, Rechte usw. oder eine Tabelle Kostenstellen mit folgenden Attributen: Nr, Gesellschaften, Land ...

Die Informationen aus der Tabelle User werden als Excel Datei exportiert und an die jeweiligen Genehmigungsberrechtigten via Mail zugesandt zur Planung neuer User oder auch zum Löschen bestehender User. Anhand dieser Angaben wird ein Antrag zum ANLEGEN, ÄNDERN von Rechten oder Löschen von Usern erstellt.
Da dies zur Zeit in Papierform (Antrag) und Excel abgelaufen ist soll es durch eine Zentrale Anwendung abgelöst und automatisiert werden. Das Genehmigungsworflow erfolgt über mehrere Instanzen: Benutzer -> Abteilungsleiter und zusätzlich evtl. Personalabteilung.

Ich hoffe das dir die  Infos reichen.

Ich schaue nach, ob ich mit dem Excelimport von ATA zurechtkomme.
Wir haben schon eine N-DB indem wir daten aus Excel importieren mal schauen, ob ich da was anzapfen kann.

Gruß

AMA

[harkpabst_meliantrop]

Unter R6 könnte man das was du machen willst wohl völlig Problemlos mit LEI machen (bei DECS bin ich mir spontan nicht sicher).

Aber ansonsten sollten so ein paar Datensätze doch wirklich kein Problem sein.  Ich musste mal vor einiger Zeit eine Access2-DB mit etwa 35000 Datensätzen in eine Notes-DB importieren. Unter R4 auf einem PPro 200 mit einer mickrigen 2GB-SCSI-Platte hat das noch 45 Minuten gedauert, auf einem aktuellen Rechner unter R5 unter 2 Minuten. Leider habe ich den Code nicht mehr im Zugriff, aber es war nicht so besondrs schwierig.

[SnooP]

@harkpabst_meliantrop

danke für Dein TIPP

.... ist LEI nicht Kostenpflichtig ?

habe es mittlerweile mit Excel Import soweit gelöst, würde jedoch trotzdem ODBC bevorzugen !!!

Ich schaue mal ob ich das Prinzip von Excel_Import (mein Excel Import habe ich folgender maßen gelöst: Spaltenwerte je ein Datensatz einem Text Feld übergeben, das Dokument gespeichert und mir daraus ein View (Ansicht) gebastelt) auch auf ODBC übertragen kann.

[dasRalph]

Wer ist Le??? Wer ist decs???

Ich hab ein wenig den Überblick verloren, um was gehts eigentlich??? Wie er die Daten von Access nach LoNo bekommt oder wie er diese darstellt???

Für das Auslesen von AccessDB's versuch mal dies

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/6704c9ebb583859f8525694d004e51b0?OpenDocument&Highlight=0,msaccessreader

ralph

[SnooP]

.....jaaaa genau das ist es !!!!!

So habe ich mir das vorgestellt !!!

Danke *SAHNE*

[2nd-Dimension]

wie schaffe ich es die Daten nicht aus der Access Tabelle zu holen, sondern aus einer Abfrage ?

[2nd-Dimension]

kann denn keiner helfen?

er findet zwar die Felder in Access aber an dem Punkt wo er die Daten holen soll, findet er nix

bei Tabelle ist Notes-Import eingegeben, dabei handelt es sich nicht um ne Access Tabelle sondern um ne Abfrage

hier der code:

Code

Sub Click(Source As Button)
REM  MS Access Reader by Gary Roberts  08/30/2000   
REM  Copyright Gary Roberts, 2000  (e-mail:  groberts@carolina.rr.com)
REM
REM  Application Name:  MS Access Reader
REM  View Name:  Customers
REM  Action Name:  Read MS Access Database
REM
REM  Purpose:
REM  Read a Microsoft Access (MS Access) MDB file and create a Notes Document for
REM  each record in the MS Access Database.  The newly created documents will be 
REM  displayed in the "By Company Name" view in THIS Notes Database.
REM
REM  IMPORTANT NOTES: 
REM  You do NOT have to have MS Access installed on your PC to run this program.
REM  You DO have to have the Northwind.mdb file (comes with MS Access)
REM  You DO have to register Northwind.mdb as an ODBC Data Source (System)
REM  You DO have to have nlsxodbc.dll in your Notes directory (NOT the Data Directory)
REM  You DO have to have lsconst.lss in your Notes directory (NOT the Data Directory)
REM  You DO have to have lsxbeerr.lss in your Notes directory (NOT the Data Directory)
REM The ODBC LSX File is declared in the FORM's (Globals) (Options) section
REM  I used the fully qualified filename of the DLL in case yours isn't registered
REM  LotusScript and Error constants are "Included" in the FORM's (Globals) (Declarations) section
REM
REM  Change Log:
REM  ------------------------------------------------------------------------------------------------------
REM  08/30/2000  Gary Roberts    Placed into production
REM
   
REM  Notes Objects Declarations
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim con As New ODBCConnection
   Dim qry As New ODBCQuery
   Dim result As New ODBCResultSet
   
REM  Miscellaneous module variables
   Dim msg As String
   Dim FieldCount As Integer
   Dim Status As Integer
   
REM  MS Access Database declarations
   Const adbFileName = "Volleyball"  ' This is the DSN Name as registered in ODBC
'     Const adbTableName = "Tabelle1 INNER JOIN Interpret on Tabelle1.[Interpret_ID] = Interpret.[Kennummer]"  ' This is a table in the northwind database
   Const adbTableName = "Notes-Import"  ' This is a table in the northwind database
REM  Notes Database declarations
   Const ndbViewName = "spieler"  ' This is an existing View in the target database
   Const ndbFormName = "eing_spieler"  ' This is an existing Form in the target database
   
REM  Instantiate the major Notes objects
   Set db = session.CurrentDatabase     
   Set view = db.GetView( ndbViewName )
   
REM  Connect to the MS Access Database.  Throw an error if it fails
   status = con.ConnectTo( adbFileName )
   If Not con.IsConnected Then
      Messagebox "Could not connect to " & adbFileName & " database -- Did you register the ODBC Data Source???",, "Error"
      Exit Sub
   End If
   If con.GetError <> DBstsSUCCESS Then
      Messagebox con.GetExtendedErrorMessage,, "Connection Error - " & con.GetError & " " & con.GetErrorMessage
      Exit Sub
   End If
   Print "Connected to " & adbFileName & " database"  ' Update the Notes Client Status Bar if we're okay
   
REM  If we got this far, we must be connected, so just for grins,  let's show the user all the fields in this table.
REM  Note:  "fields" has not been declared, so it will be a Variant Array -- that's what we want
   fields = con.ListFields( adbTableName )
   msg = adbTableName & " contains the following fields:" & Chr(10)
   For FieldCount = Lbound( fields ) To Ubound( fields )
      msg = msg & Chr(10) & fields( FieldCount )
   Next
REM  Okay, let's display the Field List to the User...
   Messagebox msg,, "Fields from the " & adbFileName & " database"
   
REM  We made it this far, so let's setup the SQL Query.  Throw an error if it fails
   Set qry.Connection = con
   Set result.Query = qry
   qry.SQL = "SELECT * FROM " & adbTableName  ' Grab all of the fields (columns) from the specified table
   If qry.GetError <> DBstsSUCCESS Then
      Messagebox qry.GetExtendedErrorMessage,, "Query Error" & qry.GetError & " " & qry.GetErrorMessage
      Exit Sub
   End If
   
REM  Update the Notes Client Status Bar
   Print "Reading " & adbFileName & " database"  ' Update the Notes Client Status Bar if we're okay
   
REM  Must be okay -- Get the Data
   result.Execute
   
REM  See if we have data.  If so, loop through the ResultSet.  If not, throw an error
   If result.IsResultSetAvailable Then
      Do
         result.NextRow
        REM  Create a Notes Document, assign values, save the document.  Do it until we're done.
         Set doc = db.CreateDocument  ' Create a new Notes Document for this record
         doc.Form = ndbFormName
        REM  Okay -- Let's get serious -- We'll use the MS Access Database field (Column)
        REM  names for the field names in the Notes Documents
         doc.spieler_vorname = result.GetValue( "Vorname" )
         doc.spieler_name = result.GetValue( "Name" )
         doc.spieler_geburtsdatum = result.GetValue("Geburtsdatum")
         doc.spieler_wohnort = result.GetValue("Nachschlagen in Ort und PLZ")
         doc.spieler_mannschaft = result.GetValue("Mannschafts_ID")
         doc.spieler_groeße = result.GetValue("Groesse")
         doc.spieler_email = result.GetValue("Email")
         Call doc.save( True, False )
      Loop Until result.IsEndOfData
      
    REM  We're done, so let's clean up the mess we've made and bail out  
      result.Close( DB_CLOSE )
      Print "Finished"  ' Update the Notes Client Status Bar if we're okay
   Else
    REM  If we got here, it means there was no data in the table, so throw an error (Informational)
      Messagebox "No data retrieved for " & adbTableName & " table", MB_ICONINFORMATION, "No data"
      Print "DOH!!!!!  Got no data -- Bummer!!!!"  ' Update the Notes Client Status Bar if we're NOT okay
      Exit Sub  
   End If
   
REM  Give up the ODBC Connection like a good little boy 
   con.Disconnect
   
REM  Update the view so the new documents will show up without having to press the F9 key
   Call view.Refresh
   Call ws.ViewRefresh
   
End Sub

[dasRalph]

@2nd-Dimension:
ist das Bild eins aus dem Forum zum auswählen oder bist Du das? *sabber*


Was macht den die Abfrage? Wird sich doch sicherlich auch mit LoNo realisieren lassen. Auf Abfragen selber kannst Du nicht zugreifen, ich hatte da auch mal nach gesucht aber nichts gefunden

Ralph

[ata]

... wenn ich mich nicht ganz täusche, dann spricht man die Abfrage wie eine Tabelle an - probiers einfach mal aus...

ata

[2nd-Dimension]

hab ich probiert, er findet dann die Felder. Aber beim auslesen bringt er mir dann eine Fehlermeldung.

Hab auch schon probiert die SQL Anweisung im Script "Select * From ABFRAGE" mit der ausführlichen SQL Anweisung der Abfrage (wenn man in Access in der Abfrage rechts klickt kann man sich den SQL Code ausgeben lassen)zu tauschen. Aber nach wie vor der gleiche Fehler.

PS: Ja klar bin ich da   Ne, sag nur American Pie...

[dasRalph]

Hmmm... ist ja erstaunlich das es mit Abfragen auch geht... hätte mir manch Grübeln erspart  

Ich mußte es einfach mal selber ausprobieren und bei mir gehts... hab Dir mal dat Beispiel mit rangehangen  

Der Name in den ODBC Einstellungen ist "test"

Ralph

p.s. es ist eine Access2000-DB... hoffe Du kannst damit umgehen

[2nd-Dimension]

vielen Dank

Ich weiß jetzt dass es an der Abfrage liegt, muß mal meinen Kollegen fragen was der da gemacht hat.