Busquedas en VB.NET ???

[carlos79]

Buenos dias estimados amigos foristas :

Como puedo hacer para buscar un registro en la base de datos a través de un textbox y en caso de que no exista mostrar un messagebox mostrando que el registro no existe ????

Y en el caso de que exista el registro como puedo hacer la búsqueda y mostrar el message box ????

en visual basic 6 sé que la instrucción es así :


If KeyCode = 13 Then
If Text1.Text = "" Then
r = MsgBox("Debe ingresar el N° de control para continuar. Favor verifique e intente de nuevo", vbOKOnly, "Error")
Text1.SetFocus

Else

Set vali = New ADODB.Recordset

With vali
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select nro_guia from guias where guias.nro_guia = '" & Val(Text1.Text) & "'", cn
End With

If vali.BOF Then
'r = MsgBox("Número de control inexistente. Favor verifique e intente de nuevo", vbExclamation, "Error")
Text16.Text = Text1.Text
Command3.Enabled = True
Combo2.Enabled = True
Combo2.SetFocus

Else
r = MsgBox("Número de control existente, favor verifique e intente de nuevo", vbOKOnly, "Error")

End If


Saludos

Carlos.

[AndyDroid]

Hola carlos79, que base de datos utilizas?

[carlos79]

SQL Server 2005 es mi manejador de base de datos !!!!

[othix]

Yo lo haria de la siguiente manera

Código vb:

If KeyCode = 13 Then 
If Text1.Text.trim() = "" Then
MsgBox("Debe ingresar el N° de control para continuar. Favor verifique e intente de nuevo", vbOKOnly, "Error")
Text1.SetFocus
 
Else
'llenar tu datatable o dataset con la data como lo has hecho con otras consultas
'asumiendo que ds es donde traes la data
if ds.rows.count>0
'si entra aca es por que si existe  la data
Text16.Text = Text1.Text
Command3.Enabled = True
Combo2.Enabled = True
Combo2.SetFocus
 
else
 MsgBox("Número de control inexistente, favor verifique e intente de nuevo", vbOKOnly, "Error")
endif 'revision que venga data
endif 'revision del textbox vacio
 

[carlos79]

Hola nuevamente othis :

Fijate... el código en VB6 lo tengo y corre excelente... lo que quisiera saber es como traduzco el código que estuve posteando al principio en VB.NET.... me explico ??? porque en VB6 me funciona muuuy bien....

Lo que quiero saber en realidad es lo siguiente : tengo un texbox y le digo que busque en la base de datos el control 4.... que sucede... si existe, que me diga que existe y verifique... si no, que haga como u end sub y lo pueda registrar...

Saludos

Carlos.

[othix]

De que manera sabes si existe o no?, atraves de una consulta a la db, hace que la db te devuelva el registro si es que existe, si no existe no te devulve nada (la db)

primero consultamos la db

Código vb:

da = New SqlClient.SqlDataAdapter("select codigoControl,nombreContro from tablaDeControles where codigoControl =" & TextBox9.Text, cs)
da.Fill(ds, "controles")
 

luego revisamos que datos trae la db si rows.count >0 es por que trae los datos de la consulta

Código vb:

if da.tables(0).rows.count>0 then
'si existe el control
'aqui podes escribir la logica cuando exista el control o mostrar el mensaje de que si existe
else
'no existe el control
'aqui pones la logica cuando no existe el control o mostrar un mensaje
endif
 

Saludos, espero haberte ayudado

[carlos79]

Hola amigo espero estes bien... Fijate que hice esto que me acabas de postear, pero cuando ingreso esta sentencia

If da.Tables(0).count > 0 Then

me dice que "tables" is not a member of 'system.data.sqlclient.sqladapter'

Saludos

Carlos.

[othix]

Te falta Rows.count

en vez de esto
If da.Tables(0).count > 0 Then

pone esto
If da.Tables(0).rows.count > 0 Then

lo que se hace es contar la cantidad de filas que bienen en la tabla.
si tu da es dataAdapter debes poner da.tables(0).rows.count
si tu da es un datatable debes poner da.rows.count

[carlos79]

Buenos dias Othis.... Fijate lo siguiente.... coloqué el código pero ingreso un registro que sé está existente en la base de datos y no me dice que ya se encuentra....

Te adjunto el código para que esto se ponga mas interesante jejeje

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim ds As New DataSet
Dim da As New SqlClient.SqlDataAdapter
'-----------------------------------------------------------------------------------------------------------------
'Esta instrucción nos permite ingresar únicamente
'caracteres numéricos en el textbox1
If (Asc(e.KeyChar)) >= 48 And (Asc(e.KeyChar)) <= 57 Or (Asc(e.KeyChar)) = System.Windows.Forms.Keys.Back Then
e.Handled = False
else
e.Handled = True
End If
'------------------------------------------------------------------------------------------------------------------
If Asc(e.KeyChar) = 13 Then

If Me.TextBox1.Text = "" Then
MsgBox("Debe ingresar un número de guía. Favor verifique e intente de nuevo.", MsgBoxStyle.OkOnly & MsgBoxStyle.SystemModal & MsgBoxStyle.Exclamation & MsgBoxStyle.DefaultButton1, "Sistema de Control de Guias")

Else
da = New SqlClient.SqlDataAdapter("select nro_guia from guias where nro_guia ='" & TextBox1.Text & "'", cs)
da.Fill(ds, "guias")

If ds.Tables(0).Rows.Count > 0 Then

MsgBox("N° de guía registrado. Favor verifique e intente de nuevo", vbOKOnly, "sistema de Control de Guias")
Else
ComboBox1.Focus()
End If
End If
End If

End Sub

No entiendo por que no me indica que el registro existe aún cuando le ingreso u código existente en mi base de datos.

Saludos.

Carlos.

[othix]

como tenes declarado nro_guia en la base de datos; si esta como string debuguea que el dataset traiga datos; si esta como numero tu consulta esta mala (solo quitale los apostrofes para que traiga data).

si el dataset trae data te mostrara el mensaje
N° de guía registrado. Favor verifique e intente de nuevo

si no hara:

ComboBox1.Focus()

saludos. para debuguear pone un breakpoint en If ds.Tables(0).Rows.Count > 0 Then (F9)
y revisa la variable da

[carlos79]

Hola othis buenos dias... el campo nro_guia lo tengo como tipo int en la base de datos, sin embargo, estuve debugueando y no me trae registros... siempre queda en cero aún cuando le ingreso un codigo existente y un código inexistente...

Ya me da verguenza seguir molestandote !!!!

Estoy buscando programas de vb.net con sqlserver para observar la programación y ver que puedo adaptar a mis requerimientos.

Un millón de gracias

Carlos.

[carlos79]

Othis : mira lo que hago...

If Asc(e.KeyChar) = 13 Then

da = New SqlClient.SqlDataAdapter("select * from guias where nro_guia =" & TextBox1.Text, cs)
da.Fill(ds)

If ds.Tables(0).Rows.Count > 0 Then
MsgBox("existe", MsgBoxStyle.OkOnly & MsgBoxStyle.SystemModal & MsgBoxStyle.Exclamation & MsgBoxStyle.DefaultButton1, "Sistema de Control de Guias")
Else
MsgBox("no existe", MsgBoxStyle.OkOnly & MsgBoxStyle.SystemModal & MsgBoxStyle.Exclamation & MsgBoxStyle.DefaultButton1, "Sistema de Control de Guias")



End If
end if


Que pasa.... aún cuando ingreso un numero de guia que existe en mi bd me dice que no existe.... y si pongo un numero que NO EXISTE de igual forma el sistema va al segundo messagebox de no existe......

Será que algo me está sucediendo ???

Saludos.

Carlos.

[carlos79]

OTHISSS.... AMIGOOO.... Sabes cuál era el problema ??? el string de conexión estaba apuntando a otro servidor y cuando consultaba pues nunca iba a traer registros jajajajajaja

Gracias por tu excelente ayuda... tu tiempo !!! personas como tú es que permiten el fortalecimiento de los foros !!!

saludos

carlos