02/03/2004, 11:00
|
| | | Fecha de Ingreso: febrero-2004 Ubicación: Chile
Mensajes: 55
Antigüedad: 21 años, 2 meses Puntos: 5 | |
| respuesta del punto 2.-
ya cumpas, asi se listan las tablas
suerte a todos
Const adSchemaTables = 20
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/Intranet.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open StrConn
strFiltro = Array(Empty,Empty,Empty,"TABLE")
set rstSchema = oConn.OpenSchema(adSchemaTables,strFiltro)
Do Until rstSchema.EOF
Response.Write "Table name: " & rstSchema("TABLE_NAME") &"<BR>"
rstSchema.MoveNext
Loop
__________________
Claudio Navarrete Huerta
Santigo, Chile
//---------------------------------
<%response.write ("The Matrix Has You")%>
//--------------------------------- |