obtener valor autonumerico de MySQL en visual basic
Publicado por Jorge (56 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:
------------------------------------------------------
o usando DATA ENVIRONMENT
------------------------------------------------------
donde PDevolverCodigo tiene el codigo SQL "SELECT @@IDENTITY"
Como se hace con una Base de Datos MySQL????
En MsSQL o Access lo hacia de la siguiente forma:
1
2
3
4
5
6
7
8
9
10
11
12
'------------------------------------------------------
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
------------------------------------------------------
1
2
3
4
5
'Inserto el nuevo registro y acto seguido llamo mi comando para obtener el codigo que genera el campo autonumerico
Call DE.PDevolverCodigomi_Codigo_nuevo = DE.rsPDevolverCodigo!Expr1000
DE.rsPDevolverCodigo.Close
donde PDevolverCodigo tiene el codigo SQL "SELECT @@IDENTITY"
Valora esta pregunta
0