Borrar tabla en Visual Basic
Visual Basic 31 Marzo 2009
Visual Basic:
-
Function BorraTabla()
-
Dim DataBaseName, TableName As String
-
Dim DB As Database, t As TableDef
-
Dim TableExists As Boolean
-
DataBaseName = "c:\data\local.mdb"
-
TableName = "AYUDANTS"
-
On Error GoTo errorhandler
-
Set DB = Workspaces(0).OpenDatabase(DataBaseName)
-
On Error Resume Next
-
Set t = DB.TableDefs(TableName)
-
TableExists = Err.Number = 0
-
If TableExists Then
-
DB.Execute "Drop Table " & TableName
-
End If
-
DB.Close
-
Exit Function
-
errorhandler:
-
Err.Raise Err.Number
-
Exit Function
-
End Function
Posts anterior y posterior:
Posts Relacionados:
- Previo: « Uso del registro en Visual Basic 6.
- Siguiente:
Abril 5th, 2009 a las 1:13 am
Excelente blog. Muy buenas tus informaciones de Visual Basic. Ojalá sigas así.