Gravar data e hora

[PRSolucaoWeb 0]

Bom dia

 

Não sei o que aconteceu que do nada começou a dar erro, estava funcionando certinho.

Tenho o campo DATA_ABERTURA tipo DATE e HORA_ABERTURA tipo DATETIME, isso é no banco de dados SQL SERVER 2008.

Eu gravo da seguinte maneira:

 

Function Fun_Hora(hora_abertura)
hora = hour(now)
minutos = minute(now)
segundos =second(now)
if len(hora) = 1 or hora < 10 or hora = 0 then
hora = "0" + CStr(hora)
end if

if len(minutos) = 1 or minutos < 10 then
minutos = "0" + CStr(minutos)
end if
if len(segundos) = 1 or segundos < 10 then
segundos = "0" + CStr(segundos)
end if
Fun_Hora = CStr(hora) + ":" + CStr(minutos) + ":" + CStr(segundos)
End Function

data_abertura = Date()

Function conv_data(data_abertura)
dia = day(data_abertura)
if len(dia) < 2 then
dia = "0" & dia
end if
mes = month(data_abertura)
if len(mes) < 2 then
mes = "0" & mes
end if
ano = year(data_abertura)
conv_data = dia & "." & mes & "." & ano
End Function
data_abertura = conv_data(data_abertura)

db_conn.execute ("insert into TB_PEDIDO (codigo, data_abertura, num_pedido, aberto_por, razao_social, gerar_of_om) Values('"&codigo&"','"&data_abertura&"','"&Fun_Hora(hora_abertura)&"','"&num_pedido&"','"&aberto_por&"','"&razao_social&"','OF')")

E está dando esse erro:

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07'

[Microsoft][ODBC SQL Server Driver]

Conversion failed when converting date and/or time from character string.

 

Poderiam me ajudar, por favor?

 

Obrigado

[Gilberto Jr 26]

Essa função converte a data e pega a hora.

 

 

function mask_data( obj )
obj = CDAte( obj )
dia = Day( obj  )
mes = Month( obj )
ano = Year( obj )
 
if dia < 10 then
dia = "0" & dia
end if
 
if mes < 10 then
mes = "0" & mes
end if
 
mask_data = ano &"-"& mes &"-"& dia &" "&time
end function

 

https://www.facebook.com/webprogramation

 

Att;

[PRSolucaoWeb 0]

Gilberto

Deu um erro:

 

Tipos incompatíveis: 'CDate'

/sistema_os_atendimento_hcs_v.2.0/hcs/ef_gerar_nova_pedido.asp, linha 61

 

Está gravando no bd, mas da o erro acima.

 

Obrigado

[Gilberto Jr 26]

Como esta o seu insert?

 

https://www.facebook.com/webprogramation

 

Att;

[PRSolucaoWeb 0]

Obrigado Gilberto.

 

Consegui arrumar.

 

Obrigado novamente.