22/02/2012, 14:45
|
| | | Fecha de Ingreso: febrero-2012
Mensajes: 16
Antigüedad: 13 años Puntos: 0 | |
 Error TexBox autonumerico
Que tal? Agradeceria pudieran ayudarme con este problema, estoy trabajando con vb.net 2005 y una base en access, quiero que el form que carga a los socios tenga un textbox autonumerico para el codigo de socio, dejo el codigo que probe qu no me funciona porque me devuelve siempre 1, agradeceria quien pueda guiarme!!!!
Private Sub Frmaltasocio_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con.Open()
Dim Agregar As New OleDbCommand
Agregar.Connection = con
Agregar.CommandType = CommandType.Text
Agregar.CommandText = "Select MAX(CodSocio) As Maximo FROM Socios"
Agregar.ExecuteScalar()
TxtCodsocio.Text = Maximo + 1
con.Close()
End Sub |