buscador de sitios web de acceso asp

Obtenga todos los nombres de las tablas y todos los nombres de los campos de la tabla y luego genere dinámicamente declaraciones SQL.

Esto resuelve el problema de "el escritor está mareado". Nuevo ADODB.Recordset

Dim I As Integer

str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False "

adoCN.Open str1

Establecer rstSchema = adoCN.OpenSchema(adSchemaTables)

Hacer hasta rstSchema.EOF

Si rstSchema! TABLE_TYPE = "TABLE" Entonces

out = out amp; "Nombre de la tabla: " amp _

rstSchema!TABLE_NAME vbCr amp; Tipo de tabla: " amp. rstSchema!

Nombre de campo:

Atenuar adoCN como nuevo ADODB.Connection

Atenuar strCnn como nuevo ADODB.Recordset

Atenuar rstSchema como nuevo ADODB.Recordset

Atenuar rstSchema como nuevo ADODB.Recordset