buscar tabla en access

No sé si es que no me he explicado bien o que no me has entendido, o que soy
yo ahora el que no te entiende.

Lo que quería decir es lo siguiente: ya que OleDbConnection, SqlConnection,
OdbcConnection, OracleConnection, SQLiteConnection etc, ya que todas derivan
de DbConnection que es una clase abstracta y tiene el método abstracto
GetSchema, todas estas clases "conexión" están obligadas a implementar el
método GetSchema. O sea todas las clases conexión sean del proveedor de
datos que sean tienen que implementar el método GetSchema.

Yo no quería decir que tú o yo o cualquier otro, tuviera que implementar el
método, a no ser, claro está, que esté escribiendo un proveedor de datos.

Haciendo uso de DbConnection se podría reescribir el código para que
funcionara con cualquier conexión de cualquier proveedor:

Public Sub MostarTablas( cn As DbConnection )
Dim dt As DataTable = cn.GetSchema("TABLES")
If dt.Rows.Count <> 0 Then
Dim n As Integer
For n = 0 To dt.Rows.Count - 1
For Each col As DataColumn In dt.Columns
If Not IsDBNull(dt.Rows(n).Item(col.ColumnName)) Then
MessageBox.Show(col.ColumnName & " = " & _
CStr(dt.Rows(n).Item(col.ColumnName)))
End If
Next
Next
End If
End Sub

Luego podríamos usar este método en otro sitio más o menos así:

Dim cnnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis documentos\Bd1.mdb"

Dim cnn As New OleDbConnection(cnnString)
cnn.Open
MostrarTablas( cnn )
cnn.Close

Saludos:

Jesús López
MVP VB

"Jesús López" escribió:

No sé si es que no me he explicado bien o que no me has entendido,
o que soy yo ahora el que no te entiende.

Lo que quería decir es lo siguiente: ya que OleDbConnection,
SqlConnection, OdbcConnection, OracleConnection, SQLiteConnection etc, ya
que todas derivan de DbConnection que es una clase abstracta y tiene el
método abstracto GetSchema, ...

No, el que no se ha enterado era yo. :-(

¡Joder! Creía que me estabas hablando de implementar la interfaz
«IDbConnection». Pero a la hora de probar el procedimiento «MostrarTablas»,
me he dado cuenta que te refieres a la clase «DBConnection» del espacio de
nombres «System.Data.Common», que obviamente no lo tenía importado en el
proyecto; solamente tenía importado el espacio de nombres «System.Data», de
ahí que no observara ninguna clase «DBConnection», que dicho sea de paso, la
desconocía.

Por eso te había comentado que no hacía falta "implementar" (ya te lo digo
entre comillas), la interfaz «IDBConnection», porque tanto los distintos
objetos Connection contienen el nuevo método «GetSchema». Pero en fin, el
asunto está aclarado. :-)

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.