Datagrid VB6

[Guest --Eduardo --]

olá. Estou com um problemão. estou aprendendo VB6, e no desenvolvimento de um sisteminha d contas a pagar encalhei.

veja só:

tenho um form com um controle Datagrid onde tenho uma coluna "valor" q quero somar. os dados são obtidos através de um Adodc.

quero somar a coluna Valor e mostrar numa textBox, e que ela se atualize toda vez q um novo valor for inserido. Já tentei várias formulas e nada! nem com reza braba e macumba o breguete funciona.

Me ajude Please!

Obrigado

[kuroi]

recomendo q em vez de usar o controle adodc, você declare um recordset e use ele.

pra somar, você pode fazer uma consulta separada (num recordset ou em outro adodc), q faria a soma tipo assim:

Select Sum(Campo) As Soma From Tabela

caso a consulta q esteja no grid tenha um filtro, é só adicionar o mesmo filtro ai tb.

ai pra atualizar a cada insercao, você teria q executar a consulta de novo.

[Guest --Eduardo --]

recomendo q em vez de usar o controle adodc, você declare um recordset e use ele.

pra somar, você pode fazer uma consulta separada (num recordset ou em outro adodc), q faria a soma tipo assim:

Select Sum(Campo) As Soma From Tabela

caso a consulta q esteja no grid tenha um filtro, é só adicionar o mesmo filtro ai tb.

ai pra atualizar a cada insercao, você teria q executar a consulta de novo.

você pode me dar um exemplo melhor, rsrsrsr é a não entendi direito, sou muito leigo ainda em vb, você pode fazer o código exempplo?

o bd despesas, a tabela é saidas, e o campo é valor.

vlw

[Guest --Eduardo --]

VEJA SÓ, ARRANJEI ESTE CÓDIGO

Private Sub form_Load()

Dim soma As Single

Dim rs As Recordset

'so para se previnir

On Error GoTo trata_erro

Set rs = Data1.Recordset.Clone

'rotina para somar a coluna escolhida(valor)

Do Until rs.EOF = True

soma = soma + Val(rs(valor))

rs.MoveNext

Loop

pnl = Format(soma, num_formato)

Exit Sub

trata_erro:

MsgBox "Ocorreu um erro durante o processamento, verifique ! "

End Sub

SÓ Q QUANDO RODO ELE DÁ UM ERRO: O ITEM NÃO PODE SER ENCONTRADO NA COLEÇÃO CORRESPONDENTE AO NOME OU AO ORDINAL SOLICITADO.

E AÍ?

O Q você ACHA?

[Moonfall]

esta faltando 1 select na base de dados e abrir a base de dados se não ele não ira achar nada mesmo..

dim select as string

select = "Select * from saidas"

'não esqueca de abrir a conexcao : 
'con.Open (Adodc1.ConnectionString)
'não sei como é a conexcao q você esta fazendo dei 1 exemplo.

rs.open select

obs não sei se rs = data1.recordset.close funciona + tenta ai qualquer coisa use: Set rs = New ADODB.Recordset depois de abrir a conexcao e fazer o select continue:

Do Until rs.EOF = True

soma = soma + Val(rs(valor))
rs.MoveNext
Loop
pnl = Format(soma, num_formato)
Exit Sub

qualquer coisa posta ae t+

[Guest --Eduardo --]

agora sim consegui. vlw brother.

[Eduardo Moreira]

Olá pessoal

Preciso urgente de uma resposta

Sou iniciante em VB6 e tenho um programa para desenvolver.

já atualizei o datagrid como está no código abaixo

Adodcrrc.CommandType = adCmdText

Adodcrrc.RecordSource = "select material, quantidade, codigoorçamento, valor, subtotal from rrc where RRC like'" & (txtrrc.Text) & "%'"

Adodcrrc.Refresh

dgrrrc.Refresh

agora preciso digitar os campos valores no proprio datagrid e quero q ele calcule o subtotal (multiplique a quantidade de cada linha pelo valor correspodente da linha) e atualiza o campo subtotal (imagine uma planilha de excel com colunas A B e C tenho A vou digitar B e quero q ele calcule C. Depois quero somar tudo em um txtbox ou label.

Como faz isso

Me mandem um exemplo

meu e-mail edumladeira@yahoo.com.br

grato