AutoWert ermitteln II (Access, ADO) Diese Funktion ermittelt in einer Multiuserumgebung den Autowert des von einem beliebigen Client zuletzt eingefügten Datensatzes.
Autor:   pks	Bewertung:	Views:  12.782
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Nachfolgende Funktion ermittelt in einer Multiuserumgebung den Autowert des von einem beliebigen Client zuletzt eingefügten Datensatzes.

' Liefert ID des zuletzt eingefügten Datensatzes
Public Function GetNewID(oConn As ADODB.Connection) As Long
  Dim oRs As ADODB.Recordset
  Dim NewID As Long
 
  Set oRs = New ADODB.Recordset
  With oRs
    .Open "SELECT @@Identity AS ID", oConn, , , adCmdText
    NewID = .Fields("ID").Value
    .Close
  End With
  Set oRs = Nothing
 
  GetNewID = NewID
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.