ODBC Problem

[ata]

... wenn du die Werte in einem Array hast, dann kannst du die Werte zum Beispiel wie folgt einem Feld zuweisen

NotesDocument.Feldname = DeinArray

... damit sind die Werte in deinem MultipleValue-Feld
Auf dieses Feld bezieht sich deine Auswahliste. Als Formel verwendest du den Feldnamen...

... eventuell benötigst du noch einen Refresh, damit die Liste aktuell verwendet werden kann...

ata

[MisterDa]

also, ich bin jetzt soweit, dass ich alle Daten in meinem Feld hab, jetzt versteh ich nicht das weitere Vorgehen, bzw. weis nicht was oder wie ich das anstellen soll..

Sub Entering(Source As Field)
   
   Dim Con As New ODBCConnection
   Dim Qry As New ODBCQuery
   Dim Res As New ODBCResultSet
   Dim IsConnected As Integer
   Dim sValue As String
   Dim typ As String
   Dim ausdruck As String
   Dim feld() As String
   Dim counter As Integer
   
   counter = 0
   typ = "D0084"
   ausdruck = "SELECT * FROM Gerät WHERE GeräteTyp = '"& typ & "'"
   
           IsConnected = Con.ConnectTo("RekDB2")
   Set Qry.Connection = Con
       
   Qry.SQL = ausdruck
       
   Set Res.Query = Qry
           Res.Execute
       
   IsConnected = Res.FirstRow
   
   Do While IsConnected = True
      Redim Preserve feld(counter) As String

                  feld(counter) = Res.GetValue("SNr")
         
           
      IsConnected = Res.NextRow
 
      counter = counter+1
      
   Loop
        ' # ... die ODBC-DB schließen...
   IsConnected = Res.Close( DB_CLOSE )
        ' # ... die ODBC-Verbindung schließen.
   IsConnected = Con.Disconnect
End Sub

MisterDa

[ata]

... die werte hast du ja nun in deinem Array "Feld"

Jetzt muß dieses Array einem Feld in deinem Dokument zugewiesen werden. Du hast den Code im Initialze eines Feldes. Hier ist der Code nicht optimal, nimm den Code ins PostOpen, da ist der Code besser positioniert. Im Initialze dieses Feldes wird niemand nach dem Code suchen - und das macht für späteree Entwickler die Suche schwerer und unübersichtlicher...

... ich nenne das Feld zur Aufnahme der Liste mal "ListODBC"
... der Code ist im Postopen plaziert...

Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument

' # hier der Code, den du schon hast

Set docThis = Source.Document
' # die Zuweisung der Liste
docThis.ListODBC = feld

Call Source.refresh


... deine Auswahlliste bezieht die Werte nun per Formel. Als Formel gibst du den Namen des Listenfeldes ein, also ...

ListODBC

... ein hinweis sei noch erlaubt, Listenfelder haben eine Begrenzung in der Datenmenge...

ata

[MisterDa]

Danke!

ich hab jetzt noch ein Problem..er zeigt mir die Werte in der Dialogliste und im ListODBC-Feld nacheinander mit Komma an (nr1, nr2, nr3, ...) ..ich hätte sie aber gerne wie in ner normalen Dialogliste untereinander einzeln anwählbar...geht das?


die max Size beträgt diese ominösen 64k oder?

MisterDa

[ata]

... ich denke in diesem Fall 32KByte

... daß du die Werte mit Kommas angezeigt bekommst, hängt mit dem Listenfeld - ich hatte es ListODBC genannt - zusammen. Du mußt diesem Feld die Eigenschaft geben Mehrfachwerte zulassen und im dritten Register werte trennen bei "Neue Zeile" , Werte anzeigen "mit neuer Zeile" administrieren, dann müßten die Kommas weg sein...

... da fällt mir noch was ein, in deinen werten sollten auf keinen Fall Kommas oder Semikolons sein, das kann Notes bei Auswahlfeldern ins Schleudern bringen...

ata

[MisterDa]

Juhu, es klappt endlich..

Danke ata

[ata]

... gratuliere, dein erster Import per ODBC mit Script...
... gar nicht so wild, oder...

ata  

[MisterDa]

Danke.  

Jetz ist mir aber aufgefallen, dass ich den Code doch erst im Entering
des Feldes ausführen kann, weil ich vorher in einerm anderen Feld erst was auswählen muss und nach dieser Auswahl, richtet sich das Auswahlkriterium "typ" im Code...

kann es sein, dass 'Set docThis = Source.Document' nur im Postopen funktioniert?

MisterDa

[ata]

... ja, in der Art dort schon, denn im Postopen kommt das Object "Source" über das Event als NotesUIDocument...

... wenn du es im Entering benötigst, dann mußt du im Entering das Source deklarieren und initialisieren...

... doch Vorsicht, du mußt das bestehende Source ersetzen durch "uidoc" - denn "Source" ist dort als Vraiable bereits belegt...

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Set uidoc = ws.CurrentDocument

... einfügen, und alle Variablen (bis auf die im Heder der Funktion) umbenennen (Find & Replace)...

ata

[MisterDa]

danke. jetzt kappts so wies soll

(musste allerdings noch ein NotesDocument einfügen und uidoc dem doc zuweisen, damit er die Zuweisung "doc.ListODBC=feld" annimmt...)


MisterDa

[ata]

... ich hab mir den Code nicht mehr angeschaut, aber wie du es erwähnst, fällt es mir wieder ein, es war über Source initialisiert...

... auf jeden Fall funktioniert es jetzt - freut mich  

ata