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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Gravar dados do GRID com dia/mês/ano.
fjralberto
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 10/06/2008 09:02 hs            
Treze... então... ficou legal! Pq agora ele grifa com uma cor na edição! De uma certa forma como vc viu no projeto que te mandei, as células do grid já estavam editadas... na verdade o que eu estou querendo é armazenas os dados digitados (vide assunto do tópico) no banco de dados, o que tem que ser feito é o seguinte!

- os dados devem ser armazenados em uma tabela chamada TIME;
- nesta tabela existe quatro campos 1º - ID_PROF  |  2º - ID_DEMANDA  |  3º - DT_LANCAM  |  4º - QTD_HORAS;
- como vc pode ver no programa que te mandei, (que vc tem me ajudado muito), a gente primeiro escolhe o Nome do profissional, depois o Mês/Ano e em seguida a Demanda;
- quando o usuário escolher esses dados, ele irá adicionar uma linha, e automaticamente o ID da demanda será adicionada a primeira coluna do grid, aí o usuário irá dentro dos dias gerados no grid digitar as horas trabalhadas naquele dia, só que ele irá digitar em decimal! Por exemplo: 8,5 equivale a 8 horas e 30 min., e assim por diante! Até aí beleza!
- caso o usuário trabalhou em uma outra demanda nesse mês irá escolher outra demanda na combo e em seguida irá adicionar uma nova linha, e preencherá com as horas trabalhadas no  dia em que ele trabalhou,..... e assim por diante!

O problema está em gravar tudo isso na base de dados!
Uma vez que os dados deverão ser gravados separadamente, tipo assim, vamos imaginar que o usuário no mês inteiro trabalhou em uma demanda, ok, ele irá inserir essa demanda em uma linha do mes de janeiro e nos 31 dias irá digitar 8 horas por dia, quando a gente for gravar isso, em nossa tabela TIME deve existir 31 registros feitos (apenas para os campos que foram digitados, os que não possuem registro, devem ser ignorados para gravação) com os seguintes dados , ID do PROF | ID da DEMANDA |  DT LANCAM (dia/mes/ano, que ele trabalhou na demanda, para isso, o sistema deverá reconhecer o dia da coluna digitada e o mês e ano escolhidos na comboMes) |  QTD_HORAS (que é a quantidade de horas que ele inseriu naquele campo).


obs: além desses campos serem gravados, a combo do mes deverá consulta-los também para caso existe uma alteração feita!

rs... ufa! É só isso!


Amigo! Obrigado!

Alberto

"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
TÓPICO EDITADO
 
fjralberto
SANTO ANDRÉ
SP - BRASIL
Postada em 10/06/2008 10:31 hs            
Olá amigo TREZE!.. vc acha que consegue me ajudar nisso?

Alberto

"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 10/06/2008 10:37 hs            
Já estou fazendo,as modificações e logo posto o resultado!
     
fjralberto
SANTO ANDRÉ
SP - BRASIL
Postada em 10/06/2008 10:45 hs            
Muito obrigado!... um grande abraço!

Eu acredito que teremos que fazer como se fosse um carregamento de matriz...


for L...(linha)
   for C (coluna)

estou tentando fazer assim... dando nomes para as células geradas e jogando um laço duplo como a cima mencionado!

Abraços!

Alberto

"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
     
fjralberto
SANTO ANDRÉ
SP - BRASIL
Postada em 10/06/2008 17:22 hs            
rs... por favor alguém me ajude! o TREZE desistiu de mim!  rs... uma luz,,,




Bom eu estou fazendo mais ou menos assim... e estou tentando relacionar os campos dias do grif com um case... não sei se dará certo!

For L = 0 To Grid.Rows - 1
  For C = 0 To Grid.Cols - 1
        If Grid.TextMatrix(L, C) = "" Then
        'Grid.TextMatrix(L, C) = 0
        'Não faça nada
        Else
                        
                        Select Case dia
                        Case 1
                        valor_dia_mes = "1" & cboMes.Text
                        Case 2
                        valor_dia_mes = "2" & cboMes.Text
                        Case 3
                        valor_dia_mes = "3" & cboMes.Text
                        End Select
                        
                        
                If Grid.TextMatrix(0, 2) = "1" Then
                        'valor = Grid.TextMatrix(L, C).Text

  ' e assim por diante!
                  
                        'salvar_sql = "INSERT INTO TAB_TIME (ID_PROF, ID_DEMANDA, DT_LANCAM, QTD_HORAS) VALUES ('&ID_PROF&'), ('&Grid.TextMatrix(L,1)&'), ('Grid.TextMatrix(L, C)') ;"
                        
                        

                End If
        End If
Next C
Next L

Alberto

"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 10/06/2008 18:06 hs            
é quase isto sua função insert está errada mas tudo bem já achei a solução só falta algumas formatações, e pronto
 
   
Página(s): 2/4     « ANTERIOR    PRÓXIMA »

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