Error TexBox autonumerico

[samyy_g]

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

[Ka0stj]

En donde le estas asignando o en que parte esta tomando la variable Maximo valor? el ExecuteScalar() deberias asignarlo a la variable.

Saludos!

[Carlojas]

Que tal samyy_g, si deseas recuperar los datos que te devuelve tu consulta debes usar el metodo OleDbCommand.ExecuteReader. Te paso un ejemplo de como quedaría tu código.

Código vb:

con.Open()
Dim Agregar As New OleDbCommand
Agregar.Connection = con
Agregar.CommandType = CommandType.Text
Agregar.CommandText = "Select MAX(CodSocio) As Maximo FROM Socios"
Dim Lector As OleDbDataReader = Agregar.ExecuteReader()
While Lector.Read()
  TxtCodsocio.Text = Lector(0).ToString() + 1         
End While
con.Close()
 

Saludos.

[Aquaventus]

Hola samyy_g, concuerdo con lo que dice Ka0stj, creo que lo necesitas es hacerlo asi :

Código vb:

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"
Maximo = Convert.toInt32(Agregar.ExecuteScalar()) + 1
TxtCodsocio.Text = Maximo
con.Close()
 
End Sub
 

Saludos!.

[samyy_g]

Ka0stj, muchas gracias por tu ayuda, me sirvio!!!! Gracias!!!

[samyy_g]

Carlojas, Gracias por tu ayuda, muy clara tu explicacion !!! Me salvaste estaba trabada con esto y no encontraba como hacerlo. Gracias!!!! :)

[samyy_g]

Aquaventus, muy claro tu ejemplo, muchas gracias!!!!