>_: version

Mostrando las entradas con la etiqueta version. Mostrar todas las entradas

jueves, 14 de noviembre de 2019

version programa

Dim nombre_programa As String = "wsconfig"
Dim version As String = "versión 0.63"
Dim anio As String = ""

Dim anio_creacion As Integer = 2019
If anio_creacion = Now.Year Then
anio = anio_creacion
Else
anio = anio_creacion & "-" & Now.Year
End If

' Fecha de compilación

Dim filepath As String = Assembly.GetExecutingAssembly().Location
Dim dt As DateTime = New FileInfo(filepath).LastWriteTime
'MessageBox.Show(dt.ToString("dddd", New CultureInfo("es-ES")) & " " & dt.ToString("dd-MM-yyyy HH:mm:ss"))
' https://docs.microsoft.com/en-us/dotnet/standard/base-types/how-to-extract-the-day-of-the-week-from-a-specific-date

My.MySettings.Default.timesrun = My.MySettings.Default.timesrun + 1
My.MySettings.Default.Save()

'My.Settings.nexe = 5
'My.Settings.Save()

MessageBox.Show(My.Settings.timesrun)

MessageBox.Show(nombre_programa & Environment.NewLine &
version & " (" & dt.ToString("dddd", New CultureInfo("es-ES")) & " " & dt.ToString("dd-MM-yyyy HH:mm:ss") & ")" & Environment.NewLine &
anio, "", MessageBoxButtons.OK, MessageBoxIcon.None)

jueves, 24 de octubre de 2019

versión sql

SELECT CASE WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) LIKE '8%' THEN 'SQL2000' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) LIKE '9%' THEN 'SQL2005' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '10.0%' THEN 'SQL2008' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '10.5%' THEN 'SQL2008R2' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '11%' THEN 'SQL2012' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '12%' THEN 'SQL2014' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '13%' THEN 'SQL2016' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '14%' THEN 'SQL2017' ELSE 'SQL????' END

jueves, 13 de abril de 2017

version SQL

SELECT @@VERSION