Programación General > VBA

 Nombres De Campos De Una Bds

<< < (3/3)

Shiquilla:

--- Código: Text ---Private Sub msNombreTablas()Dim loRS As RecordsetDim lnTotal As LongDim lsTipoTabla As String     On Error GoTo Interrupcion     lnTotal = 0    Set loRS = goBD.OpenSchema(adSchemaTables)    If Not loRS.EOF Then        Do While Not loRS.EOF            lsTipoTabla = IIf(Not IsNull(loRS!TABLE_TYPE), loRS!TABLE_TYPE, &#34;&#34;)            If UCase(lsTipoTabla) = &#34;TABLE&#34; Then 'Si no es de sistema                MsgBox IIf(Not IsNull(loRS!TABLE_NAME), loRS!TABLE_NAME, &#34;&#34;)                lnTotal = lnTotal + 1            End If            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 
* goBD sería la conexión a la base de datos

Saludos,

JMAlonso:
Gracias y saludos.

Navegación

[0] Índice de Mensajes

[*] Página Anterior