Saber si existe tabla en BD usando ADO

Hola tocayo, te envío una función, en Base debe venir el objeto connection y
en Tabla va el nombre de la tabla que queres verificar si existe.

Function ExisteTabla(Base As ADODB.Connection,Tabla as String) As Boolean
On Error GoTo ER
ExisteTabla= False
Dim TDS As ADODB.Recordset
Set TDS = Base.OpenSchema(adSchemaTables)
Do Until TDS.EOF
If "" & TDS("TABLE_TYPE") = "TABLE" And (UCase("" &
TDS("TABLE_NAME")) = UCASE(Tabla) Or UCase("" & TDS("TABLE_NAME"))
=UCASE(Tabla) & Chr$(0)) Then
ExisteTabla = True
Exit Do
End If
TDS.MoveNext
Loop
TDS.Close
Sale:
On Error GoTo 0
Set TDS = Nothing
Exit Function
ER:
Resume Sale
End Function

Un saludo, Víctor Koch.


"Victor Carrión L." escribió en el mensaje
news:

Hola a to2

quisiera saber como en ADO puedo validar si una tabla existe o no

gracias

Victor



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.502 / Virus Database: 300 - Release Date: 18/07/2003