excepciones
Publicado por wilfot_2 (11 intervenciones) el 05/05/2007 03:14:45
tengo un problema con un codigo,estoy tratando de meter una excepcion ,en un codigo
para una consulta,pero la excepcion no me funciona.a veces me funciona a veces no.
le estoy enviando parte del codigo.por si soluciono esto,lo demas es copiar y pegar.
If RadioButton3.Checked = True Then
Try
Dim sib_2 As New SqlConnection
Dim temas As New SqlDataAdapter( _
"select distinct temas.temas, inventario.titulo,inventario.descripcion, inventario.num_invent,inventario.estado from inventario inner join temas on inventario.num_invent= temas.num_invent where temas.temas like '" & txt1.Text.Trim & "%'", _
stringconeccion)
ds.Clear()
temas.Fill(ds, "temas")
dg.DataSource = ds
dg.DataMember = "temas"
If dg.VisibleRowCount <> 1 Then
MsgBox("NO EXISTEN REGISTROS", MsgBoxStyle.Exclamation, "Consulta")
End If
Catch ex As Exception
' If dg.VisibleRowCount = 1 Then
'MsgBox("NO EXISTEN REGISTROS", MsgBoxStyle.Exclamation, "Consulta")
' End If
End Try
End If
End Sub
para una consulta,pero la excepcion no me funciona.a veces me funciona a veces no.
le estoy enviando parte del codigo.por si soluciono esto,lo demas es copiar y pegar.
If RadioButton3.Checked = True Then
Try
Dim sib_2 As New SqlConnection
Dim temas As New SqlDataAdapter( _
"select distinct temas.temas, inventario.titulo,inventario.descripcion, inventario.num_invent,inventario.estado from inventario inner join temas on inventario.num_invent= temas.num_invent where temas.temas like '" & txt1.Text.Trim & "%'", _
stringconeccion)
ds.Clear()
temas.Fill(ds, "temas")
dg.DataSource = ds
dg.DataMember = "temas"
If dg.VisibleRowCount <> 1 Then
MsgBox("NO EXISTEN REGISTROS", MsgBoxStyle.Exclamation, "Consulta")
End If
Catch ex As Exception
' If dg.VisibleRowCount = 1 Then
'MsgBox("NO EXISTEN REGISTROS", MsgBoxStyle.Exclamation, "Consulta")
' End If
End Try
End If
End Sub
Valora esta pregunta


0