[VB6 + Access] Hoe Autonummerings veld opvragen na invoegen

[Fles]

Hoe kan ik na het invoegen van een record in access vanuit visual basic het autoincrement veld opvragen? Ik wil dus hetzelfde als je in PHP kunt bereiken met "mysql_insert_id()".

Google vind ik een paar resultaten, maar geen oplossing. Op dit forum en andere staat hier ook niets over.

code:

Public cnUniversal As ADODB.Connection

Public Function OpenConnection()
  Set cnUniversal = New ADODB.Connection
  
  With cnUniversal
    If .State <> adStateOpen Then
      .ConnectionString = "c:\mijn documenten\projecten\factuur\db\factuur.mdb" '
      .CursorLocation = adUseClient
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Open
    End If
  End With
End Function

Public Function ExecuteSQL(strSQL As String) As ADODB.Recordset
  Dim rsUniversal As ADODB.Recordset
  Set rsUniversal = New ADODB.Recordset
  
  With rsUniversal
    .ActiveConnection = cnUniversal
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .Source = strSQL
    .Open
  End With
  
  Set ExecuteSQL = rsUniversal
End Function

Private Sub Invoegen()
  OpenConnection
  Dim rsBestel As ADODB.Recordset
  Set rsBestel = ExecuteSQL("INSERT INTO bestel (bestel_datum) VALUES('22/10/2003')")
End Sub

[ Voor 9% gewijzigd door Fles op 22-10-2003 16:08 ]

[OZ-Gump]

Select MAX(AutoNumeringVeld) as HoogsteWaarde from bestel

Dit lijkt me een redelijk eenvoudige oplossing. Je vraagt dan gewoon de hoogste waarde op van het veld dat je autonummering bevat. Let wel op dat je door deze manier van werken problemen kunt krijgen bij concurrent users!!!

[whoami]

Als je met Access2000 werkt:

code:

SELECT @@identity

[Fles]

OZ-Gump schreef op 22 oktober 2003 @ 16:12:
Select MAX(AutoNumeringVeld) as HoogsteWaarde from bestel

Dit lijkt me een redelijk eenvoudige oplossing. Je vraagt dan gewoon de hoogste waarde op van het veld dat je autonummering bevat. Let wel op dat je door deze manier van werken problemen kunt krijgen bij concurrent users!!!

Ja deze manier heb ik ook aan gedacht, maar wat je zegt als ik hem op een ODBC laat draaien gaat dit misschien een keer fout... Nou zal dit programma niet echt door iedereen gebruikt gaan worden dus tot er iets beters is kan ik dit wel gebruiken.

Maar niet stoppen met nadenken!

[ Voor 14% gewijzigd door Fles op 22-10-2003 16:26 ]

[whoami]

Als je met concurrent users gaat werken, is Access zowiezo geen optie als databank wmb.

Dan kan je beter naar SQL Server overstappen. Daar kan je meteen gebruik maken van stored procedures.
Je maakt dan bv. een SP die het record gaat gaan inserten, en die ook dmv een output-parameter het id van het nieuwe record teruggeeft:

code:

CREATE PROCEDURE InsertRecord (@p_naam   VARCHAR(25),
                               @p_id     INTEGER OUTPUT)
AS
BEGIN

  INSERT INTO tabel (persoonnaam) VALUES (@p_naam)

  SELECT @p_id = scope_identity() FROM tabel

END

[ Voor 3% gewijzigd door whoami op 22-10-2003 16:29 ]

[curry684]

whoami schreef op 22 October 2003 @ 16:29:
Dan kan je beter naar SQL Server overstappen. Daar kan je meteen gebruik maken van stored procedures.

Not to mention transactions

[DukeMan]

OZ-Gump schreef op 22 October 2003 @ 16:12:
Select MAX(AutoNumeringVeld) as HoogsteWaarde from bestel

Dit lijkt me een redelijk eenvoudige oplossing. Je vraagt dan gewoon de hoogste waarde op van het veld dat je autonummering bevat. Let wel op dat je door deze manier van werken problemen kunt krijgen bij concurrent users!!!

Dit gaat fout als je met meerdere mensen tegelijkertijd op de database werkt en gelijktijdig records invoer. Je krijgt dan wel het hoogtse nummer, maar is die wel van jou???

Ik doe het meestal als volgt:
In mijn insert query vul ik een veld (bjiv. naam) met een bepaalde (random) waarde. Vervolgens doe ik een insert, en doe ik een select query op het id en de naam = random. Vervolgens een update ala: update x set naam = 'waarde' where id = 'newid'.

Dit gaat eigenlijk altijd goed.... Dat random getal kan je bijvoorbeeld doen door een GUID te genereren... Er bestaat een api voor (ik geloof cocreateguid). Deze laat door windows een guid creeeren welke altijd uniek is...

[whoami]

curry684 schreef op 22 October 2003 @ 16:35:
[nohtml]
[...]
[/nohtml]
Not to mention transactions

Met Access kan je ook wel transacties afdwingen hoor.
Alleen moet je dat dan wel in je client-applicatie doen:

code:

OleDbTransaction trans = conn.BeginTransaction();
try
{

  // doe hier wat meuk.

   trans.Commit();
}
catch
{
   trans.Rollback();
}

[Verwijderd]

Als je ik je goed begrijp wil je het Idnr van het zojuist toegevoegde record opvragen?

Ik doe het altijd zo.

Visual Basic 6:

    With objRS
        If .EOF Then .AddNew  'ivm Nieuw Record toevoegen
        .Fields("Naam") = m_sNaam

        .Update
        ' Id ophalen is namelijk autonumber
         m_lId = .Fields("Id")
    End With

Waarbij objRS je recordset is met een select query op het nummer dat je wilt wijzigen. Als je wilt toevoegen is dit nummer 0 en komt het niet voor en is objRS = EOF.

Let wel op in dit geval is de procedure die de records wijzigt en toevoegt het zelfde.

[farlane]

Verwijderd schreef op 23 October 2003 @ 10:13:

Visual Basic 6:

    With objRS
        If .EOF Then .AddNew  'ivm Nieuw Record toevoegen
        .Fields("Naam") = m_sNaam

        .Update
        ' Id ophalen is namelijk autonumber
         m_lId = .Fields("Id")
    End With

Ik vraag me af of deze contructie altijd werkt, heb meerdere malen gezien dat updates niet direct geflushed worden.

[Verwijderd]

Ik heb dat probleem niet ondervonden, misschien ligt het er aan met welke attributen je de recordset hebt geopend. De wijzigingen worden bij mij meteen na de update weggeschreven.

[Fles]

Verwijderd schreef op 23 October 2003 @ 10:13:
Als je ik je goed begrijp wil je het Idnr van het zojuist toegevoegde record opvragen?

Ik doe het altijd zo.

Visual Basic 6:

    With objRS
        If .EOF Then .AddNew  'ivm Nieuw Record toevoegen
        .Fields("Naam") = m_sNaam

        .Update
        ' Id ophalen is namelijk autonumber
         m_lId = .Fields("Id")
    End With

Waarbij objRS je recordset is met een select query op het nummer dat je wilt wijzigen. Als je wilt toevoegen is dit nummer 0 en komt het niet voor en is objRS = EOF.

Let wel op in dit geval is de procedure die de records wijzigt en toevoegt het zelfde.

Ja, ik werk alleen met een insert query en niet met een recordset.

[Verwijderd]

Graveheart schreef op 23 October 2003 @ 14:45:
[...]

Ja, ik werk alleen met een insert query en niet met een recordset.

True, maar je zou het kunnen oplossen op de bovenstaande manier en aangezien je gebruik maakt van rsBestel As ADODB.Recordset heb je dus wel een recordset waarmee je het kan doen.