Es uno de los problemas más extraños que me ha tocado ver en VBA. Objetivo: Ejecutar un "sp_helprotect" sobre diferentes Bases de datos y diferentes servidores, para obtener Usuarios-Tablas-Privilegios. Me funciona para algunas Bases, pero, para otra en particular ha sido una verdadera lucha y me entrega el mensaje que Uds. ven. Lo cual, no parece ser correcto. Porque si cambio la instrucción sp_Helprotect" por "Select * from Tabla-x" funciona en forma impecable, lo que prueba que la conexión NO está cerrada y lo que le debe estar molestando al motor es probablemente que ese servidor en particular (que tiene SQL Server 2000"), no acepta ejecutar Procedimientos Almacenados". Lo más inentendible es que el servidor que si funciona OK con "sp_helprotect" también tiene SQL Server 2000". Por favor, HELP si alguien tiene alguna idea para superar esta "Tranca". Adjunto el programa para vuestro análisis: Public xBase As String, ibase As Integer Public Conexion As Object 'Tipo de variable: ADODB.Connection S(1) = "192.168.136.171": NS(1) = "CLSQLSRV": USR(1) = "JCampbell": Psw(1) = "jotacave": BD(1) = "GSGA" ' NO FUNCIONA S(19) = "192.168.136.175": NS(19) = "CLDBS5": USR(19) = "JCampbell": Psw(19) = "JCampbell": BD(19) = "GestionDW" ' FUNCIONA OK S(20) = "192.168.136.231": NS(20) = "CLDBS14": USR(20) = "JCampbell": Psw(20) = "JCampbell": BD(20) = "Auditorias" 'FUNCIONA OK im = 0: ig = 1 ' Macro ' 'Dim Conexion As Object 'Tipo de variable: ADODB.Connection Dim Comando As Object 'Tipo de variable: ADODB.Command Dim Cursor As Object 'Tipo de variable: ADODB.Recordset Set Conexion = CreateObject("ADODB.Connection") 'Crea el objeto Conexion.Open "Provider=SQLOLEDB; Persist Security Info=True;" & _ "; Database=" & BD(ibase) & "; Data Source=" & S(ibase) & _ "; Initial Catalog=" & BD(ibase) & "; User ID=" & USR(ibase) & _ "; Password=" & Psw(ibase) & ";" 'Abre la conexion '__________________________________________________________________________________________________________________________ ' ' Control DE ERRORES DE CONEXIÓN MASTER '__________________________________________________________________________________________________________________________ If ErrP <> "" Then en = en + 1 TErr = TErr + en + ") Error # " + Err + " : " + Error(Err) + c + Proceso + " , " + S(i) + " , " + NS(i) + " , " + USR(i) + " , " + Psw(i) + " , FinReg" + c ErrP = "" '__________________________________________________________________________________________________________________________ Else 'Set rs = New ADODB.Recordset ' Abre el recordset aaaamm = "201504": letra = "L" 'Set rst = CreateObject("ADODB.Recordset") Set Comando = CreateObject("ADODB.Command") 'Crea el objeto With Comando Set .ActiveConnection = Conexion 'Asigna la conexion al comando .CommandText = "sp_Helprotect" Set Cursor = .Execute 'Se ejecuta el SQL End With If ErrP <> "" Then en = en + 1 TErr = TErr + en + ") Lectura Sysdatabases Error # " + Err + " : " + Error(Err) + c + S(i) + " , " + NS(i) + " , " + USR(i) + " , " + Psw(i) + " , FinReg" + c ErrP = "" Else im = 1 Hoja2.Cells(im, 1) = "Owner" Hoja2.Cells(im, 2) = "Object" Hoja2.Cells(im, 3) = "Grantee" Hoja2.Cells(im, 4) = "Grantor" Hoja2.Cells(im, 5) = "ProtectType" Hoja2.Cells(im, 6) = "Action" Hoja2.Cells(im, 7) = "Col" While Not Cursor.EOF 'Recorre el cursor de principio a fin If Cursor.Fields(2).Value <> "public" Then im = im + 1 Hoja2.Cells(im, 1) = Cursor.Fields(0).Value 'Asigna el valor de "Owner" Hoja2.Cells(im, 2) = Cursor.Fields(1).Value 'Asigna el valor de "Object" Hoja2.Cells(im, 3) = Cursor.Fields(2).Value 'Asigna el valor de "Grantee" Hoja2.Cells(im, 4) = Cursor.Fields(3).Value 'Asigna el valor de "Grantor" Hoja2.Cells(im, 5) = Cursor.Fields(4).Value 'Asigna el valor de "ProtectType" Hoja2.Cells(im, 6) = Cursor.Fields(5).Value 'Asigna el valor de "Action" Hoja2.Cells(im, 7) = Cursor.Fields(6).Value 'Asigna el valor de "Col" If Cursor.Fields(1).Value <> ObjectsANT Then im = im + 1 Hoja2.Cells(im, 1) = Cursor.Fields(0).Value 'Asigna el valor de "Owner" Hoja2.Cells(im, 2) = Cursor.Fields(1).Value 'Asigna el valor de "Object" Hoja2.Cells(im, 3) = Cursor.Fields(0).Value 'Asigna el valor de "Grantee" Hoja2.Cells(im, 4) = Cursor.Fields(3).Value 'Asigna el valor de "Grantor" Hoja2.Cells(im, 5) = Cursor.Fields(4).Value 'Asigna el valor de "ProtectType" Hoja2.Cells(im, 6) = "ALL" 'Asigna el valor de "Action" Hoja2.Cells(im, 7) = Cursor.Fields(6).Value 'Asigna el valor de "Col" ObjectsANT = Cursor.Fields(1) End If End If Cursor.MoveNext 'Mueve el cursor al siguiente registro Wend End If End If

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

La operacion no esta permitida si el objeto esta cerrado

Autor del tema Jotacave
Fecha de inicio 2 Jun 2015

Jotacave

New member

2 Jun 2015

Es uno de los problemas más extraños que me ha tocado ver en VBA.

Objetivo: Ejecutar un "sp_helprotect" sobre diferentes Bases de datos y diferentes servidores, para obtener...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

modificar formulario con operacion matematica

Respuestas: 0

4 Ago 2020

jhon6666

Pregunta

buscar coincidencias y realizar operacion

Respuestas: 3

12 Feb 2019

p52sarup

Pregunta

operacion desde combobox con formato hora

Respuestas: 2

20 Sep 2016

SieigfreD

Pregunta

Error: Operacion Multiples OLE DB con Tablas #TMP-SQL y VBA

Respuestas: 0

21 May 2015

head777

Pregunta

Por Que No Realiza La Operacion

Respuestas: 1

4 May 2005

yimysys

Resuelto

Interrumpir Formulario si el valor de un Txt ya esta usado

Respuestas: 10

13 Jun 2026

Erpunta

Pregunta

Propuesta de macro para filtrar tareas por mes - Calendario agenda

Respuestas: 1

16 Nov 2025

racasta2021

Resuelto

Ayuda con esta macro cambiar color de fuente al seleccionarla

Respuestas: 2

29 Sep 2025

Miltiño

Resuelto

Ayuda con esta macro para insertar filas

Respuestas: 3

17 Jul 2025

Miltiño

Resuelto

Ayuda esta macro clave acceso asteriscos

Respuestas: 11

13 Abr 2025

Miltiño

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba