Visual Basic - Autonumerico

Life is soft - evento anual de software empresarial
 
Vista:

Autonumerico

Publicado por Melisa (1 intervención) el 05/03/2012 12:51:40
Necesito que un campo sea autonumerico, en un Text de codigo, estoy trabajondo con un formulario enlasado con un control data, se me ocurrio el siguiente codigo, quisiera saber si esta bien.


Dim c as Integer
c = SELECT MAX AS clicod(campo) FROM clientes (tabla)
If c < "0"
Text1.Text = 1
Else
Tect.Text = c +1
End If
End Sub

El mismo se encontrara en el evento click de un Commaand Button llamado agregar, el cual agrega un nuevo registro
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

Autonumerico

Publicado por jcmg (518 intervenciones) el 07/03/2012 06:47:27
posiblemente tengas un error en esta linea if c < "0" porque al ponerlo entre comillas le dices a visual que 0 es un entero quedaria asi if c < 0
esta linea esta mal tect.text = c + 1 es text1.text = c + 1
quedaria:
Dim c as Integer
c = SELECT MAX AS clicod(campo) FROM clientes (tabla)
If c < 0
Text1.Text = 1
Else
Text1.Text = c +1
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Autonumerico

Publicado por Christian (713 intervenciones) el 09/03/2012 19:58:23
Al total de registros le suma 1

SELECT MAX(Campo) + 1 AS Total
FROM Tabla
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 7
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Autonumerico

Publicado por Viejo Charles (262 intervenciones) el 22/03/2012 00:48:53
Dim c as Integer, sSql as string, Rs as new adodb.recordset
'Asumo que el recordset esta instanciado en la variable de conexion
c = 1 'Por defecto que empiece en 1

Rs.open "SELECT MAX(clicod) FROM clientes"
if not rs.eof then
if isnull(Rs(0))=false then 'esta linea determina si no encontró valor
c = c + 1
end if
endif

Text1.Text = c

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar