-Administrador de tareas
-Archivo
-Ejecutar nueva tarea
-Abrir: cmd.exe
Se encuentra en C:\Windows\System32\cmd.exe
jueves, 26 de julio de 2018
cmd.exe windows 10
martes, 24 de julio de 2018
Mostrar contraseña TextBox
Public Class clave
Private passChar As Char = "?"
Private Sub clave_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TBclave.PasswordChar = passChar
End Sub
Private Sub CBclave_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBclave.CheckedChanged
If CBclave.Checked Then
TBclave.PasswordChar = ""
Else
TBclave.PasswordChar = passChar
End If
End Sub
End Class
Etiquetas:
TextBox,
UseSystemPasswordChar
lunes, 23 de julio de 2018
Cursor del mouse desaparece al escribir en TextBox RichTextBox
Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbRutEmpresa.TextChanged
Me.Cursor = Cursors.Default
End Sub
Private Sub TextBox_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbRutEmpresa.MouseEnter
Me.Cursor = Cursors.Default
End Sub
Private Sub TextBox_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbRutEmpresa.MouseLeave
Me.Cursor = Cursors.Default
End Sub
fuente
Me.Cursor = Cursors.Default
End Sub
Private Sub TextBox_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbRutEmpresa.MouseEnter
Me.Cursor = Cursors.Default
End Sub
Private Sub TextBox_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbRutEmpresa.MouseLeave
Me.Cursor = Cursors.Default
End Sub
fuente
Etiquetas:
Cursor,
RichTextBox,
TextBox
miércoles, 11 de julio de 2018
No update ListBox al desplegar ComboBox
Private Sub lbtablas_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbtablas.Leave
ListBox.Update()
End Sub
fuente
ListBox.Update()
End Sub
fuente
Borrar todos los nodos hijos xml
Dim doc As New XmlDocument
doc.Load("ruta_archivo_xml")
Dim x As XmlNode = doc.SelectSingleNode("Data/VariablesSql")
x.RemoveAll()
doc.Save("ruta_archivo_xml")
doc.Load("ruta_archivo_xml")
Dim x As XmlNode = doc.SelectSingleNode("Data/VariablesSql")
x.RemoveAll()
doc.Save("ruta_archivo_xml")
Comobox no actualiza index
Combobox.ResetText
Combobox.SelectedIndex = - 1
o también
Combobox.SelectedIndex = Nothing
Combobox.SelectedIndex = -1
lunes, 9 de julio de 2018
Vistas de una base de datos
SELECT TABLE_NAME FROM INFORMATION_SCHEMA.VIEWS ORDER BY TABLE_NAME ASC
viernes, 6 de julio de 2018
Tipo de dato de cada columna sql
SELECT COLUMN_NAME,DATA_TYPE
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = 'dbo.table'
SELECT DATA_TYPE
FROM INFORMATION_SCHEMA.COLUMNS
WHERE
TABLE_NAME = 'tabla' AND
COLUMN_NAME = 'columna'
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = 'dbo.table'
SELECT DATA_TYPE
FROM INFORMATION_SCHEMA.COLUMNS
WHERE
TABLE_NAME = 'tabla' AND
COLUMN_NAME = 'columna'
miércoles, 4 de julio de 2018
Obtener los campos de una tabla
SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('dbo.tabla')
SELECT * FROM nombre_base_de_datos.INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = 'dbo.tabla'
fuente
SELECT * FROM nombre_base_de_datos.INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = 'dbo.tabla'
fuente
Obtener las tablas de una base de datos
SELECT name FROM [BASE_DE_DATOS].sys.tables WHERE is_ms_shipped=0
Otro ejemplo (se demora más)
select name from sysobjects where
OBJECTPROPERTY(id,N'IsTable')=1 and
OBJECTPROPERTY(id,N'IsMSShipped')=0
fuente
fuente1
Otro ejemplo (se demora más)
select name from sysobjects where
OBJECTPROPERTY(id,N'IsTable')=1 and
OBJECTPROPERTY(id,N'IsMSShipped')=0
fuente
fuente1
Suscribirse a:
Entradas (Atom)