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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Problemásso com datas
Mr
CONTAGEM
MG - BRASIL
Postada em 31/05/2005 18:16 hs         
Senhores, estou com problemasso...
Fiz um aplicativo simples, mas cheio de coisinhas como foi me pedido, mas ele trabalha demais com datas e, apesar de não estar reportando erros, muitas vezes ele não funciona corretamente. Eu sei que isso é um erro de lógica, mas essa lógica é bem complicada.
O programa deve observar a hora para ver como listar os contratantes e ainda listar um quadro de reserva, como mostra abaixo. O grande problema é que ele está instalado em três máquinas e parece que cada uma trabalha de um jeito diferente. No pc que eu programei, esta tudo ok! Tudo funciona. Nos outros, um mostra contratantes, outro não. O que pode ser? como usar o método de datas em access corretamente pra ficar igual pra todos os sistemas? O código está abaixo:
 
 
vardata1 = Format(Date, "mm/dd/yyyy")
 
List1.Clear
List2.Clear
List3.Clear
Text1.Text = Empty
Text2.Text = Empty
Text3.Text = Empty
Text4.Text = Empty
Text5.Text = Empty
Text6.Text = Empty
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\servidor253ancocontratante.mdb;Jet OLEDB:Database ;"
rs.Open "select * from contratante where contratante.situacao = '1' and contratante.disponivel = 1 and ( data = #" & vardata1 & "# or data1 = #" & vardata1 & "# )", cnn, adOpenStatic, adLockOptimistic
ei:
If Not rs.EOF Then
List3.AddItem rs!nome
rs.MoveNext
GoTo ei
End If
rs.Close
rs.Open "select * from contratante where contratante.situacao = '0' and contratante.disponivel = 1 and ( data = #" & vardata1 & "# or data1 = #" & vardata1 & "# )", cnn, adOpenStatic, adLockOptimistic
If Time < "11:01" Then
Label2.Caption = "Solicitante de " & WeekdayName(Weekday(vardata1))
eu:
If Not rs.EOF Then
List1.AddItem rs!nome
rs.MoveNext
GoTo eu
End If
Else
eu1:
If Not rs.EOF Then
List3.AddItem rs!nome
rs.MoveNext
GoTo eu1
End If
vardata1 = vardata1 + 1
rs.Close
Label2.Caption = "Solicitante de " & WeekdayName(Weekday(vardata1))
rs.Open "select * from contratante where contratante.situacao = '0' and contratante.disponivel = 1 and ( data = #" & vardata1 & "# or data1 = #" & vardata1 & "# )", cnn, adOpenStatic, adLockOptimistic
eu2:
If Not rs.EOF Then
List1.AddItem rs!nome
rs.MoveNext
GoTo eu2
End If
End If
rs.Close
End Sub
Este é o form load, se alguem puder me ajudar, eu agradeço.
     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 01/06/2005 10:25 hs            
MR,
 
Veja se no micro do cliente (que nao funciona) ele esta com o Country correto (igual ao seu) pois se o formato da data estiver diferente ele vai fazer zona. Veja se o seu formato é dd/mm/yyyy e coloque no cliente o mesmo.

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
   
andy.garcia
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/06/2005 10:25 hs            
Caro amigo Mr ...
 
Enfrentei esse problema também com datas e depois de muito alterar meu código,
percebi que o erro não éra meu ... ! e sim das configurações regionais de datas do Painel de controle do meu Windows.
 
Pelo que perecebi vc trabalha na aplicação com Format(Date, "mm/dd/yyyy")
Se tudo fucniona na sua máquina normalmente, significa que não é erro no código,
verifique a configuração regional das outras máquinas e veja se a data esta no formato "mm/dd/yyyy".
 
ok.
Abraço
Andy.Garcia
   
Página(s): 1/1    


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