Contador lector de base de datos

update TuTabla set Campo = max(campo)+1 from Tutabla where

Saludos, claudio


"jebado" escribió en el mensaje
news:

Hola maestros:
En un proyecto en VB.Net WinForm tengo una BD Access en la que almaceno el

número de Formulario abierto. En el Form un Txt ReadOnly que quiero que lea
el último nº almacenado y le sume uno para luego guardarlo como último Form
abierto.

¿Cómo sería el código VB.Net con su sentencia SQL? Espero no pedir

demasiado, pues estoy empezando... Gracias de antemano ;)

jebado


Ver este tema: http://www.softwaremix.net/viewtopic-390666.html

Enviado desde http://www.softwaremix.net

esta funcion devuelve el nuevo ID le pasamos la consulta "

"SELECT TOP 1 IdSolicitante, Nombre From Solicitantes Order By IdSolicitante
DESC"

que en tu caso tendras que cambiar por tu tabla..

y usa la variable CadenaConexion que seria tu cadena de conexion..



Public Function NuevoID(ByVal SQLConsulta As String) As Long

Try

Dim MiConexion As New OleDbConnection(CadenaConexion)

Dim MiComando As New OleDbCommand(SQLConsulta, MiConexion)

MiConexion.Open()

Dim MiDataReader As OleDbDataReader

MiDataReader = MiComando.ExecuteReader()

MiDataReader.Read()

'para optener el texto

'MessageBox.Show(MiDataReader.GetString(1))

NuevoID = MiDataReader.GetInt32(0) + 1

MiDataReader.Close()

MiConexion.Close()

Catch ex As Exception

NuevoID = Err.Number

MessageBox.Show(SQLConsulta & vbCrLf & Err.Description, "No se pudo trae el
Ultimo ID, Error Nº" & Err.Number, MessageBoxButtons.OK,
MessageBoxIcon.Error)

Err.Clear()

End Try



End Function


saludos...

Lord Voldemort..
ya viene adrian.. prepara la lancha...


"jebado" escribió en el mensaje
news:

Hola maestros:
En un proyecto en VB.Net WinForm tengo una BD Access en la que almaceno el
número de Formulario abierto. En el Form un Txt ReadOnly que quiero que
lea el último nº almacenado y le sume uno para luego guardarlo como último
Form abierto.
¿Cómo sería el código VB.Net con su sentencia SQL? Espero no pedir
demasiado, pues estoy empezando... Gracias de antemano ;)


jebado


Ver este tema: http://www.softwaremix.net/viewtopic-390666.html

Enviado desde http://www.softwaremix.net