Visual Basic - Privilegios necesarios

Life is soft - evento anual de software empresarial
 
Vista:

Privilegios necesarios

Publicado por Maria (3 intervenciones) el 12/01/2006 11:39:57
Hola a todos:
Necesito que alguien me diga que referencias necesito para poder trabajar con Visual y llamar a MatLab desde el y al mismo tiempo conectarme a bases de Access y Hojas de cálculo Excel. Pues al compilar me da errores de privilegios. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:Privilegios necesarios

Publicado por Raúl Santiago (178 intervenciones) el 12/01/2006 14:07:26
Para Matlab mira este ejemplo, la referencia es Matlab Aplication

http://lawebdelprogramador.com/codigo/enlace.php?idp=1197&id=93&texto=Visual+Basic

Para excel y no necesitas referencias

http://lawebdelprogramador.com/codigo/enlace.php?idp=1201&id=93&texto=Visual+Basic

Espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Privilegios necesarios

Publicado por Maria (3 intervenciones) el 12/01/2006 16:49:49
La única referencia relacionada con MatLab es "MatLab Automation Serve Type Library" y ya la tenía activada pero me sigue dando el error:

" Error en el método Executede objeto DIMLApp"

Y el código lo tenía como el tuyo.Se te ocurre que puede pasar?? Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Privilegios necesarios

Publicado por Luciano Esteban Lodola (98 intervenciones) el 12/01/2006 17:40:07
No se que es eso de matlab pero para saber si sos un usuario administrador podes usar este código:

Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const GENERIC_EXECUTE = &H20000000
Private Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, _
ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long

Private Declare Function CloseServiceHandle Lib "advapi32.dll" (ByVal hSCObject As Long) As Long

Private Sub Command1_Click()
Dim ResUsuario As Long

ResUsuario = OpenSCManager(vbNullString, vbNullString, GENERIC_READ Or GENERIC_WRITE Or GENERIC_EXECUTE)
If ResUsuario = 0 Then

MsgBox "No es un Administrador"
Else
CloseServiceHandle ResUsuario
MsgBox "Es un administrador"
End If
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Privilegios necesarios

Publicado por Maria (3 intervenciones) el 12/01/2006 18:12:51
Me da que no lo soy, entonces ¿Qué hago?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Privilegios necesarios

Publicado por Raúl Santiago (178 intervenciones) el 12/01/2006 19:16:20
Con esa referencia trabaja, el problema puede ser porque no eres administrador del equipo, porque muchas veces así no deja hacer cosas, lo mejor es que mires como te deja entrar como administrador, porque asi el codigo me ha trabajado bien.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar