Holas espero me puedan ayudar, Estoy trabajando en el Visual Studio 2008 utiliazando vb.net y SQL server 2005.
Explico la situacion primeramente:
Tengo un winform(inicio.vb) que tiene la opcion isMdi container habilitada,
esta tiene un menu con un boton con la opcion "Clientes",
al apretar este boton se abre otro Winform(menu_clientes.vb),
menu_clientes.vb tiene un DataGridView, me muestra todos los clientes que ya se encuentran registrados, esto lo hace al abrir menu_clientes.vb
menu_clientes.vb tiene un ToolStrip, en este ToolStrip tengo un boton(Buscar Cliente) que abre otro winform(consulta_cliente.vb)
consulta_cliente tiene un ComboBox donde se selecciona la opcion de busqueda y un TextBox donde ingreso el dato a buscar.
Al presionar Enter se deberia cargar o actualizar el Datagridview con los datos asociados a la busqueda realizada.
El problema es que precisamente que no hace lo que quiero.
Espero que alguien me pueda ayudar porfavor, Muchas Gracias
Dejo el codigo abajo por si es que hubiese omitido un detalle o algo.
Codigo: inicio.vb
Código vb.net:
Ver originalPrivate Sub NavBarItem1_LinkClicked(ByVal sender As Object, ByVal e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles NavBarItem1.LinkClicked
Dim menu_cli As New menu_clientes
menu_cli.MdiParent = Me
menu_cli.WindowState = FormWindowState.Maximized
menu_cli.Show()
End Sub
Codigo: menu_clientes.vb
Código vb.net:
Ver originalPrivate Sub buscar_cliente_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buscar_cliente.Click
Dim ConsultaCliente As New consulta_cliente
ConsultaCliente.ShowDialog()
End Sub
'DE ESTA MANERA CARGO EL DATAGRIDVIEW CON LOS CLIENTES ASOCIADOS A LA BUSQUEDA QUE SE REALIZO
Public Sub RecargarGrilla(ByVal valor As String, ByVal opcion As String)
Dim conexion As New SqlConnection(cadena)
Dim MiDataSet As New DataSet
Dim MiAdapter As SqlDataAdapter
If opcion = "Rut" Then
MiAdapter = New SqlDataAdapter("SELECT cod_cli AS Codigo, rut_cli AS Rut, nombre_cli AS Nombre, fijo_cli AS Telefono, movil_cli As Celular, email_cli AS Mail FROM cliente WHERE rut_cli LIKE '%" & valor & "%'", conexion)
MiAdapter.Fill(MiDataSet)
DataGridView1.DataSource = MiDataSet.Tables(0)
End If
If opcion = "Nombre" Then
MiAdapter = New SqlDataAdapter("SELECT cod_cli AS Codigo, rut_cli AS Rut, nombre_cli AS Nombre, fijo_cli AS Telefono, movil_cli As Celular, email_cli AS Mail FROM cliente WHERE nombre_cli LIKE '%" & valor & "%'", conexion)
MiAdapter.Fill(MiDataSet)
DataGridView1.DataSource = MiDataSet.Tables(0)
End If
End Sub
Codigo: consulta_cliente.vb
Código vb.net:
Ver originalDim OpcionRut As String = "Rut"
Dim OpcionNombre As String = "Nombre"
Private Sub txBusqueda_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txBusqueda.KeyDown
If e.KeyCode = Keys.Enter Then
e.Handled = True
If String.IsNullOrEmpty(txOpcion.Text) Then
ep.SetError(txOpcion, "Ingrese Opcion de Busqueda")
'MsgBox("Ingrese Rut")
Exit Sub
End If
ep.Clear()
If String.IsNullOrEmpty(txBusqueda.Text) Then
ep.SetError(txBusqueda, "Ingrese Dato a Buscar")
Exit Sub
End If
ep.Clear()
'BUSQUEDA POR RUT
If txOpcion.Text = OpcionRut Then
'AQUI LLAMO A UNA FUNCION SIMILAR A ListarDatos()
My.Forms.menu_clientes.RecargarGrilla(txBusqueda.Text, txOpcion.Text)
End If
'BUSQUEDA POR NOMBRE
If txOpcion.Text = OpcionNombre Then
My.Forms.menu_clientes.RecargarGrilla(txBusqueda.Text, txOpcion.Text)
End If
End If
End Sub