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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Dica de como montar meu FORM,com CHECKBOX "URGENTE
Armando Gioia
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 28/04/2006 11:29 hs            
If MsgBox("Deseja Realmente Liberar os Produtos?", 36, "Atenção") = 6 Then
If ListView1.ListItems.Count > 0 Then
        Dim X As Integer
        X = ListView1.ListItems.Count
        While X > 0
            If ListView1.ListItems.Item(X).Checked Then
            axsql = "update produtos set bloqueado='" & 1 & "'
            con.Execute axsql
            ListView1.ListItems.Remove (X)
            End If
            X = X - 1
        Wend
    End If
End If
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 28/04/2006 11:36 hs            
Perae... vc falou q queria pegar somente os registros em que o cheque não fosse compensado, vc agora tá falando q quer todos os registros da tabela...
 
"Entao Ghost, mas eu quero que apareça somente os cheques q nao foram compensados,..."
 
Olha se vc quiser tds os registros não precisa disso: "compensado = false".
 
Em relação ao campo favorecido, supondo q seja uma para cada cheque:
 
cheque    valor    favorecido
1000        100     Pedro
1000        200     Pedro
 
Da forma acima vc muda a sql para
 
Select cheque,sum(valor),Favorecido from cheque WHERE compensado=False Group by cheque,Favorecido
 
Para alterar a tabela vc pode usar o update mas como vc vai ter q usar sql mesmo pois o seu listview não é conectado com o data control então acho melhor usar o execute.
DIM BD AS DATABASE
 
SET BD = WORKSPACES(0).opendatabase(data1.databasename)
 
BD.EXECUTE "UPDATE CHEQUE SET compensado = true where cheque = " & listview.SelectedItem
 
Se o seu campo "CHEQUE" for do tipo texto então coloca aspas simples:
 
BD.EXECUTE "UPDATE CHEQUE SET compensado = true where cheque = '" & listview.SelectedItem & "'"
 
entendeu??
 
qq dúvida é só postar
 
t+
 
TÓPICO EDITADO
   
Neves
não registrado
Postada em 28/04/2006 11:53 hs   
entao bichao, vc entendeu errado ou eu me expressei errado, eu quero somente os cheques q nao foram compensados, mas quero todos os dados dos registros!!
Entendeu?!!?
Agora para alterar a tabela dizendo q o cheque foi compensado, usando esta rotina q vc passou, ele vai entender q o checkbox estando checado, é pra alterar a tabela pra compensado!?!?
 
abraços
valeu
     
Neves
não registrado
Postada em 28/04/2006 11:55 hs   
Armando,
 
a rotina que vc passou é pra alterar ne?!!?
Mas usando o modo ADO né?!?!?
 
Abraços
     
Armando Gioia
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 28/04/2006 13:20 hs            
isso... mais batasta vc trocar por tal o que esta em vermelho
 
If MsgBox("Deseja Realmente Liberar os Produtos?", 36, "Atenção") = 6 Then
If ListView1.ListItems.Count > 0 Then
        Dim X As Integer
        X = ListView1.ListItems.Count
        While X > 0
            If ListView1.ListItems.Item(X).Checked Then
            axsql = "update produtos set bloqueado='" & 1 & "'
            con.Execute axsql

            ListView1.ListItems.Remove (X)
            End If
            X = X - 1
        Wend
    End If
End If
 
deste motor vc pode chegar 15 registros e clicar uma fez só.. ele atualiza todos de uma fez...
     
Neves
não registrado
Postada em 28/04/2006 13:38 hs   
Mas armando oq faz aquelas linhas que estao em vermelho para que eu possa modificar do modo q eu fiz!?!?!?
Outra coisa, pq ele so atualiza 15 registros e nao mais que 15, pq talvez caia mais que 15 cheques na conta ai nao tem como o usuario "dar baixa" em todos de uma vez?!!?
 
abraços
t+
     
Página(s): 6/10     « ANTERIOR    PRÓXIMA »

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