Ver Mensaje Individual
  #3 (permalink)  
Antiguo 15/02/2005, 12:45
Avatar de Skalitiko
Skalitiko
 
Fecha de Ingreso: febrero-2005
Mensajes: 81
Antigüedad: 9 años, 5 meses
Puntos: 0
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