registro de hora y fecha

[kyutvillan]

Hola, estoy haciendo un apartado de noticias, al crear la tabla en la base de datos sql server, escogi el campo fecha_publicacion de tipo "datetime" y en visual basic, la funcion que registra la noticia tambien tiene el campo fecha_publicacion as DateTime.

Pero cuando publico una noticia me registra la fecha perfectamente pero la hora me sale 12:00 am, y no se como hacer para q me capture la hora y me la muestre correctamente.

Espero atenta una pronta solucion

[Aquaventus]

Hola kyutvillan, por favor muestranos tu código para ver el error que cometes. Saludos!.

[kyutvillan]

Protected Sub btn_pub_noti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_pub_noti.Click

'Parametros del formulario noticias
Dim nomnoticia As String = txt_nomnoticia.Text
Dim fechapub As DateTime = DateTime.Now
Dim descrip As String = txt_desc.Text

'Try para validar si la noticia no esta repetida
Dim even As New publican()

Try
Dim validanoti As Boolean = even.validanoti(nomnoticia)
If validanoti = False Then
'No es valido el nombre y el lbl_confirma muestra el mensaje
lbl_confirma.Text = "Ya existe una noticia con ese nombre"

Else
even.RegisNoticia(nomnoticia, fechapub, descrip)
lbl_confirma.Text = "La noticia se registró con exito."

End If
Catch ex As Exception
lbl_confirma.Text = "Error..." + ex.ToString()

End Try

Dim fecha_actual As DateTime = DateTime.Now

txt_nomnoticia.Text = ""
txt_desc.Text = ""
End Sub
End Class

End Namespace

[kyutvillan]

Y con esto registro la noticia:


Public Class publican
Dim dcev As New publicaDataContext()
Public Sub New()

End Sub

'funcion que registra la noticia en la BD
Public Function RegisNoticia(ByVal nomnoticia As String, ByVal fecha_publica As DateTime, ByVal desc_noticia As String) As Integer
Dim noti As New Noticia

'registras campos a llenar
noti.nombre_noticia = nomnoticia
noti.fecha_publicacion = fecha_publica
noti.desc_noticia = desc_noticia

dcev.Noticia.InsertOnSubmit(noti)
dcev.SubmitChanges()

Dim idnots = From u In dcev.Noticia Where u.nombre_noticia = nomnoticia Select u.id_noticia
Return idnots.Single()

End Function

Public Function validanoti(ByVal nomnoticia As String) As Boolean
'despues de registrar la noticia
Dim idnots = From u In dcev.Noticia Where u.nombre_noticia = nomnoticia Select u.id_noticia

'********************************
'validar que no hay duplicados de nombre de noticia en la BD
If idnots.Count() > 0 Then
Return False 'el nombre noticia es valido
Else
Return True 'El nombre noticia no es valido
End If
'*******************************
End Function

[drako_darpan]

Hola que tal, bueno en SQL puedes usar esto:

SELECT DATEPART( hh,GETDATE() ) -- Hora
SELECT DATEPART( mi,GETDATE() ) -- Minuto
SELECT DATEPART( ss,GETDATE() ) -- Segundo

Asi puedes obtener la hora del server, seria cuestion que tu recibas esos campos y armes la cadena.