MySQL – Serial beim INSERT über VB.NET ermitteln

wie ermittelt man den Wert eines Serial-Feldes für den gerade eingefügten Datensatz:

    CREATE TABLE mytable (
        id int(11) NOT NULL AUTO_INCREMENT,
        f1 varchar(100) COLLATE utf8_unicode_ci
    )

der entsprechende VB.NET-Code:

Dim strCon As String = "Driver={MySQL ODBC 5.1 Driver};Server=<server>;Port=<port>;Database=<db>;User=<user>; Password=<pwd>;"
Dim sql As String = "INSERT INTO mytable VALUES (null, 'Hello World')"

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

con.Open(strCon)
con.Execute(sql)
rs = con.Execute("SELECT LAST_INSERT_ID() FROM mytable")
Dim id As Integer = rs.Fields(0).Value

MsgBox(id)

con.Close()

Advertisements