validar myReader.read()

[alebam]

hola tengo la siguiente consulta..
Dim myConnection As New OleDb.OleDbConnection("Provider=SQLOLEDB;......... )
Dim mySelectQuery As String = "select MAX(clave) from clave "

Dim myCommand As New OleDb.OleDbCommand(mySelectQuery, myConnection)
myConnection.Open()
Dim myReader As OleDb.OleDbDataReader = myCommand.ExecuteReader()
Try

While myReader.Read()


tc.Text = myReader.GetValue(0) + 1


End While

Finally
myReader.Close()
myConnection.Close()
End Try
me podrian ayudar en como valido el myReader.read() si es la primera consulta y la columna clave no tiene ningun registro y que me agrege a tc.text 1 que es el 1r valor

se los agradecería mucho Gracias

[gedarufi]

Puedes utilizar myReader.HasRows con eso sabrás si tu consulta te retorno algún valor o no.

Saludos

[pier_cajo]

hola alebam esto te puede ayudar mucho lo utilizo para crear nuevos codigos

Dim CN As New SqlConnection("DATA SOURCE=PIER\SQLSERVER2005;USER ID=SA;PWD=;DATABASE=base")
Dim SQL As String
SQL = "SELECT MAX(COD_CLIENTE)FROM CLIENTE"
Dim CMD As New SqlCommand
Dim DR As SqlDataReader
CMD.CommandType = CommandType.Text
CMD.Connection = CN
CMD.CommandText = SQL
CN.Open()
DR = CMD.ExecuteReader
DR.Read()
If IsDBNull(DR.Item(0)) Then
TextBox1.Text = Format(1, "00000")
Else
TextBox1.Text = Format(CType(DR.Item(0), Integer) + 1, "00000")
End If
CN.Close()

espero te sirva de ayuda

[alebam]

muchas gracias pier_cajo es lo que necesitaba gracias