04/01/2006, 08:27
|
| | | Fecha de Ingreso: enero-2006
Mensajes: 263
Antigüedad: 19 años, 1 mes Puntos: 1 | |
| No entiendo el error
Hola,tengo este codigo
Dim oMaxSocios As New SqlConnection
oMaxSocios.ConnectionString = "Server=(local);Database=Socios;Trusted_Connection =True;"
Dim oCommandSocios As New SqlCommand("Select MAX(NUMREGISTRO) as NUMREGISTRO from SOCIOS", oMaxSocios)
Dim oDataMaxSocios As SqlDataReader
oMaxSocios.Open()
oDataMaxSocios = oCommandSocios.ExecuteReader
If oDataMaxSocios.HasRows() Then
MsgBox("SI")
Else
MsgBox("NO")
End If
Lo que hago es que coga el maximo registro de un tabla y luego sumar uno, pero lo que pasa es que la bd actualmente no tiene ningun registro, y cuando pregunto HasRows me salta dentro, y me sale el Msgbox SI, es decir que sin tener ningun registro cuando pregunto si hay registros lo toma porque si hay
Espero haberme explicado bien, muchas gracias por vuestra colaboracion |