Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ver tablas en BD

19/03/2007 - 19:13 por C a r l o s A n t o n i o | Informe spam
Ayuda Hacer una pregunta
Saludos Amigos,

Gracias anticipadas.

Tengo una BD en SQLServer 2K. Quiero llenar una variable en string. con los
nombres de las tablas de la BD, pero no he encontrado como se hace en
VB2005. Este es el codigo que utilizaba en VB6.

¿Alguna ayuda?

Sub test()
'Obtener nombres de tablas de base de datos
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n As Long
Dim str As String

str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=mi_database;Data Source=mi_server"

With cn
.ConnectionString = str
.Open
End With

Set rs = cn.OpenSchema(adSchemaTables)

With rs
Do Until .EOF
Debug.Print rs("TABLE_NAME")
.MoveNext
Loop
.Close
End With

End Sub
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 C a r l o s A n t o n i o
19/03/2007 - 20:06 | Informe spam
Gracias amigos,

Encontré la respuesta en el grupo de ADO. Adjunto el enlace para beneficio
de todos.

http://tinyurl.com/2nylqf


Saludos,


Carlos


"C a r l o s A n t o n i o" <carlvazpr?arroba¿yahoo.com> wrote in message
news:
Saludos Amigos,

Gracias anticipadas.

Tengo una BD en SQLServer 2K. Quiero llenar una variable en string. con
los nombres de las tablas de la BD, pero no he encontrado como se hace en
VB2005. Este es el codigo que utilizaba en VB6.

¿Alguna ayuda?

Sub test()
'Obtener nombres de tablas de base de datos
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n As Long
Dim str As String

str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=mi_database;Data Source=mi_server"

With cn
.ConnectionString = str
.Open
End With

Set rs = cn.OpenSchema(adSchemaTables)

With rs
Do Until .EOF
Debug.Print rs("TABLE_NAME")
.MoveNext
Loop
.Close
End With

End Sub


Preguntas similares

 

Busqueda sugerida :