Excelente explicación. Me gustaría hiciese un video de como instalar sql server y apertura de como instalar la herramienta del asistente de mantenimiento. Soy ignorante en el medio. Más tengo un punto de venta con mucha información y sería interesante ver como funcionaría al aplicar lo que indica en el video. Fui afortunado encontrarme con este video.
Gracias por compartir. Conoce algún script para realizar un rebuild para todas las tablas de una base de datos específica en sql server? Ya que no me funciona hacerlo con el plan de mantenimiento de sql, ya que muestra error como si no estuviera instalada esa herramienta. O algún script que decida cuando realizar el rebuild o el reorganize, dependiendo del porcentaje de fragmentación de cada índice?. Espero y me puedan orientar. Gracias.
Gracias por sus videos y enseñanzas, me podría ayudar en código visual basic para bloquear una plantilla colocándole el serial de la PC para que no se pueda utilizar en otro PC mil gracias
Saludos Pablo! Mil disculpas por no responder a tiempo, lo que pasa es que no cuento con este código y lo que haría para dártelo es hacer una busqueda en el internet, lo que tu ya haz hecho.
Encontré este pero no es tan seguro ING. Necesito un código visual basic, para bloquear una plantilla colocándole el serial de la PC... Encontré este pero no es seguro encontre este pero no es tan seguro, si a este se le puede agregar la serie del pc para que solo se pueda utilizar en un solo equivo mil gracias ingeniero...... Gracias Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets("Contar").Range("B1").Value = Sheets("Contar").Range("B1").Value + 1 End Sub Private Sub Workbook_Open() On Error Resume Next Usuario = Environ("USERNAME") Hora = (Now - Int(Now)) * 24 Select Case Hora Case 6 To 12 MsgBox " Buenos días " & Usuario MsgBox "ESTA PLANTILLA ES PROPIEDAD DE *************" MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA " Case 12 To 18 MsgBox " Buenas tardes " & Usuario MsgBox "ESTA PLANTILLA ES PROPIEDAD DE ************" MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA " Case Else MsgBox " Buenas noches " & Usuario MsgBox "ESTA PLANTILLA ES PROPIEDAD DE *************" MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA " On Error Resume Next End Select cuenta = Sheets("Contar").Range("A1") Select Case cuenta Case Is = 10 GoTo bloqueo End Select Application.EnableCancelKey = xlErrorHandler On Error Resume Next Application.DisplayAlerts = False MsgBox "EN BREVE SE LE PEDIRA LA RENOVACION DE LA LICENCIA DE ESTA APLICACION" GoTo Fin ultimoaviso: Application.EnableCancelKey = xlErrorHandler On Error GoTo Ver_Error Application.DisplayAlerts = False licenciauso = InputBox("Introducir la licencia de uso") If licenciauso "********" Then MsgBox "Clave incorrecta; VUELVA A INTRODUCIR LA CLAVE" licenciauso2 = InputBox("licencia de uso 2ª oportunidad") If licenciauso2 "******" Then MsgBox "Clave incorrecta; ULTIMA OPORTUNIDAD PARA INTRODUCIR LA CLAVE, COMUNICARCE CON *****" licenciauso3 = InputBox("licencia de uso 3ª y Ultima oportunidad") If licenciauso3 "********" Then ActiveWorkbook.Close End If End If End If GoTo Fin bloqueo: Application.EnableCancelKey = xlErrorHandler On Error GoTo Ver_Error Application.DisplayAlerts = False licenciauso4 = InputBox("LICENCIA DE USO PARA DESBLOQUEAR") If licenciauso4 "*********" Then MsgBox "SE ACABO. APLICACION BLOQUEADA" ActiveWorkbook.Close End If GoTo Fin Ver_Error: ActiveWorkbook.Close Fin: End Sub
Excelente explicación. Me gustaría hiciese un video de como instalar sql server y apertura de como instalar la herramienta del asistente de mantenimiento. Soy ignorante en el medio. Más tengo un punto de venta con mucha información y sería interesante ver como funcionaría al aplicar lo que indica en el video. Fui afortunado encontrarme con este video.
Excelente explicacion, asi deben ser programadas las tareas, usando Script se puede cometer algun error. Saludos desde Venezuela..!!
Ya me suscribí a su canal, me encanta la claridad con la que se manejan los temas
Gracias! Saludos!
EXCELENTE VIDEO, BIEN EXPLICADO MASTER!!!
Buen video!
Gracias por compartir.
Conoce algún script para realizar un rebuild para todas las tablas de una base de datos específica en sql server?
Ya que no me funciona hacerlo con el plan de mantenimiento de sql, ya que muestra error como si no estuviera instalada esa herramienta.
O algún script que decida cuando realizar el rebuild o el reorganize, dependiendo del porcentaje de fragmentación de cada índice?.
Espero y me puedan orientar.
Gracias.
Gracias por sus videos y enseñanzas, me podría ayudar en código visual basic para bloquear una plantilla colocándole el serial de la PC para que no se pueda utilizar en otro PC mil gracias
Saludos Pablo! Mil disculpas por no responder a tiempo, lo que pasa es que no cuento con este código y lo que haría para dártelo es hacer una busqueda en el internet, lo que tu ya haz hecho.
Porque no me aparece la opción planes de mantenimiento....intente una versión y otra de SMS; pero nada.
El problema es la versión de SQL Server no del Management Studio, este no esta presente el la versión express
Estimado en su presentación puso un enlace de Udemy por favor si es tan amable de compartir el enlace, gracias, excelente video
Gracias por el interés Roberto el enlace es: www.udemy.com/administracion-de-base-de-datos-con-sql-server/?couponCode=AXOFT1
Como hago para eliminar backup antiguos de mi db, no puedo encontra un bendito tutorial de como hacer eso
Encontré este pero no es tan seguro
ING. Necesito un código visual basic, para bloquear una plantilla colocándole el serial de la PC... Encontré este pero no es seguro
encontre este pero no es tan seguro, si a este se le puede agregar la serie del pc para que solo se pueda utilizar en un solo equivo mil gracias ingeniero......
Gracias
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Contar").Range("B1").Value = Sheets("Contar").Range("B1").Value + 1
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Usuario = Environ("USERNAME")
Hora = (Now - Int(Now)) * 24
Select Case Hora
Case 6 To 12
MsgBox " Buenos días " & Usuario
MsgBox "ESTA PLANTILLA ES PROPIEDAD DE *************"
MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA "
Case 12 To 18
MsgBox " Buenas tardes " & Usuario
MsgBox "ESTA PLANTILLA ES PROPIEDAD DE ************"
MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA "
Case Else
MsgBox " Buenas noches " & Usuario
MsgBox "ESTA PLANTILLA ES PROPIEDAD DE *************"
MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA "
On Error Resume Next
End Select
cuenta = Sheets("Contar").Range("A1")
Select Case cuenta
Case Is = 10
GoTo bloqueo
End Select
Application.EnableCancelKey = xlErrorHandler
On Error Resume Next
Application.DisplayAlerts = False
MsgBox "EN BREVE SE LE PEDIRA LA RENOVACION DE LA LICENCIA DE ESTA APLICACION"
GoTo Fin
ultimoaviso:
Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
Application.DisplayAlerts = False
licenciauso = InputBox("Introducir la licencia de uso")
If licenciauso "********" Then
MsgBox "Clave incorrecta; VUELVA A INTRODUCIR LA CLAVE"
licenciauso2 = InputBox("licencia de uso 2ª oportunidad")
If licenciauso2 "******" Then
MsgBox "Clave incorrecta; ULTIMA OPORTUNIDAD PARA INTRODUCIR LA CLAVE, COMUNICARCE CON *****"
licenciauso3 = InputBox("licencia de uso 3ª y Ultima oportunidad")
If licenciauso3 "********" Then
ActiveWorkbook.Close
End If
End If
End If
GoTo Fin
bloqueo:
Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
Application.DisplayAlerts = False
licenciauso4 = InputBox("LICENCIA DE USO PARA DESBLOQUEAR")
If licenciauso4 "*********" Then
MsgBox "SE ACABO. APLICACION BLOQUEADA"
ActiveWorkbook.Close
End If
GoTo Fin
Ver_Error:
ActiveWorkbook.Close
Fin:
End Sub