Suena mal si estoy de acuerdo,
Intenta acceder colocando
Código [Seleccionar]
compmgmt.msc
y prueba si te deja entrar en la Opcion Administrador de dispositivos desde ahi
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúcompmgmt.msc
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute 0, "open", "c:\mibat.bat", 0, 0, 1
End Sub
Private Sub Command2_Click()
'copiamos archivo a nuevo directorio
FileCopy App.Path & "\mibat.bat", "C:\mibat.bat"
End Sub
Cita de: TaLaP0 XoR BiT en 12 Mayo 2013, 21:41 PM
Java no solo es para android!! java es muy potente. Pero si quieres comenzar, yo diria que C y luego te pasas a C++ . Estos dos lenguajes nunca pasaran de moda porque todos los sistemas operativos estan escritos en C.
Private Sub Command1_Click()
Dim i As Integer
Call ConectaBase
''Realizamos la consulta
Call Consulta("Seleccion")
For i = 1 To 10
While Not Rss.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(i, 0) = Rss.Fields("Nombre")
MSFlexGrid1.TextMatrix(i, 1) = Rss.Fields("Direccion")
MSFlexGrid1.TextMatrix(i, 2) = Rss.Fields("Administrador")
MSFlexGrid1.TextMatrix(i, 3) = Rss.Fields("CelAdmin")
MSFlexGrid1.TextMatrix(i, 4) = Rss.Fields("TelefonoSucursal")
MSFlexGrid1.TextMatrix(i, 5) = Rss.Fields("Barrio")
MSFlexGrid1.TextMatrix(i, 6) = Rss.Fields("HorarioEspecial")
MSFlexGrid1.TextMatrix(i, 7) = Rss.Fields("HorarioEnt")
MSFlexGrid1.TextMatrix(i, 8) = Rss.Fields("HorarioSal")
MSFlexGrid1.TextMatrix(i, 9) = Rss.Fields("Comentarios")
i = i + 1
Rss.MoveNext
Wend
Next i
Sub CierraConexion()
Cnn.Close
End Sub
Sub ConectaBase() 'conecta a la base de datos
'realizar sub que detecte si la conexion esta abierta
'si lo esta, cerrarla
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
Cnn.CursorLocation = adUseClient
Cnn.Open
End Sub
Private Sub Form_Load()
MSFlexGrid1.TextMatrix(0, 0) = "devfreg5555"
MSFlexGrid1.TextMatrix(0, 1) = "444444r"
MSFlexGrid1.TextMatrix(0, 2) = "efw"
MSFlexGrid1.TextMatrix(0, 3) = "wlkmdk3mdm3"
MSFlexGrid1.TextMatrix(0, 4) = "ewkmfmweo"
MSFlexGrid1.TextMatrix(0, 5) = "boboesponja"
MSFlexGrid1.TextMatrix(0, 6) = "martin liguera"
MSFlexGrid1.TextMatrix(0, 7) = "papa juan pablo"
MSFlexGrid1.TextMatrix(0, 8) = "efewf"
MSFlexGrid1.TextMatrix(0, 9) = "xD"
MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.ColWidth(1) = 1700
MSFlexGrid1.ColWidth(2) = 1800
MSFlexGrid1.ColWidth(3) = 1400
MSFlexGrid1.ColWidth(4) = 800
MSFlexGrid1.ColWidth(5) = 0
MSFlexGrid1.ColWidth(6) = 1510
End Sub