Visual Basic.NET - Consulta Maestro Detalle

   
Vista:

Consulta Maestro Detalle

Publicado por Victor (7 intervenciones) el 14/09/2009 23:31:00
Hola a todos, un favor estoy realizando una consulta enun control textbox cuando busco el codigo del equipo necesito que visualice el Maestro y detalle en dos gridview pero aun tengo problemas no me visualiza el detalle
el codigo es:

Imports System.Data
Imports System.Data.SqlClient
Public Class HistorialEquipo
Dim descripcion As String
Dim da As SqlDataAdapter
Dim ds As New DataSet
Dim par As SqlParameter
Dim des As String
Dim SqlTxt As String
Private cmd As SqlCommand 'eje
Private Const campo_Relacionado As String = "cod_op"
Dim Mirelacion As DataRelation


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Filtro()
End Sub
Sub Filtro()
Try

Dim filas As Integer

descripcion = Me.TextBox1.Text
SqlTxt = ""
If descripcion <> "" Then
SqlTxt = "select distinct cod_op,cod_pat,descripcion,Expr1 as [Servicio],Expr2 as [Fallas],modelo from VEquiposMant where cod_pat like '" & Me.TextBox1.Text & "%'"

ElseIf descripcion = "" Then
SqlTxt = "select * from VEquiposMant"
End If

If Con.State = ConnectionState.Closed Then Con.Open()
da = New SqlDataAdapter(SqlTxt, Con)
ds = New DataSet
da.Fill(ds, "VEquiposMant")

filas = DataGridView1.Rows.Count
Me.Label9.Text = Convert.ToString(filas - 1)

' Enlazar el DataGridView al dataset
With DataGridView1
.DataMember = "VEquiposMant"
.DataSource = ds
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.DefaultCellStyle.BackColor = Color.AliceBlue
End With

' ''''''''''''''''''''''''''''''''''''''''''''''''''''
' DataGridView detalle
' ''''''''''''''''''''''''''''''''''''''''''''''''''''

With cmd
' cadena sql para cargar la tabla pedidos
.CommandText = "SELECT cod_op,cantidad,descripcion,fecha FROM VDetalleOperacion"
End With

With da
.SelectCommand = cmd
' llenar el dataset
da.Fill(ds, "VDetalleOperacion")
End With

' Agregar la relación ( campo en común : campo_Relacionado = idCliente )
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With ds
.Relations.Add("mi_Relacion", _
.Tables("VEquiposMant").Columns(campo_Relacionado), _
.Tables("VDetalleOperacion").Columns(campo_Relacionado))
End With

' Establecer el DataSource y el DataMember para el DataGridview Detalle
With DvDetalle
.DataSource = ds
.DataMember = "Maestro.mi_Relacion"
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
End With

Con.Close()

Catch ex As Exception

End Try
Me.Text = "Formulario Maestro Detalle con dataGridviews"
End Sub



End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder