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

Ayuda Urgente, please

Estas en el tema de Ayuda Urgente, please en el foro de Programación General en Foros del Web. Hola a todos tengo un problema, tengo un form para actualizar datos (editar o eliminar), pero dado que son muchos productos no utilizo un datacombo, ...
  #1 (permalink)  
Antiguo 13/10/2004, 09:19
 
Fecha de Ingreso: septiembre-2004
Mensajes: 91
Antigüedad: 20 años, 2 meses
Puntos: 0
Exclamación Ayuda Urgente, please

Hola a todos tengo un problema, tengo un form para actualizar datos (editar o eliminar), pero dado que son muchos productos no utilizo un datacombo, para esto he creado un buscador, es decir ingreso una cadena en un textbox, hago click en un comado buscar y me carga otro form donde me aparecen todas las coincidencias en un datalist, al hacer click en alguno de ellos me pasa los datos al form, el problema es que una vez que pasa los datos me carga no logro conseguir que ya teniendo el cod de un producto se cargen todos sus datos en el form, cuando son pocos datos utilizo un datacombo que al hacer click, realiza la carga de datos, quisiera saber que metodo, propiedad o evento puedo utilizar para que una vez que se descarge el form buscar, me carge los datos del producto selecionado, aqui les anexo el codigo del datacombo, necesitaria adapatarlo o si ustedes me recomiendan algo diferente se los voy a agradecer ([email protected]):

Private Sub dbcboTienda_Click(Area As Integer)
Dim rs As New ADODB.Recordset
If Area <> 2 Then Exit Sub
NoChange = True
With rs
.ActiveConnection = cn
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Source = "SELECT * FROM Tienda WHERE CodTie='" & dbcboTienda.BoundText & "'"
.Open
End With
If rs.RecordCount = 0 Then
MsgBox "No hay Tiendas"
GoTo DestroyRS
End If

txtNombre.Text = rs!NomTie
txtDireccion.Text = rs!DirTie
txtTelefono1.Text = IIf(IsNull(rs!TelTie1), "", rs!TelTie1)
txtTelefono2.Text = IIf(IsNull(rs!TelTie2), "", rs!TelTie2)
txtPorcentajeUtilidad.Text = rs!PorUtiTie

NoChange = False
cmdEliminar.Enabled = True

DestroyRS:
rs.Close
Set rs = Nothing
End Sub
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




La zona horaria es GMT -6. Ahora son las 23:42.