Saber si existe una tabla dentro de una BD

[netorres]

Quisiera saber si hay una instruccion en visual que me permita saber si existe una TABLA dentro de una base de datos, pregunte en el foro "de bases de datos", pero en access solo se puede insertar, borrar, updatear y hacer procedures... no se si en visual se podrá hacer una consulta a traves de una funcion, porque cuando se hace una consulta sql por una tabla que no existe manda un error, obvio...

Por cualquier respuesta gracias!!!!

[GeoAvila]

entonces podrías dentifiacar el numero de error para cuanto te falte una tabla por el ejemplo el Ado simpre te da la descripción de error donde por lo regular dice que es lo que esta fallando

si utilizas el

On loca error resume next

y esto

if err <> 0 then
msgbox error
end if

creo podrías identificar elerror de la tabla faltante..

nos vemos..

[Skalitiko]

Puedes utilizar la referncia ADOX. Para agregar la referencia, debes ir al menu proyecto, referencias y ahi seleccionar Microsoft Ado Ext. 2.5 for Dll and security.

Aqui tienes un pequeño ejemplo.

Private Sub Command1_Click()
Dim Cat As New ADOX.Catalog
Dim Tbl As New Table
Dim TablaABuscar As String
Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\paso\Base.mdb;Persist Security Info=False"
TablaABuscar = "Tabla1" 'Nombre de la tabla que quero verificar
For Each Tbl In Cat.Tables
If Tbl.Name = TablaABuscar Then
MsgBox "La tabla " & TablaABuscar & " Existe en la bd", vbInformation
End If
Next Tbl
End Sub

[cristianeme]

Skalitiko mil gracias !!!!!
El codigo anda a la perfección y me permitió ahorrarme muchisimas lineas y consultas a funciones que habia elaborado para verificar
Sos un genio !!

Gracias de nuevo :)

[cristianeme]

Mirá lo que había hecho yo:

Option Explicit

'************************************************* **************************
' Ejemplo para verificar si una tabla se encuentra en la base de datos _
Nota: Agregar la Referencia a -->> Microsoft Activex Data Objects
'************************************************* **************************

Private Function Tabla_Existe(ByVal Path_BD As String, _
ByVal La_Tabla As String) As Boolean


On Error GoTo Err_Sub

Const Cadena As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Dim datos() As String
Dim i As Integer
Dim cnn As Connection

'Nueva conexión Ado
Set cnn = New Connection

'Abre la base de datos
cnn.Open Cadena & Path_BD

'Declara y abre el recordset
Dim RS As Recordset
Set RS = cnn.OpenSchema(adSchemaTables)

datos = Split(RS.GetString, vbTab)


For i = 0 To UBound(datos)
'Compara el valor,( la tabla )
If Trim(UCase(datos(i))) = Trim(UCase(La_Tabla)) Then
Tabla_Existe = True ' La tabla existe
Exit For
End If
Next

'cierra el recordset y la base de datos
On Error Resume Next
RS.Close
Set RS = Nothing
cnn.Close
Set cnn = Nothing
Exit Function
'error
Err_Sub:
MsgBox Err.Description, vbCritical
On Error Resume Next
RS.Close
Set RS = Nothing
cnn.Close
Set cnn = Nothing
End Function

Private Sub Command1_Click()
Dim ret As Boolean
Dim Path As String

' Path de la base de datos Biblio.mdb de visual basic
Path = "C:\Archivos de programa\Microsoft Visual Studio\VB98\biblio.mdb"

'verifica si la tabla Authors existe
ret = Tabla_Existe(Path, "Authors")

If ret Then
MsgBox "La tabla existe", vbInformation 'Si
Else
MsgBox "La tabla NO existe", vbInformation 'No
End If


End Sub

Private Sub Form_Load()
Command1.Caption = " Verificar tabla "
End Sub

era una cagada enorme y horrrrrrrrible!!!!!

Gracias Skalitiko !!!!!

[culd]

Desconozco como seria en access

Pero en MySQL pones usar "show tables;" y te muestra todas las tablas, y para conocer especificamente la estructura de una tabla "describe tabla;"

[chalena32]

Si por ejemplo quieres ver si existe una tabla para borrarla de la misma BD en la que estas tirando el codigo, te sugiero estas 10 lineas.

Dim db As Database
Set db = CurrentDb
db.TableDefs.Refresh
For i = 0 To db.TableDefs.Count - 1
If db.TableDefs(i).Name = "NombreTablaParaBorrar" Then
'La tabla EXISTE
DoCmd.DeleteObject acTable, "NombreTablaParaBorrar"
Exit For
End If
Next i