Foros del Web » Programación para mayores de 30 ;) » .NET »

Ayuda a terminar mi busqueda vb.net

Estas en el tema de Ayuda a terminar mi busqueda vb.net en el foro de .NET en Foros del Web. HOLA A TODOS!!! ESTOY realizando un sistema en VB.NET EL PROBLEMA ES EL SIGUIENTE: En mi base de datos de Acces Tengo dos tablas una ...
  #1 (permalink)  
Antiguo 06/02/2011, 11:38
 
Fecha de Ingreso: febrero-2011
Mensajes: 1
Antigüedad: 13 años, 8 meses
Puntos: 0
Ayuda a terminar mi busqueda vb.net

HOLA A TODOS!!!

ESTOY realizando un sistema en VB.NET EL PROBLEMA ES EL SIGUIENTE:

En mi base de datos de Acces Tengo dos tablas una MARCA y la otra PRODUCTO estas estan relacionadas POR EL COD_MARCA.

EN MI FORMULARIO TENGO un combobox que muestra el campo Nombre de la TABLA MARCA y me guarda el COD_MARCA.
HASTA ahi todo bien!!!!!!!!!!

AHORA el problema lo tengo en la busqueda de la Tabla PRODUCTO.
Cuando realizo la busqueda en el Textbox busco por COD_PRODUCTO Y SE SELECCIONA el dato en el datagridview con ese codigo, lo que deseo es que cuando yo haga a click en el dato seleccionado del datagridview PASEN todos ESOS datos a los textbox y combobox que tiene el formulario (campos de la tabla).

El detalle seria que cuando carge todos de los datos de esos campos al aver hecho click en el datagriview me muestre el NOMBRE de la marca mas no el CODIGO_MARCA que guarde al principio.

ESPERO QUE ME PUEDAN AYUDAR GRACIAS!!!!!!
  #2 (permalink)  
Antiguo 06/02/2011, 16:26
 
Fecha de Ingreso: enero-2007
Mensajes: 27
Antigüedad: 17 años, 9 meses
Puntos: 0
Respuesta: Ayuda a terminar mi busqueda vb.net

Te adjunto parte de mi código en un proyecto del cual puedes tomas ideas.
Veras cosas raras (como un OR TRUE).Eso lo tengo por temas de depuración, pero supongo que sabras ver lo interesante. Ahora se entiende mucho mejor tu pregunta.

Private Sub BajarDatosDeGridADetalle()
' Dim Valor As String
' Dim Col As Integer = Me.Grid.CurrentCell.ColumnIndex
' For Each row As DataGridViewRow In Me.Grid.Rows
' Valor = row.Cells(Col).Value
' Next
Try

If MisSeguimientos Or True Then
If Grid.Rows.Count = 0 Then
LimpiarTXT()
Else
SetTabla(Grid.CurrentRow.Cells("Tabla").Value & "")
'para forzar el change y así la busquda
txtCodigo.Text = ""
txtCodigo.Text = Grid.CurrentRow.Cells("ValorRegistro").Value & ""



lblResumen.Tag = Grid.CurrentRow.Cells("Registro").Value & ""
txtResumen.Text = Grid.CurrentRow.Cells("Resumen").Value & ""
txtAsunto.Text = Grid.CurrentRow.Cells("Asunto").Value & ""
'ComboEstablecerValor(ComboAsuntos, Grid.CurrentRow.Cells("TipoAsunto").Value & "")
ComboAsuntos.Text = Grid.CurrentRow.Cells("TipoAsunto").Value & ""


'ComboEstablecerValor(ComboAcciones, Grid.CurrentRow.Cells("TipoAccion").Value & "")
ComboAcciones.Text = Grid.CurrentRow.Cells("TipoAccion").Value & ""
Dim FP As String
FP = Grid.CurrentRow.Cells("FechaPrevista").Value & ""
If FP = "" Then
FechaPrevisto.Value = Now
FechaPrevisto.Checked = False
Else
FechaPrevisto.Value = FP
FechaPrevisto.Checked = True
End If
Dim St As String
St = Grid.CurrentRow.Cells("UsuarioAtiende").Value & ""
ComboUsuarios.Text = St
txtFichero.Text = Grid.CurrentRow.Cells("Fichero").Value & ""


FP = Grid.CurrentRow.Cells("FechaCierre").Value & ""
If FP = "" Then
FechaCierre.Value = Now
Else
FechaCierre.Value = FP
End If


FechaCierre.Checked = clsUtiles.ToBoolean(Grid.CurrentRow.Cells("Cerrado ").Value)

End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
cmdGrabar.Visible = False
End Sub
  #3 (permalink)  
Antiguo 06/02/2011, 16:35
 
Fecha de Ingreso: febrero-2011
Mensajes: 6
Antigüedad: 13 años, 8 meses
Puntos: 0
Respuesta: Ayuda a terminar mi busqueda vb.net

Muchas gracias por tu respuesta probare tu codigo y luego te cuento como me fue y si es que tenga alguna duda te la hare saber....
  #4 (permalink)  
Antiguo 06/02/2011, 17:43
 
Fecha de Ingreso: febrero-2011
Mensajes: 6
Antigüedad: 13 años, 8 meses
Puntos: 0
Respuesta: Ayuda a terminar mi busqueda vb.net

Ola NetSistemas, me sigue enviando el codigo de la marca lo que yo quiero es que me envie el nombre de la marca... Ayudame a solucionar ese problema..

Etiquetas: terminar, busquedas
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 17:31.