Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

vistas

04/08/2004 - 09:39 por Aitor | Informe spam
Ayuda Hacer una pregunta
Hola otra vez:
He probado con algo parecido a lo que me has dicho. El
caso es que si solicito la lista de nombres de tablas ( la
linea que esta como comentario) me las devuelve, pero a la
hora de pedir los nombres de las vistas me da el siguiente
error:
Run-Time error '3251'
Object or provider is not capable of performing
requested operation.

Sub form_load()
Dim conex As ADODB.Connection
Dim rs As New ADODB.Recordset
Set conex = New ADODB.Connection
conex.ConnectionString = "driver={sql server};"
& "server=" + so + ";uid=sa;pwd=admsql;database=" + bdo
conex.ConnectionTimeout = 30
conex.Open

Set rs = conex.OpenSchema(adSchemaViews) ' ERROR
'Set rs = conex.OpenSchema(adSchemaTables) 'Esta bien
MsgBox rs.GetString
End Sub


Si lo que no me pase a mi
Gracias de nuevo. Saludos
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Carlos Sacristan
04/08/2004 - 11:11 | Informe spam
No entiendo por qué te complicas tanto. Si necesitas el nombre de las
vistas usa la vista de esquema INFORMATION_SCHEMA.VIEWS. Es más, si
necesitas el nombre de las tablas también, puedes usar entonces
INFORMATION_SCHEMA.TABLES tanto para vistas como para tablas; el campo
TABLE_TYPE te indica si es una tabla ('BASE TABLE') o bien una vista
('VIEW')


Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

Por favor, responder únicamente al foro
Se agradece la inclusión de sentencias DDL


"Aitor" escribió en el mensaje
news:bc3401c479f6$2ca65330$
Hola otra vez:
He probado con algo parecido a lo que me has dicho. El
caso es que si solicito la lista de nombres de tablas ( la
linea que esta como comentario) me las devuelve, pero a la
hora de pedir los nombres de las vistas me da el siguiente
error:
Run-Time error '3251'
Object or provider is not capable of performing
requested operation.

Sub form_load()
Dim conex As ADODB.Connection
Dim rs As New ADODB.Recordset
Set conex = New ADODB.Connection
conex.ConnectionString = "driver={sql server};"
& "server=" + so + ";uid=sa;pwd=admsql;database=" + bdo
conex.ConnectionTimeout = 30
conex.Open

Set rs = conex.OpenSchema(adSchemaViews) ' ERROR
'Set rs = conex.OpenSchema(adSchemaTables) 'Esta bien
MsgBox rs.GetString
End Sub


Si lo que no me pase a mi
Gracias de nuevo. Saludos

Preguntas similares

 

Busqueda sugerida :