none
Fecha hora servidor Sql server RRS feed

  • Pregunta

  • Buen día y gracias de antemano por vuestra atención.

    Quiero mostrar en un texbox la fecha y hora del servidor SQL Server. He realizado una Función dentro de una clase:

    Public Function fMostrarfecha() As DataTable
            Try
                'aqui heredo funcion conectar() que esta dentro de la clase Conexion
                conectar()
                cmd = New SqlCommand("CP_IAAS_Mostrar_FechaHoraServer")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = cn 'cn:coneccion que ya esta abierta

                If cmd.ExecuteNonQuery Then 'si la consulta trae datos
                    Dim dt As New DataTable
                    Dim da As New SqlDataAdapter(cmd)
                    da.Fill(dt)
                    Return dt
                Else
                    Return Nothing
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
                Return Nothing
            Finally
                Desconectado()
            End Try
        End Function

    --No se si tengo cosas demás en la función. Ahora dentro de mi formulario tengo:

    Sub FechaHoraHoy()
            Try
                Dim func As New MostrarPauta 'heredamos todo lo que esta en la clase MostrarPauta
                dt = func.fMostrarfecha
                If dt.Rows.Count <> 0 Then
                    TxtFecHoy.Text = dt  --Aqui me dice que no se puede convertir a String
                    TxtFecHoy.DataBind()
                Else
                    TxtFecHoy.Text = Nothing
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

    lunes, 3 de octubre de 2016 14:19

Respuestas

Todas las respuestas

  • vitoy.46,

    En realidad no requieres devolver un objeto de tipo DataTable:

    Public Function fMostrarfecha() As DateTime
    	Try
    		Using cn As New SqlConnection("<Colocar cadena de conexión>")
    
    			Dim cmd As New SqlCommand("CP_IAAS_Mostrar_FechaHoraServer", cn)
    			cmd.CommandType = CommandType.StoredProcedure
    
    			Return Convert.ToDateTime(cmd.ExecuteScalar)
    		End Using
    	Catch ex As Exception
    		'Error
    	End Try
    End Function
    
    Sub FechaHoraHoy()	
    	'Recuperar valor de fecha
    	TxtFecHoy.Text = fMostrarfecha().ToString
    	TxtFecHoy.DataBind()
    End Sub



    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.

    lunes, 3 de octubre de 2016 16:27
  • Muchas gracias nuevamente Williams
    • Marcado como respuesta vitoy.46 lunes, 3 de octubre de 2016 18:09
    • Editado vitoy.46 lunes, 3 de octubre de 2016 18:10
    lunes, 3 de octubre de 2016 18:08