Schreibt einen Datnsatz in die Tabelle SecurityObjects

[Visual Basic]
Public Function Write_Object_to_DB() As Object

Quellcode

[Visual Basic]
        Public Function Write_Object_to_DB() 
            If Objexists() Then Exit Function 
            Dim sectbl As New TKB.VV.DB.clsSecurityObject 
            Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle 
            dbkey.cpMainConnectionProvider = Globals.conn 
            Dim newkey As Integer = dbkey.get_dbkey("SecurityObject") 
 
            sectbl.cpMainConnectionProvider = Globals.conn 
            conn.OpenConnection() 
            sectbl.iSecurityObjectNr = New SqlInt32(CType(newkey, Int32)) 
            sectbl.sSecurityForm = New SqlString(CType(MyFormname, String)) 
            sectbl.sSecurityObjectType = New SqlString(CType(Me.MySecurityObjecttype, String)) 
            sectbl.sSecurityObject = New SqlString(CType(Me.MySecurityObject, String)) 
            sectbl.sSecurityObjectItem = New SqlString(CType(Me.MySecurityObjectItem, String)) 
            sectbl.bAktiv = New SqlBoolean(CType(True, Boolean)) 
            sectbl.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) 
            sectbl.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) 
            sectbl.sSecurityObjectDescriotion = New SqlString(CType(Me.MyDescription, String)) 
            sectbl.iLevel = New SqlInt32(CType(Me.MyLevel, Int32)) 
            sectbl.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32)) 
            sectbl.iMandantnr = New SqlInt32(CType(Globals.clsmitarbeiter.iMandantnr.Value, Int32)) 
            sectbl.Insert() 
            conn.CloseConnection(True) 
            sectbl.Dispose() 
            dbkey.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

MyFormControls