CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Generar consecutivo automatico

(1/1)

willysistemas:
estoy desarrolando un proyecto en el cual debo generar un numero de factura consecutivo de manera automatica en visual basic 6 lo hacia asi:

Private Function GenerarNumero() As String
Dim rsTemp As New ADODB.Recordset
rsTemp.Open("Select max(right(NroFactura,9)) from [tblFacturas]", conexion)
GenerarNumero = "N-" & Format(Val("" & rsTemp(0)) + 1, "000000000")
End Function


quisiera saber como quedaria este codigo  en version 2005 o 2008 he intentado y no he podido, agradezco la colaboracion que me puedan dar

javierkcjm:
en vb 2005 seria percido a vb 6
tomo como referencia que la coneccion es a sql

Private Function GenerarNumero() As String
Dim cone As New sqlconecction(my.settings.coneccion)
DIm comando as new sqlcommand(cone,"Select max(right(NroFactura,9)) from tblFacturas")
Dim max as int
cone.open
max=comando.ExecuteScalar
cone.close
GenerarNumero = "N-" & Format(max + 1, "000000000")
End Function

willysistemas:
hola javierkcjm  me ha servido mucho tu ayuda he solucionado mi dificultad solo hice algunos cambios que generaban errores y listo todo funciona . muchas gracias

Navegación

[0] Índice de Mensajes