registro de hora y fecha

[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