Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CARRY-ON en 19 Octubre 2006, 23:24 pm



Título: AYUDA CON ACCESS
Publicado por: CARRY-ON en 19 Octubre 2006, 23:24 pm
Necesito sumar los atos de una tabla y que los muestre en  un texbox  quiero sumar los datos del texbox cantidad para que me vaya dando el stock de los productos como lo puedo hacer me dijieron que con una consulta sql pero nose como :huh:


Título: Re: AYUDA CON ACCESS
Publicado por: CeLaYa en 20 Octubre 2006, 02:10 am
puedes hacer una consulta sql como esta


SELECT SUM(<Campo númerico>)
FROM <Tabla>
WHERE <condicion>


Título: Re: AYUDA CON ACCESS
Publicado por: CARRY-ON en 20 Octubre 2006, 23:07 pm
en que parte hago esa colsulta y como hago para que me muestre el valor de la suma en un texbox


Título: Re: AYUDA CON ACCESS
Publicado por: CeLaYa en 20 Octubre 2006, 23:27 pm
esto lo pones al momento de hacer la consulta a la base de datos, por qjemplo si tienes un commandButton con el que quieres hacer la suma pones


private sub command1_click()

    dim BD as Database ' Declaras las variables de acceso
    dim Tb as Recordset ' a la base de datos

    ' Abres la BD
    set BD = workspaces(0).Opendatabase("path y nombre de la BD")
   ' Abres la tabla con una consulta SQL que te hace la suma del campo que quieres
   set tb = bd.openrecordset("SELECT SUM(Campo) " & _
                                          "FROM Tabla " & _
                                          "WHERE X = Y;")
   'Pones el resultado en el textBox
   text1.text = format(tb.Field(0), "$ ###,###.#0")

   'Cierras la BD
   Tb.close
   BD.close
   
  'Liberas memoris
  set tb = nothing
  set BD = nothing



end sub