Visual Basic - Borrar tablas

Life is soft - evento anual de software empresarial
 
Vista:

Borrar tablas

Publicado por Mariano (16 intervenciones) el 07/06/2007 15:24:30
Hola!! necesito recorrer una base mdb y borrar las tablas que no contengan registros.
alguien sabe como puedo hacer esto?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Borrar tablas

Publicado por Cecilia Colalongo (3117 intervenciones) el 07/06/2007 16:27:57
Para conocer las tablas de la base de datos, puedes hacer:

Con ADOX:

Dim objCatalog As Catalog, objTable As Table
Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnectionADO

For Each objTable In objCatalog.Tables

Set oRS=objConnection.Execute("SELECT COUNT(*) AS Cant FROM " & objTable.Name)

If oRS.Fields("Cant").Value=0 Then
' Primera opción
objConnection.Execute("DROP TABLE " & objTable.Name

' O, Seguda opción
objCatalog.Tables.Delete objTable.Name
End If

Next

Con OpenSchema de ADO:

Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaTables)

Recorres ese recordset y procedes de la misma manera.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar