Wie man die id des neu eingefügten Datensatzes mit Excel VBA?

Über Ihre Frage:

Ich bin jetzt versuchen, ein update einer Tabelle, die
nicht viel Spielraum für
Einzigartigkeit, anders als in der
künstliche Primärschlüssel. Das bedeutet
es besteht die Gefahr, dass die neue Platte
nicht eindeutig sein kann, und ich bin ungern
ein Feld hinzufügen, nur um Kraft, Einzigartigkeit.

Wenn Sie sind mit einem AutoIncrement für den Primärschlüssel, dann haben Sie Einzigartigkeit und könnten Sie SELECT @@Identity; um den Wert der letzten automatisch generierten ID (siehe Einschränkungen unten).

Wenn Sie nicht autoincrement verwendet wird, und Sie das einfügen der Datensätze aus Access, aber Sie abrufen möchten, und das Letzte aus Excel:

• stellen Sie sicher, dass Ihre primary key ist sortierbar, so können Sie sich die Letzte mit einer Abfrage wie der folgenden:

  SELECT MAX(MyPrimaryField) FROM MyTable;
  SELECT TOP 1 MyPrimaryField FROM MyTable ORDER BY MyPrimaryField DESC;

• oder, wenn das Sortieren Ihre primäre Feld würde nicht geben Ihnen den letzten, würden Sie brauchen Sie, um ein DateTime-Feld (sagen InsertedDate) und speichern Sie das aktuelle Datum und die Zeit jedes mal, wenn Sie erstellen einen neuen Datensatz in die Tabelle, so könnte man das Letzte, einer wie dieser:

  SELECT TOP 1 MyPrimaryField FROM MyTable ORDER BY InsertedDate DESC;

In beiden Fällen, ich denke, Sie finden würde hinzufügen eines AutoIncrement primary key als viel einfacher zu handhaben:

• Geht es nicht kostet Sie viel

• Es wird garantieren Ihnen die Einzigartigkeit Ihrer Unterlagen, ohne nachzudenken

• Es geht, um es einfacher für Sie zu Holen den letzten Datensatz, entweder mit @@Identity oder durch Sortierung nach dem Primärschlüssel oder die Max().

Von Excel

Um die Daten in Excel haben Sie ein paar Möglichkeiten:

• erstellen Sie eine data link mithilfe einer Abfrage, so können Sie das Ergebnis direkt in eine Zelle oder einen Bereich.

• Abfrage aus VBA:

  Sub GetLastPrimaryKey(PrimaryField as string, Table as string) as variant
      Dim con As String
      Dim rs As ADODB.Recordset
      Dim sql As String
      con = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source= ; C:\myDatabase.accdb"
      sql = "SELECT MAX([" & PrimaryField & "]) FROM [" & MyTable & "];"
      Set rs = New ADODB.Recordset
      rs.Open sql, con, adOpenStatic, adLockReadOnly
      GetLastPrimaryKey = rs.Fields(0).Value
      rs.Close
      Set rs = Nothing
  End Sub

Hinweis zu @@Identity

Müssen Sie vorsichtig die Vorbehalte bei der Verwendung @@Identity im standard-Access-Datenbanken(*):

• Funktioniert es nur mit AutoIncrement Identity-Felder.

• Es ist nur verfügbar, wenn Sie ADO verwenden, und führen Sie SELECT @@IDENTITY;

• Es gibt den letzten Zähler verwendet, aber das ist für alle Tabellen. Sie können nicht es verwenden, um zurück den Zähler für eine bestimmte Tabelle in MS Access (soweit ich weiß, wenn Sie angeben, dass eine Tabelle mit FROM mytable, es wird einfach ignoriert).
  
  Kurz gesagt, der Wert, der zurückgegeben wird, möglicherweise nicht auf alle die, die Sie erwarten.

• Müssen Sie die Abfrage direkt nach einer INSERT zu minimieren das Risiko des Erhaltens einer Antwort ist falsch.
  
  Das bedeutet, dass wenn Sie das einfügen Ihrer Daten zu Zeit und müssen um die Letzte ID zu einem anderen Zeitpunkt (oder eine andere), funktioniert es nicht.

• Nicht zuletzt, die variable wird nur gesetzt, wenn Datensätze eingefügt durch Programmierung von code.
  
  Dies bedeutet, dass der Datensatz Hinzugefügt wurde, durch die Benutzer-Schnittstelle @@IDENTITY wird nicht eingestellt werden.

(*): nur um klar zu sein, @@IDENTITY verhält sich unterschiedlich, und in einer mehr vorausschauenden Weg, wenn Sie ANSI-92 SQL-Modus für Ihre Datenbank.

Das Problem ist aber, dass die ANSI 92-hat eine etwas andere syntax als
der ANSI-89-Aroma unterstützt durch den Zugang und soll zur Erhöhung der Kompatibilität mit SQL Server, wenn Access verwendet wird als front-end.

Re: "ich habe versucht @@IDENTITY arbeiten, dies aber stets 0 zurück, mit dem code unten."

Den code sendet SQL und SQL2 durch verschiedene Verbindungs-Objekte. Ich glaube nicht, dass @@identity zurückkehren wird etwas anderes als null, es sei denn du fragst aus der gleichen Verbindung, wo Sie ausgeführt, Ihre INSERT - Anweisung.

Versuchen Sie dies:

myRecordset.Open SQL2, dbConnectionString, adOpenStatic, adLockReadOnly

zu:

myRecordset.Open SQL2, databaseConnection, adOpenStatic, adLockReadOnly

Versuchen Sie folgenden makro-code.Zuerst fügen Sie eine command-Schaltfläche, um das Blatt von der control-box und fügen Sie folgende codes im code-Fenster

Private Sub CommandButton1_Click()
    MsgBox GetLastPrimaryKey
End Sub

Private Function GetLastPrimaryKey() As String
Dim con As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myaccess.mdb;Persist Security Info=False"
sql = "SELECT MAX(id) FROM  tblMyTable"

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open con
rs.Open sql, cn, 3, 3, 1
If rs.RecordCount <> 0 Then
   GetLastPrimaryKey = rs.Fields(0).Value
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Function