Ver Mensaje Individual
  #4 (permalink)  
Antiguo 10/11/2011, 13:34
vilfrack
 
Fecha de Ingreso: junio-2009
Mensajes: 15
Antigüedad: 14 años, 11 meses
Puntos: 1
Respuesta: Hacer una suma sql en una misma tabla

Gracias por responder.

Mi primera pregunta seria como almacenar el campo en una variable? considero que esa solución es la mas fácil ya que puedo hacer la suma y el resultado lo agrego a total.

y con respecto a la sentencia sum(), así es como lo estoy haciendo.

este es el codigo

**********************aqui lo que hago es agregar los registro***************
Try
Dim Query As String = "INSERT INTO Entrada(CodigoMaterial,Marca,Modelo,Color,Cantidad )VALUES ('" & TXTCodigo.Text & "','" & TXTMarca.Text & "','" & TXTModelo.Text & "','" & TXTColor.Text & "','" & TXTCantidad.Text & "')"
Dim cmd As New SqlClient.SqlCommand(Query, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
Dim Scantidad As Integer = CInt(TXTCantidad.Text)
NuevoAlmacen()
mostrar()
MsgBox("REGISTRO AGREGADO SATIFACTORIAMENTE")
Catch ex As Exception
MsgBox("EL CAMPO CODGIO DEL INVENTARIO ESTA REPETIDO, INTENTE CON OTRO")
cn.Close()
End Try
cn.Close()
**********el sub nuevo almacen lo que hace es agregar unos campos a otra tabla y hacer la suma*************
Sub NuevoAlmacen()

Dim Update As String = "INSERT INTO Almacen(CodigoMaterial,Cantidad)VALUES('" & TXTCodigo.Text & "','" & TXTCantidad.Text & "')"
Dim cmd As New SqlClient.SqlCommand(Update, cn)
cn.Open()
cmd.ExecuteNonQuery()


Dim Update1 As String = "SELECT sum(Total + Cantidad) FROM Almacen"

Dim cm As New SqlClient.SqlCommand(Update1, cn)
cm.ExecuteNonQuery()
cn.Close()



End Sub

***********************