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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como fazer esta SELECT
Tbs
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/03/2005 00:13 hs            
          
TEnte Assim:

rstResumo.Open "SELECT tblCartaoGrid.*, (SELECT (tb.Valor / tb.NrResumo) FROM tblCartaoGrid as tb) AS Parcela from tblCartaoGrid", cnnCartao, adOpenKeyset, adLockPessimistic, adCmdText

Para adicionar 30 dias:
Dateadd(day, sua_data, 30)
   
ATS
OURINHOS
SP - BRASIL
ENUNCIADA !
Postada em 19/03/2005 14:55 hs            
Esta colocando o valor no datagrid mas mostra apenas um registro como faço para que se a venda for em 3 parcelas o grid me mostre 3 registros como mencionei no post acima.
Será que tem como fazer isso, transformar um registro em tres (conforme o nr. de parcelas) e mostrar no grid. Sera que é deste jeito mesmo ou tem outro jeito de se fazer isso.
   
Tbs
não registrado
ENUNCIADA !
Postada em 20/03/2005 00:17 hs   
Dá pra fazer isso sim!! mas vc vai ter que fazer o seguinte:
     Crie uma tabela chamada tbParcela. Essa tabela precisa ter apenas um campo chamado parcela (este campo representará o numero da parcela).
 
 Create table tbParcela
( Parcela int primary key)
 
Insira alguns valore, tipo:
Insert into tbparcela (parcela) values (1)
Insert into tbparcela (parcela) values (2)
Insert into tbparcela (parcela) values (3)
Insert into tbparcela (parcela) values (n...)
 
Agora faça o seu select mais ou menos assim:
 
Select 
  tbcartao.data
, tbcartao.NrResumo
, tbparcela.parcela
, (tbcartao.valor / tbcartao.NrParcelas) as Valor
, dateadd(day, tbcartao.data , ((tbparcela.parcela -1) * 30) ) as DataPagamento
 from tbcartao, tbparcela
 where tbparcela.parcela < tbcartao.NrParcela
 
Espero ter ajudado, caso não de certo ou não entenda avise!!
[]´s
Tbs

   
ATS
OURINHOS
SP - BRASIL
ENUNCIADA !
Postada em 21/03/2005 09:22 hs            
Baseado no seu exemplo fiz desta forma:

rstResumo.Open "Select tblCartaoGrid.Data, tblCartaoGrid.NrResumo, tblParcela.parcela " _
& "(tblCartaoGrid.valor / tblCartaoGrid.NrParcelas) as Valor, dateadd(day, tblCartaoGrid.data , " _
& "((tblParcela.Parcela -1) * 30) ) as DataPagamento from tblCartaoGrid, tblParcela " _
& "where tblParcela.Parcela < tblCartaoGrid.NrParcela", cnnCartao, adOpenKeyset, adLockPessimistic, adCmdText

E deu a seguinte mesagem de erro:

Função 'tblParcela.Parcela' indefinida na expressão.

Obs.: Os nomes das tabelas e dos campos estão corretos.
   
Tbs
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/03/2005 10:06 hs            
Desculpe, inverti os parametros da função:
dateadd(day, ((tblParcela.Parcela -1) * 30) , tblCartaoGrid.data )
   
Tbs
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/03/2005 10:11 hs            
Desculpe, inverti os parametros da função:
dateadd(day, ((tblParcela.Parcela -1) * 30) , tblCartaoGrid.data )
   
Página(s): 3/4     « ANTERIOR    PRÓXIMA »


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