Recordser - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Recordser

Rafael Lino
não registrado

ENUNCIADA !

Postada em 31/08/2009 08:36 hs

Galera estou com esta situação.
Quero gravar vários 0 e 1 em 14 linhas da minha tabela, se o checkebox estiver marcado ou não. Teria alguma forma de eu caminhar na minha tabela fazendo um Update destes valores neste código aí...  Valeus Aguardo

If opt_Simplificada Then
                For i = 0 To 14
                        If frm_CadAPRSimples.chk_Risco(i).Value = vbChecked Then
                            VetorTabRisco(i) = 1
                        Else
                            VetorTabRisco(i) = 0
                        End If
                            .CommandText = "UPDATE TabRisco SET " & _
                                "Risco = " & VetorTabRisco(i) & " " & _
                                "WHERE (CodAPR = " & vcbo_CodAPR & ");"
                            .Execute

                        If frm_CadAPRSimples.chk_Medida(i).Value = vbChecked Then
                            VetorTabMedida(i) = 1
                        Else
                            VetorTabMedida(i) = 0
                        End If
                            .CommandText = "UPDATE TabMedida SET " & _
                                "Medida = " & VetorTabMedida(i) & " " & _
                                "WHERE CodAPR = " & vcbo_CodAPR & ";"
                            .Execute
               Next i

Rafael Lino
não registrado

ENUNCIADA !

Postada em 31/08/2009 10:29 hs

         Dim CodRisco, CodMedida, Cont As Integer
        Cont = 0
                If opt_Simplificada Then
                    For i = 0 To 14
                        If frm_CadAPRSimples.chk_Risco(i).Value = vbChecked Then
                            VetorTabRisco(i) = 1
                        Else
                            VetorTabRisco(i) = 0
                        End If
                            .CommandText = "SELECT MIN(CodRisco)From TabRisco " & _
                                            "WHERE (CodAPR = " & vcbo_CodAPR & ") ORDER BY MIN(CodRisco)"
                            Set result = .Execute()

                            If Not result.EOF Then
                                CodRisco = result.Fields.Item(0).Value + Cont
                            End If

                            .CommandText = "UPDATE TabRisco SET " & _
                                "Risco = " & VetorTabRisco(i) & " " & _
                                "WHERE (CodAPR = " & vcbo_CodAPR & ") and (CodRisco = " & CodRisco & ");"
                            .Execute

                        If frm_CadAPRSimples.chk_Medida(i).Value = vbChecked Then
                            VetorTabMedida(i) = 1
                        Else
                            VetorTabMedida(i) = 0
                        End If

                            .CommandText = "SELECT MIN(CodMedida)From TabMedida " & _
                                            "WHERE (CodAPR = " & vcbo_CodAPR & ") ORDER BY MIN(CodMedida)"
                            Set result = .Execute()

                            If Not result.EOF Then
                                CodMedida = result.Fields.Item(0).Value + Cont
                            End If

                            .CommandText = "UPDATE TabMedida SET " & _
                                "Medida = " & VetorTabMedida(i) & " " & _
                                "WHERE (CodAPR = " & vcbo_CodAPR & ") and (CodMedida = " & CodMedida & ");"
                            .Execute

                            Cont = Cont + 1
                    Next i
                End If

Galera tá resolvido, um migo meu foda em progamação C++ me deu umas dicas, aí implementei desta forma, se alguém souber uma forma de reduzir este código, favor poste aqui.... Agradeço... Rafael Lino

Ash Katchup

CAXIAS DO SUL
RS - BRASIL

ENUNCIADA !

Postada em 31/08/2009 10:47 hs

Cara, poderia explicar melhor?
Vc tem que dar update em todos baseado em um checkbox ou o checkbox é por registro?

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )

Página(s): 1/1

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

VOLTAR