Programación General > Visual Basic 6.0 e inferiores

 Update & Sql Server 2000

<< < (3/3)

Brroz:
Hola.

Puedes recuperar el nuevo número con una función de este estilo:


--- Código: Text --- Public Funcion NuevaClave(ByRef ConexionValida As ADODB.Connection, Byval Año as Integer) As Long    Dim rs1 As ADODB.Recordset  Set rs1 = ADODB.Recordset  rs1.Open &#34;SELECT MAX(CampoClave) FROM TablaEnCuestion &#34; _  &#34; WHERE CampoAño=&#34; & Año, ConexionValida  NuevaClave = IIf(Not IsNull(rs1.Fields(0).Value), rs1.Fields(0).Value + 1, 1)  Set rs1 = Nothing End Function  
Chau.

juravi:
:devil:
Gracias Brroz, la rutina no me sirvio por el momento para  lo que me aqueja (necesito que venga de vacasiones la usuaria del modulo ese para hacer una pregunta), pero si para algo que lo tenia en espera.
 :comp:
Son bienvenidas las sugerencias.

Navegación

[0] Índice de Mensajes

[*] Página Anterior