Ver Mensaje Individual
  #9 (permalink)  
Antiguo 15/10/2004, 10:04
sqa212
 
Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 21 años, 7 meses
Puntos: 0
Cita:
Iniciado por Myakire
Sirve para ver las tablas que existen en la BD's.

Código:
<!-- #INCLUDE File="adovbs.inc" -->
<script runat=server LANGUAGE="VBSCRIPT">
  Dim oConn,rstSchema
  Set oConn = Server.CreateObject("ADODB.Connection")
  Set rstSchema = Server.createobject("ADODB.Recordset")
  oConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rebe_pad.mdb"))
  Set rstSchema = oConn.OpenSchema(adSchemaTables)
	response.write "<table>"
  Do Until rstSchema.EOF
     Response.Write "<tr><td>Tabla: " & rstSchema("TABLE_NAME")
     Response.Write "<td>Tipo: " & rstSchema("TABLE_TYPE")
     rstSchema.MoveNext
  Loop
  rstSchema.Close 
  oConn.Close
</script>
Se puede poner tambien esto:
Response.Write "<td>Ubicacion: " & rstSchema("TABLE_CATALOG")
Saludos