Domino 9 und frühere Versionen > Entwicklung

ArrayAppend: Hilfe benötigt

<< < (2/3) > >>

ata:
@Performance

... das täuscht - du kannst auch einen String an ein Array hängen - ich arbeite täglich damit...

ata

Performance:
@ata

ok getäuscht(liegt daran das ich in diesem fall immer den gleichen typ wähle) - habe dein redim jetzt auch gelesen - daran liegts


cu

Don Pasquale:

--- Zitat von: ata am 24.03.03 - 13:30:38 ---... sorry, ich war zu schnell - der fehler könnte in der Dimensionierung deines Array liegen - ein Redim NotizFeld(0 to 0) fehlt...

ata

--- Ende Zitat ---

Ähm, an welche Stelle ?

Gruß

Don Pasquale

ata:
... du kannst im Grunde vor deiner ersten Zuweisung den Redim setzen...

' # ...
Redim NOTIZFELD(0 to 0)
NOTIZFELD(0) = NOTIZZEILE        
' # ...

ata

Don Pasquale:
Das ist mein aktueller Code, der alle Zeilen aus der SQL Datenbank nimmt, nur leider die letzte nicht. Die Quote ist ja ganz gut,
reicht in dem Fall aber nicht aus.

Was mache ich falsch ?

Ciao

Don Pasquale



Function getNotiz ( DOC_ID As String ) As Variant
   
   Dim NOTIZFELD() As String
   Dim max As Integer
   Dim i As Integer
   Dim DSN As String
   Dim USER As String
   Dim PASSW As String
   
   DSN = getODBC("E4IHK","DSN")
   USER = getODBC("E4IHK","USER")
   PASSW = getODBC("E4IHK","PASSW")
   
   Dim SQL As String
   Dim iNotiz As Integer
   Dim Con As New ODBCConnection     
   Dim Qry As New ODBCQuery  
   Dim res As New ODBCResultSet  
   Dim Notizzeile As String
   Dim nUser As String
   
   If Not Con.ConnectTo(DSN, USER, PASSW)   Then
      Messagebox " Keine Verbindung zur e4\IHK Datenbank" & Chr$(10) & "Überprüfen Sie bitte den DSN Wert in Ihrem Profildokument" & Chr$(10) & "e4_lib: INDEXIEREN2"
      Exit Function
   Else
      SQL = "Select  USER_ID, NOTIZTEXT FROM FIRMENAKTE_NOTIZ WHERE DOC_ID = " & Chr$(39) & DOC_ID & Chr$(39)
      
      Set Qry.Connection = Con
      Qry.SQL = SQL
      Set res.Query = Qry
      
      
      If Not res.Execute Then
         Messagebox _
         res.GetExtendedErrorMessage,, res.GetErrorMessage
         Exit Function
      Else
         RetCode% = res.FirstRow              
   '      max = Res.Count
         
         nUSER = res.GetValue( "USER_ID" )
         NOTIZZEILE = nUSER & " " & res.GetValue( "NOTIZTEXT" ) & Lf
         
         i = 0         
         Redim Preserve NOTIZFELD( 0 To i +1)         
         NOTIZFELD(i) = NOTIZZEILE         
         
         Call res.NextRow
         i = i + 1
         
         Do While Not res.IsEndOfData
            nUSER = res.GetValue( "USER_ID" )
            NOTIZZEILE = nUSER & " " & res.GetValue( "NOTIZTEXT" ) & Lf
            Redim Preserve NOTIZFELD(0 To i+1)         
            NOTIZFELD(i) = NOTIZZEILE         
            
            Call res.NextRow
            i = i + 1
         Loop
         getNotiz = NOTIZFELD      
      End If
   End If
   
   
   
End Function

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete