Comment faire pour retourner la valeur de l'INCRÉMENT AUTOMATIQUE de la colonne dans SQLite avec VB6

J'ai une table dans SQLite:

CREATE TABLE "EventType" 
(
[EventTypeID] INTEGER PRIMARY KEY, 
[EventTypeName] VARCHAR(50) NOT NULL UNIQUE
);

Depuis EventTypeID est un entier et d'une clé primaire, ce qui le rend automatiquement un auto-incrémentation de la colonne, et qui fonctionne très bien.

J'aimerais insérer une ligne dans la table et obtenir la nouvelle valeur incrémentée à partir de VB6.

Dim oRs as Recordset
dim oCmd as new Command

oCmd.ActiveConnection = GetConnection()
oCmd.Source = "insert into EventType (EventTypeName) values ('blah')"
oCmd.Execute

Est-il un moyen automatique pour récupérer le nouvellement créé EventTypeID sans avoir à envoyer une autre requête (select max(EventTypeID) à partir de EventType))?

Il me semble me rappeler à partir de VB6 jours il ya longtemps, qu'il y avait un moyen de le faire.

OriginalL'auteur AngryHacker | 2009-02-10