Meldungen aus der Datenbanklesen, sofern diese noch nicht ausgelesen worden sind. Nach dem ersten Lesen werden die Daten aus der Tabelle Meldungstexte ohne erneutem DB-Zugriff verwendet

[Visual Basic]
Public Function Get_Meldungstext( _ 
   ByVal i As Integer _ 
) As String

Parameter

i

Quellcode

[Visual Basic]
        Public Function Get_Meldungstext(ByVal i As Integer) As String 
            Dim meldungen As New TKB.VV.DB.clsMeldungstexte 
            Dim res As Integer 
            meldungen.cpMainConnectionProvider = conn 
            If Me.meldungstexte.Count = 0 Then 
                Me.meldungstexte.Table = meldungen.SelectAll 
            End If 
            meldungstexte.Sort = "meldungstextnr" 
            res = meldungstexte.Find(i) 
            Try 
                Get_Meldungstext = Me.meldungstexte(res).Item(2) 
            Catch 
                Get_Meldungstext = "" 
            End Try 
            meldungen.Dispose() 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

MyMessage