USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como jogar dados dentro do dbgrid
Lorde Rayden
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 27/05/2004 17:20 hs            
boa tarde a todos, eu to com o seguinte problema, dentro do meu Form, eu tenho um dbgrid, e preciso fazer ele, um botão se interagirem da seguinte forma:
 
apertando o botão, ele deve jogar dentro do dbgrid, uma porcentagem, soh q eu naum consigo fazer issu, a porcentagem ela é colocada em outro form, e ela deve ser jogada em cima do produto q também e jogado em outro form, e distribuido por loja, masi ou menos assim
 
 
                             produto
¨¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
                     xp    pp      p      m      g       total
                    100   100    100   100    100    500
¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
lojas            I                   distribuição
¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
loja 1           I  10        20    30   50    40      150
loja 2           I  50       70     60   20    10      210
loja 3           I  40       10     10   30    50      160
¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
 
issu é como deve ficar depois de q se aperte o botaum do qual falei
 
a porcentagem jah foi cadastrada antes no caso foi de:
loja 1   10%
loja 2   50%
loja 3   40%
 
será q tem como, por favor me ajudem eu imploro
 
Lorde Rayden

Emoções Lorde Rayden Emoções
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 01/06/2004 17:11 hs         

Set con = New ADODB.Connection

With con

    .Provider = "Microsoft.Jet.Oledb.4.0"

    .CursorLocation = adUseClient

    .Open App.Path & "anco.mdb"

End With

       

Set tb1 = New ADODB.Recordset

   

strSql = "SELECT Lojas.Loja,Produtos.[Nome Produto],Produtos.Quantidade as [Quantidade Total Produto],Sum (([Quantidade Produto]/Quantidade)*100) AS [Porcentagem do Produto na Loja] " _

        & "FROM Lojas,Produtos " _

        & "WHERE (Lojas.[codigo produto] = produtos.codigo) " _

        & "GROUP BY Lojas.Loja,Produtos.[Nome Produto],Produtos.Codigo,Produtos.Quantidade " _

        & "ORDER BY Produtos.[Nome Produto]"

   

tb1.Open strSql, con

 

Set DataGrid1.DataSource = tb1

DataGrid1.Refresh

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página