• Viernes 8 de Noviembre de 2024, 05:05

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.


Mensajes - 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 / Re: Conventir entero a cadena o.o?
« en: Jueves 13 de Mayo de 2010, 15:58 »
Si tenias razon estaba haciendo mal la consulta ya funciona correctamente gracias, creo que tendre que estudiar un poco sql  :P muchisimas gracias por tu tiempo y paciencia  ^_^

3
Visual Basic para principiantes / Re: Conventir entero a cadena o.o?
« en: Miércoles 12 de Mayo de 2010, 17:36 »
Hola disculpa la molestia pero al momento de ejecutar me sale un error y el mensaje que me aparece es relacionado al adodc "No se han especificado valores para algunos de los parametros requeridos la verdad no se a que se deba ya revise varias veces la conexion y esta al igual que la consulta

Código: Visual Basic
  1.  Private Sub Combo1_Click()
  2. 'DA LA CONSULTA DE LAS ESTACIONES
  3.    If Combo1.Text = "No hay ninguna estación seleccionada " Then Exit Sub
  4.     Combo3.ListIndex = Combo1.ListIndex
  5.     If Combo3.Text <> "" Then
  6.     linea.RecordSource = "SELECT estacion.nombre_estacion FROM sqlies WHERE estacion.linea = " & Combo3.Text
  7.     linea.Refresh
  8.     Combo2.Clear
  9.     Do While Not linea.Recordset.EOF
  10.         Combo2.AddItem linea.Recordset.Fields(2)
  11.         linea.Recordset.MoveNext
  12.     Loop
  13.     Combo2.ListIndex = 0
  14.     End If
  15. End Sub
  16.  
  17.  


De antemano muchas gracias por t ayuda y paciencia :hola:

4
Visual Basic para principiantes / Re: Conventir entero a cadena o.o?
« en: Martes 11 de Mayo de 2010, 15:51 »
Hola muchas gracias por responder y me disculpo por no ser tan explicits el problema que tengo es que cuando ejecuto el programa me aparece el siguiente error:

No se han especificado valores para algunos de los parametros requeridos

y cuaqndo le pongo en depurar me sale que esta llinea de codigo esta mal

Código: Visual Basic
  1. RecordSource = "SELECT estacion.nombre_estacion FROM sqlies WHERE estacion.orden=" & Val(Combo3.text)
  2.  

lo que no estiendo es porque me marca error si este codigo ya habia funcionado con otra base de datos crei que seria por que lo estaba tomando como entero ya que trabaje con matrices pero al parecer es otra cosa

5
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]