Neue Person einfügen
[Visual Basic] Public Function Add_New( _
ByVal Vertragspartnernr As Integer _
) As Integer
[Visual Basic] Public Function Add_New(ByVal Vertragspartnernr As Integer) As Integer
Dim db As New TKB.VV.DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Person")
db.Dispose()
Me.iPersonNr = New SqlInt32(CType(newkey, Int32))
Me.iVertragspartnernr = New SqlInt32(CType(Vertragspartnernr, Int32))
Me.sName = New SqlString(CType("", String))
Me.sVorname = New SqlString(CType("", String))
Me.sStrasse = New SqlString(CType("", String))
Me.sPostfach = New SqlString(CType("", String))
Me.sPlz = New SqlString(CType("", String))
Me.sOrt = New SqlString(CType("", String))
Me.sTelefon = New SqlString(CType("", String))
Me.sTelefax = New SqlString(CType("", String))
Me.sEMail = New SqlString(CType("", String))
Me.sInternet = New SqlString(CType("", String))
Me.sBemerkung = New SqlString(CType("", String))
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
Me.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
Me.iPersonFunktionNr = New SqlInt32(CType(0, Int32))
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = True
Return newkey
End Function
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