GOSTARIA DE SOMAR UM CAMPO EM UMA TABELA
OLA PESSOAl
Tenho uma tabela chamado Pedido e dentro dela tenho um campo chamado Quantidade, gostaria que alguem me fizesse uma instução sql que somasse esse camopo quantidade e me passasse o resultao através de um msgbox ou de um campo.
agradeço desde já
Tenho uma tabela chamado Pedido e dentro dela tenho um campo chamado Quantidade, gostaria que alguem me fizesse uma instução sql que somasse esse camopo quantidade e me passasse o resultao através de um msgbox ou de um campo.
agradeço desde já
kra pq outro topico?
eu respondi sua questão jah!
[/c]
Bom kra, se póde melhora o select colocando +/- assim
SQL="SELECT Sum(Quantidade) As SomadeQuantidade FROM Pedidos WHERE Cliente='Joao'" não sei como vc modelo a tabela mas você pode pegar pedidos por cliente etc...
eu respondi sua questão jah!
[c]Sub ContarQuantidade()
Dim Connection as new ADODB.Connection
Dim Recordset as new ADODB.Recordset
SQL="SELECT Sum(Quantidade) As SomadeQuantidade FROM Pedidos"
Connection.Provider="Mirosoft.Jet.OLEDB.4.0"
Connection.Open app.path & "/database.mdb"
Recordset.open SQL, Connection
if recordset.Bof and Recordset.Eof then
msgbox "nenhum registro encontrado"
if recordset.state=1 recordset.close
set recordset=nothing
exit sub
end if
msgbox "A Quantidade de pedidos é :" & recordset("SomadeQuantidade")
End Sub[/c]
Bom kra, se póde melhora o select colocando +/- assim
SQL="SELECT Sum(Quantidade) As SomadeQuantidade FROM Pedidos WHERE Cliente='Joao'" não sei como vc modelo a tabela mas você pode pegar pedidos por cliente etc...
Mas essa quantidade, vai depender doq? De um valor digitado, textbox?
Se fosse toda tabela quantidade seria
Select * from quantidade
explique melhor, flw ;p
Se fosse toda tabela quantidade seria
Select * from quantidade
explique melhor, flw ;p
Ah SPRITU :P
Vc já sabia oq eli qria :P
Vc já sabia oq eli qria :P
=P, ele fez o mesmo topico praticamente, eu ja havia respondido no outro =P
Dim bd As Database, tblpedido As Recordset
me desculpe por não ter percebido que você já tinha postado minha resposta
SPRITU eu uso o vba no acess e para me conectar as tabelas eu uso esse método
eu colodque o metódo que vc me passou mais não deu certo tinha como vc me passar agorar já que vc ta vendo a minha de código
o nome da tabela e pedido e o campo é quantidade
me desculpe por não ter percebido que você já tinha postado minha resposta
SPRITU eu uso o vba no acess e para me conectar as tabelas eu uso esse método
eu colodque o metódo que vc me passou mais não deu certo tinha como vc me passar agorar já que vc ta vendo a minha de código
o nome da tabela e pedido e o campo é quantidade
Private Sub SQL1_Click()
Dim bd As Database, tblpedido As Recordset
Set bd = CurrentDb
Set tblpedido = bd.OpenRecordset("Pedido", dbOpenDynaset)
end Sub
Private Sub SQL1_Click()
Dim bd As Database, tblpedido As Recordset
Set bd = CurrentDb
Set tblpedido = bd.OpenRecordset("Pedido", dbOpenDynaset)
end Sub
kra pensei que era VB mesmo e nao VBA mas tenta assim
Ps nao sou muito acostumado com VBA!, mas isso deve dar certo
Dim bd As Database, tblpedido As Recordset
Set bd = CurrentDb
Set tblpedido = bd.OpenRecordset("Pedido", dbOpenDynaset)
end Sub
kra pensei que era VB mesmo e nao VBA mas tenta assim
Private Sub SQL1_Click()
Dim bd As Database, tblpedido As New ADODB.Recordset
Set bd = CurrentDb
Set tblpedido = bd.OpenRecordset("Pedido", dbOpenDynaset)
tblpedido.Open "SELECT Sum(Quantidade) As SomadeQuantidade FROM Pedidos", bd
End Sub Ps nao sou muito acostumado com VBA!, mas isso deve dar certo
Tópico encerrado , respostas não são mais permitidas