Mostrar mensaje de error cuando no hay nada en la Base de datos!

[xmxsicl]

Hola

Espero que alguien pueda ayudarme. Tengo un Sub en VB.NET donde cargo los datos en un DataAdapter y luego los paso a un dataSet. Cuando pongo un nombre de usuario que no esta en la base de datos, el dataset esta vacío y me sale el error "There is no row at position 0".

No sé como puedo evitar esto. Traté con un catch ex as sqlException, pero mas bien lo que hace es saltarselo y seguir con las siguientes instrucciones. Espero que alguien pueda ayudarme

Alguien que me ayude será sumamente agradecido

Aca les pongo mi codigo:

************************************************** *********

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As ProcedimientosGenerales = New ProcedimientosGenerales

' Se abre la base de datos
CadenaConexion = f.AbrirBaseDatos(CadenaConexion)
conexion = f.ConexionBaseDatos(CadenaConexion, conexion)
comando = New SqlCommand(CadenaConexion, conexion)

' Se crea un SqlDataAdapter para la tabla EMPLOYEE.
Dim DatosEmpleado As SqlDataAdapter = New SqlDataAdapter()

' Se hace una tabla “table” que mapee los datos de EMPLOYEE.
DatosEmpleado.TableMappings.Add("Table", "Employee")

Dim ComandoEMPLEADO As SqlCommand = New SqlCommand( _
"SELECT [USER].MUD_ID, [USER].STRFIRSTNAME, [USER].STRLASTNAME, DEPARTMENT.STRDEP_NAME, DEPARTMENT.STRSUPERVISOR, [USER].AVAILABLEDAYS, [USER].TAKENDAYS FROM EMPLOYEE INNER JOIN [USER] ON EMPLOYEE.US_CODE = [USER].MUD_ID INNER JOIN LINE_MANAGER ON EMPLOYEE.US_CODE = LINE_MANAGER.EMP_US_CODE AND [USER].MUD_ID = LINE_MANAGER.US_CODE INNER JOIN DEPARTMENT ON LINE_MANAGER.DEP_CODE = DEPARTMENT.CODE WHERE [user].mud_id = '" & txtusername.Text & "'", conexion)

' Se crea un SqlCommand para recuperar la info de EMPLOYEE.
ComandoEMPLEADO.CommandType = CommandType.Text

' Se incorpora el SelectCommand del SqlDataAdapter.
DatosEmpleado.SelectCommand = ComandoEMPLEADO

' Se llena el DataSet.

Dim DS As DataSet = New DataSet("Employee")
DatosEmpleado.Fill(DS)

' QUE HAGO ACA!???? Aca es donde me aparece el error
If DS.Tables("Employee").Rows(0)(0).ToString = "" Then
MensajeError.Text = "ERROR. Usuario no se encuentra en Base de Datos"
Else
' Visualiza los datos en los textboxes

txtNombreEmpleado.Text = ((DS.Tables("Employee").Rows(0)(1).ToString) + " " + (DS.Tables("Employee").Rows(0)(2).ToString))
txtDepartamento.Text = DS.Tables("Employee").Rows(0)(3).ToString
txtjefeinmediato.Text = DS.Tables("Employee").Rows(0)(4).ToString
txtdiastomados.Text = DS.Tables("Employee").Rows(0)(5).ToString
txtdiasdisponibles.Text = DS.Tables("Employee").Rows(0)(6).ToString

' Visualiza los ddatos en un DataGridView A MODO DE PRUEBA

DataGrid1.DataSource = DS.Tables("Employee")
End If
conexion = f.Cerrarbasedatos(conexion)

End Sub

************************************************** *********

Lo de el SqlCommand, eso me funciona, es que lo puse en linea continua, no dividí la cadena pero si me funciona.

Gracias por toda la ayuda que me puedan brindar.

[freegirl]

Comprueba si el dataset está vacío:

por ejemplo:

if DS is nothing then
msgbox("No hay empleados")
End if

O bien, antes de coger el dato que contien n fila en y posición:

if idDbNull(DS.Tables("Employee").Rows(0)(0))=False Then
'coge el dato
End if

saludos

[magosc]

Tambien puedes utilizar el TRY - CATCH

Código:

try
'Aqui pones el codigo q tienes


Catch ex As Exception
'Aqui pones el codigo o lo que quieres q haga si te da error, por ejemplo

Response.Redirect(ex.message)
         
 End Try

suerte....

[xmxsicl]

Gracias en verdad por la ayuda!!!.... el problema es que en realidad cuando se carga los datos en el dataset, si aparece un registro en el campo 0 pero está totalmente en blanco. SQL no tiene una instruccion que indique que si el registro está en blanco no lo muestre.... simplemente pone la tupla en blanco. Asi que a la hora de desplegar la información, Data.tables.count estaría valiendo 1.

Si pusiera Data.Tables.Count <> 0 , estoy obviando que hay registro ahi, entonces jamas me mostraría nada.

Tiene que haber una manera para determinar si el primer campo del registro (... rows(0)(0)..) esta en blanco. Si eso pase, pues que no muestre nada y despliegue un mensaje de error.

Que opinan?

Gracias.

[chcma]

SqlConnection objCn = new SqlConnection("cadena conexion");
DataTable tbDatos = new DataTable();
DataAdapter objDa = new DataAdapter("comando", objCn);
objDa(tbDatos);

if (tbDatos.Rows.Count == 0)
{
MessageBox.Show("No hay registros");
}
else
{
if( (tbDatos.Rows[0][0] == String.Empty ) || (tbDatos.Rows[0][0] == null) )
MessageBox.Show("No hay registros");
}

[xmxsicl]

EXCELENTEEEE!!!!!! Tenías razon Chcma con este codigo. Me salvaste la vida!!!!! Y ya le vas a salvar la vida a mas de uno con este ejemplo!!!

Muchisimas gracias

xmxsicl

[xmxsicl]

Aprovecho para que tengan el código como me quedó para declarar esa condicion dentro de mi programa, talvez pueda ayudarles a más de uno:

If DS.Tables("Employee").Rows.Count = 0 Then
MsgBox("No hay registros")
Else
If (DS.Tables("Employee").Rows(0)(0) = String.Empty) Then
MsgBox("No hay empleados")

Else
' Visualiza los datos en los textboxes

txtNombreEmpleado.Text = ((DS.Tables("Employee").Rows(0)(1).ToString) + " " + (DS.Tables("Employee").Rows(0)(2).ToString))
txtDepartamento.Text = DS.Tables("Employee").Rows(0)(3).ToString
txtjefeinmediato.Text = DS.Tables("Employee").Rows(0)(4).ToString
txtdiastomados.Text = DS.Tables("Employee").Rows(0)(5).ToString
txtdiasdisponibles.Text = DS.Tables("Employee").Rows(0)(6).ToString
End If
End If