Sugestão - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Sugestão

Edinho tattoo

SANTO ANDRÉ
11 - BRASIL

Postada em 19/10/2005 00:10 hs

Olá pessoal! Eu selecionei uma coluna de uma tabela que contém apenas valores moeda, e fiz uma rotina para somar os valores e apresenta-los em um textBox. Esta funcionando perfeitamente quando coloco ou retiro itens no banco de dados.

Gostaria de saber se esta rotina esta segura, ou pode ser melhorada. Agradeço antecipadamente pelas opiniões!

O script esta deste modo:

Data3.RecordSource = "SELECT [PrecoTotal] FROM ProdutosTemp"

Dim Caixa As Double

Data3.Refresh
Data3.Recordset.Move F i r st

While Not Data3.Recordset.EOF
Caixa = Caixa + Data3.Recordset.Fields(0)
Data3.Recordset.MoveNext
Wend

Text6.Text = Format(Caixa, "Currency")

Qualquer opinião para melhorar esta rotina é bém vinda.

TÓPICO EDITADO

VACA

LIMEIRA
SP - BRASIL

Postada em 19/10/2005 06:44 hs

vc pode fazer o seguinte:
"SELECT sum [PrecoTotal] as soma FROM ProdutosTemp"
e jogar o Data3.Recordset.Fields(0) direto no textbox, ou se vc naum gostar disso pelo menos antes de caixa= caixa + data3... pelo menos zera a variavel caixa

"Quando estou fraco, aí então é que sou Poderoso"

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 19/10/2005 15:05 hs

Amigo...

Minha primeira sugestão é vc deixar de usar o DATA...

Depois, troca o loop q vc faz no recordset por um select com SUM, semelhante ao que o VACA colou acima...

Vc vai ver como fica mto mais rapido pra executar...

Qto a segurança... eu jamais usaria um controle DATA na aplicação... são pesados, inflexiveis e quase sempre dao problemas... pesquise sobre ADO na internet...

Flw!

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR