21/10/2007, 08:37
|
 | | | Fecha de Ingreso: octubre-2006
Mensajes: 78
Antigüedad: 18 años, 6 meses Puntos: 0 | |
 Re: Verificar si tabla de access existe y borrarla
Dim AbreBase As Database
Dim AbreTablas As TableDef
Dim ValStr As String
Dim ValError As Boolean
IniciaTabla1
Set AbreBase = OpenDatabase(PathDB.Text, True, False)
'Muestra tablas existentes en Tabla1
AbreBase.TableDefs.Refresh
IniciaTabla1
For Each AbreTablas In AbreBase.TableDefs
If (AbreTablas.Attributes And dbSystemObject) = 0 Then
Tabla1.Rows = (Tabla1.Rows + 1)
Tabla1.Row = (Tabla1.Rows - 1)
Tabla1.TextMatrix(Tabla1.Row, 0) = AbreTablas.Name
If Tabla1.Row >= Tabla1Top Then
Tabla1.ColWidth(0) = (Tabla1TopR - 240)
End If
End If
Next
AbreBase.Close
Set AbreBase = Nothing
espero que te sirva. :)
Tabla1 es un msflexgrid. |