Programación General > VBA

 Nombres De Campos De Una Bds

<< < (2/3) > >>

Shiquilla:

--- Código: Text ---Private Sub msNombreCampos()Dim loRS As Recordset    Set loRS = goBD.OpenSchema(adSchemaColumns)    loRS.Find &#34;TABLE_NAME='NombreTabla'&#34;    If Not loRS.EOF Then        Do While Not loRS.EOF            If Trim(loRS!TABLE_NAME) = &#34;NombreTabla&#34; Then                MsgBox IIf(Not IsNull(loRS!COLUMN_NAME), loRS!COLUMN_NAME, &#34;&#34;)            Else                Exit Do            End If            loRS.MoveNext        Loop    Else        MsgBox &#34;No existe&#34;    End If    If loRS.State = 1 Then loRS.Close    Set loRS = Nothing    Exit SubInterrupcion:    On Error Resume Next    If loRS.State = 1 Then loRS.Close    Set loRS = Nothing    On Error GoTo 0    MsgBox Err.Description, vbCritical, &#34;Error&#34;End Sub 
* GoBD sería la conexión a la base de datos

Saludos,

JMAlonso:
Gracias y ya puestos, podria saber cuantas tablas tiene una BDs en concreto
y el nombre de dichas tablas.

saludos.

Widark:
Que tal JMAlonso!

visita este link

Shiquilla:

--- Código: Text ---Private Sub msNombreTablas()Dim loRS As RecordsetDim lnTotal As Long   lnTotal = 0   Set loRS = goBD.OpenSchema(adSchemaTable)   If Not loRS.EOF Then       Do While Not loRS.EOF           MsgBox IIf(Not IsNull(loRS!TABLE_NAME), loRS!TABLE_NAME, &#34;&#34;)           lnTotal=lnTotal+1           loRS.MoveNext       Loop   End If   If loRS.State = 1 Then loRS.Close   Set loRS = Nothing   MsgBox &#34;Total tablas: &#34; & CStr(lnTotal)   Exit SubInterrupcion:   On Error Resume Next   If loRS.State = 1 Then loRS.Close   Set loRS = Nothing   On Error GoTo 0   MsgBox Err.Description, vbCritical, &#34;Error&#34;End Sub 
Saludos,

JMAlonso:
me dice que no sabe que es adSchemaTable y ademas no me reconoce
goBD.


Algo me falta, si me dijeras lo que es te lo agradeceria.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior