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

Hola.

Te paso otras para tener variedad. :D

Function ExisteTabla(Cn As ADODB.Connection, TableName As String) As Boolean
ExisteTabla = Not Cn.Execute("SELECT Name From MSysObjects Where Name '" & TableName & "'").EOF
End Function

Con "MSysObjects" para "Access" y "SysObjects" para "SQL", deberás
establecer derechos de lectura para esta tabla.

Y con ADOX.

Function ExisteTabla(Cn As ADODB.Connection, TableName As String) As Boolean
Dim Cat as New ADOX.Catalog

On Error GoTo NoExite
If Cat.Tables(TableName).Name <> "" Then
ExisteTabla = True
Endif
NoExite:
On Error GoTo 0
Set Cat = Nothing
End Function

Saludos.
Ramón.

"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