• Viernes 8 de Noviembre de 2024, 05:13

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - lineare

Páginas: [1]
1
Visual Basic para principiantes / Duda con datagrid
« en: Lunes 9 de Agosto de 2010, 15:33 »
Hola buenos días / tardes tengo una base de datos en access 2000 una datagrid que me la muestra según un filtro mediante combobox hasta ahi todo bien .
En la base de datos los registros estan de la siguiente forma E1L1, E1L2 sin embargo cuando yo ingreso datos a la datagrid en la linea del registro E1L1 en todos los registros donde se encuentre E1 me pone la cantidad mi pregunta es ¿como puedo programar la datagid para que solo guarde la cantidad en el registro que deseo?

De Antemano muchas gracias por sus comentarios y sugerencias

2
Visual Basic para principiantes / Conventir entero a cadena o.o?
« en: Viernes 7 de Mayo de 2010, 17:39 »
Hola disculpen quisiera saber si es posible poder evaluar una lista de un combobox que contiene numero a una cadena ya que en mi consulta el campo es texto.

Código: Visual Basic
  1. Private Sub Option1_Click(Index As Integer)
  2. 'Pone en blanco las columnas de datagrid y los combo de consulta
  3.    Combo1.Clear
  4.     Combo2.Clear
  5.     Combo3.Clear
  6.     DataGrid1.ClearSelCols
  7. 'COMIENZA LA CONSULTA DEPENDIENDO DEL RESULTADO DE LOS OPTION BOTON
  8.    X = Index + 1
  9.     If X = 10 Then X = "A"
  10.     If X = 11 Then X = "B"
  11.     linea.RecordSource = "SELECT * From sqlies WHERE estacion.linea = '" & X & "'"
  12.     linea.Refresh
  13.     Do While Not linea.Recordset.EOF
  14.         Combo1.AddItem linea.Recordset.Fields(1)
  15.         Combo3.AddItem linea.Recordset.Fields(1)
  16.         linea.Recordset.MoveNext
  17.     Loop
  18.     Combo1.ListIndex = 0
  19. End Sub
  20.  
  21. Private Sub Combo1_Click()
  22. 'DA LA CONSULTA DE LAS ESTACIONES
  23.    If Combo1.text = "No hay ninguna estación seleccionada " Then
  24.     Exit Sub
  25.     Combo3.ListIndex = Combo1.ListIndex
  26.     [color=#FF4000]linea.RecordSource = "SELECT estacion.nombre_estacion FROM sqlies WHERE estacion.orden=" _
  27.     & Val(Combo3.text)[/color]
  28.     linea.Refresh
  29.     Combo2.Clear
  30.     Do While Not linea.Recordset.EOF
  31.         Combo2.AddItem linea.Recordset.Fields(0)
  32.         linea.Recordset.MoveNext
  33.     Loop
  34.     Combo2.ListIndex = 0
  35. End Sub
  36.  
  37.  


lo que necesito es que en el combo 2 se desplieguen la lista de nombres de pendiendo del option boton que se seleccione

De antemano muchas gracias espero sus sugerencias  ^_^

Páginas: [1]