Hallo Leute,
ich habe in einer SQL Datenbank mehrere Datensätze, die ich
in einem Notesfeld darstelen möchte.
Leider klappt die Zeile mit dem ArrayAppend nicht.
Kann mir da jemand helfen ?
Ich möchte zudem Speicherschonender programmieren,
welche Objekte muß ich in dieser Funktion auf Null
setzten?
Ciao
Don Pasquale
Function getNotiz ( DOC_ID As String ) As Variant
Dim NOTIZFELD() As String
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
nUSER = res.GetValue( "USER_ID" )
NOTIZZEILE = nUSER & " " & res.GetValue( "NOTIZTEXT" ) & Lf
NOTIZFELD(0) = NOTIZZEILE
Call res.NextRow
Do While Not res.IsEndOfData
nUSER = res.GetValue( "USER_ID" )
NOTIZZEILE = nUSER & " " & res.GetValue( "NOTIZTEXT" ) & Lf
' NOTIZFELD = Arrayappend( NOTIZFELD , NOTIZZEILE)
Call res.NextRow
Loop
getNotiz = NOTIZFELD
End If
End If
End Function
