AJUDA COM SELECT
srs,
Estou tentando fazer um select em um banco excel, porém não estou conseguindo.
O que necessito eh abrir a tabela e substituir a hora inteira por apenas os dois primeiros caracteres ex: 14:45:02 necessito que somente apareça na tabela 14...
Estou tentando usar o substring porém sem sucesso até o momento...
[Ô]select ROWCONT, USUARIO, DATAINI, DATAFIM, PROJETO, MATERIAL, HORAINI, substring(HORAINI,1,2) AS [ô]hora[ô] from [relatorio$][Ô]
Alguém tem alguma outra solução ou idéia....
Estou tentando fazer um select em um banco excel, porém não estou conseguindo.
O que necessito eh abrir a tabela e substituir a hora inteira por apenas os dois primeiros caracteres ex: 14:45:02 necessito que somente apareça na tabela 14...
Estou tentando usar o substring porém sem sucesso até o momento...
[Ô]select ROWCONT, USUARIO, DATAINI, DATAFIM, PROJETO, MATERIAL, HORAINI, substring(HORAINI,1,2) AS [ô]hora[ô] from [relatorio$][Ô]
Alguém tem alguma outra solução ou idéia....
Sua tabela, estando configurada para Data/Hora, Tenta assim:
Salve o conteúdo da célula em uma variável, Hora por exemplo:
Fiz este exemplo baseado na hora do windows ok? Se te ajudar, faça as mudanças necessárias.
[txt-color=#0000f0]Private Sub [/txt-color]Command1_ClicK()
Hora = Now
Hora = [txt-color=#0000f0]Hour[/txt-color](Hora)
MsgBox Hora
[txt-color=#0000f0]End Sub[/txt-color]
se isto não te ajudar, tente o [txt-color=#0000f0]Left[/txt-color], Mais u menos assim:
Salve o valor da hora em uma variável qualquer;
Como você disse que o valor retorna um padrão fixo, tipo: 00:00:00, faça:
[txt-color=#0000f0]Dim[/txt-color] Horario [txt-color=#0000f0]as String[/txt-color]
Horario = hora
Horario = [txt-color=#0000f0]Left[/txt-color](Horario, 2)
MsgBox Hora
Espero ter ajudado
Salve o conteúdo da célula em uma variável, Hora por exemplo:
Fiz este exemplo baseado na hora do windows ok? Se te ajudar, faça as mudanças necessárias.
[txt-color=#0000f0]Private Sub [/txt-color]Command1_ClicK()
Hora = Now
Hora = [txt-color=#0000f0]Hour[/txt-color](Hora)
MsgBox Hora
[txt-color=#0000f0]End Sub[/txt-color]
se isto não te ajudar, tente o [txt-color=#0000f0]Left[/txt-color], Mais u menos assim:
Salve o valor da hora em uma variável qualquer;
Como você disse que o valor retorna um padrão fixo, tipo: 00:00:00, faça:
[txt-color=#0000f0]Dim[/txt-color] Horario [txt-color=#0000f0]as String[/txt-color]
Horario = hora
Horario = [txt-color=#0000f0]Left[/txt-color](Horario, 2)
MsgBox Hora
Espero ter ajudado
Tenta assim:
[Ô] Mid(HORAINI,1,2) AS hora [Ô]
[ô]QUALQUER DUVIDA SOBRE VB6
[ô]josias.demelo@gmail.com
Private Sub Command1_Click()
Dim MINHAHORA
MINHAHORA = #2:45:02 PM#
Text1.Text = Format(MINHAHORA, [Ô]h[Ô])
[ô]ISTO SAIRA 14
[ô]AI VC DA O COMANDO SELECT APARTIR DO TEXT1 OU CRIA UMA VARIAVEL
[ô] EX
Dim A As Integer
A = Format(MINHAHORA, [Ô]h[Ô])
End Sub
[ô]josias.demelo@gmail.com
Private Sub Command1_Click()
Dim MINHAHORA
MINHAHORA = #2:45:02 PM#
Text1.Text = Format(MINHAHORA, [Ô]h[Ô])
[ô]ISTO SAIRA 14
[ô]AI VC DA O COMANDO SELECT APARTIR DO TEXT1 OU CRIA UMA VARIAVEL
[ô] EX
Dim A As Integer
A = Format(MINHAHORA, [Ô]h[Ô])
End Sub
select ROWCONT, USUARIO, DATAINI, DATAFIM, PROJETO, MATERIAL, HORAINI, HOUR(HORAINI) AS [ô]hora[ô] from [relatorio$]
Tópico encerrado , respostas não são mais permitidas