MySQL - obtener valor autonumerico de MySQL en visual basic

   
Vista:

obtener valor autonumerico de MySQL en visual basic

Publicado por Jorge (3 intervenciones) el 19/04/2011 17:09:57
en Visual Basic usando una BD MsSQL o Access para obtener el codigo de un valor autonumerico usaba SELECT @@IDENTITY inmediatamente despues de hacer la insercion de un nuevo registro.

Como se hace con una Base de Datos MySQL????

En MsSQL o Access lo hacia de la siguiente forma:
'------------------------------------------------------
Set cnn = New ADODB.Connection
Set rstSQL = New ADODB.Recordset
MI_SentenciaSQL = "SELECT @@IDENTITY as mi_cod"

y blah blah blah... codigo....

'inserto un nuevo registro y acto seguido llamo MI_SentenciaSQL para obtener el codigo

rstSQL.Open MI_SentenciaSQL, cnn, adOpenDynamic, adLockOptimistic
mi_codigo_nuevo = rstSQL!mi_cod
rstSQL.close

------------------------------------------------------
o usando DATA ENVIRONMENT
------------------------------------------------------

'Inserto el nuevo registro y acto seguido llamo mi comando para obtener el codigo que genera el campo autonumerico

Call DE.PDevolverCodigo
mi_Codigo_nuevo = DE.rsPDevolverCodigo!Expr1000
DE.rsPDevolverCodigo.Close

donde PDevolverCodigo tiene el codigo SQL "SELECT @@IDENTITY"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder