Imprimir Página - Nombres De Campos De Una Bds

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: JMAlonso en Martes 18 de Octubre de 2005, 12:45

Título: Nombres De Campos De Una Bds
Publicado por: JMAlonso en Martes 18 de Octubre de 2005, 12:45

Buenos dias, saludos a tod@s.

Necesito saber cuando me conecto a una base de datos, los nombres
de los campos.

Si alguien me pudiera ayudar se lo agradeceria.

saludos.

Título: Re: Nombres De Campos De Una Bds
Publicado por: eliza_marti en Martes 18 de Octubre de 2005, 18:00

Hola JMAlonso :hola: ..mmm..pero es una BD de Access?.. :huh: ..utilizas un Data?..un Ado?..hay diferentes formas...si nos especificas sería mucho mejor.. ;)
Un saludo.. :hola: ..nos cuentas.. :comp:

Título: Re: Nombres De Campos De Una Bds
Publicado por: JMAlonso en Martes 18 de Octubre de 2005, 19:27

Es una base de datos Access y me conecto mediante ADO.

Saludos.

Título: Re: Nombres De Campos De Una Bds
Publicado por: eliza_marti en Martes 18 de Octubre de 2005, 20:01

mmm..pero entonces porque no haces algo sencillo :think: ..buscas la propiedad ConnectionString de tu Ado, ves la ruta de acceso a la que hace referencia y vas y la buscas.. :) ..(eso sería lo más sencillo)..o sino..si tu Ado está en forma de componente pues puedes poner por ejemplo un text y lo conectas con tu Ado por medio de la propiedad DataSource y al ver la propiedad DataField te mostrará todos los campos a los que te puedes dreccionar.. :) ..es una idea..
Ahora si quieres ver a que tablas tiene acceso tu Adodb puedes ir a la propiedad RecordSource del mismo y verificar... ;)

Bueno..me voy.. :hola: ..espero haberte dado alguna idea.. ;) ..Mucha suerte :sorcerer: ..bye..

Título: Re: Nombres De Campos De Una Bds
Publicado por: JMAlonso en Martes 18 de Octubre de 2005, 20:53

Creo que no me he explicado bien.
lo que quiero es que en tiempo de ejecucion pueda ver por pantalla
los nombres de los campos de una determinada tabla.

saludos.

Título: Re: Nombres De Campos De Una Bds
Publicado por: Shiquilla en Miércoles 19 de Octubre de 2005, 09:02

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 Sub
Interrupcion:
    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,

Título: Re: Nombres De Campos De Una Bds
Publicado por: JMAlonso en Miércoles 19 de Octubre de 2005, 13:08

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

saludos.

Título: Re: Nombres De Campos De Una Bds
Publicado por: Widark en Miércoles 19 de Octubre de 2005, 18:00

Que tal JMAlonso!

visita este link (http://foros.solocodigo.com/index.php?showtopic=17801)

Título: Re: Nombres De Campos De Una Bds
Publicado por: Shiquilla en Miércoles 19 de Octubre de 2005, 22:10

Código: Text

Private Sub msNombreTablas()
Dim loRS As Recordset
Dim 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 Sub
Interrupcion:
   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,

Título: Re: Nombres De Campos De Una Bds
Publicado por: JMAlonso en Viernes 21 de Octubre de 2005, 09:31

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.

Título: Re: Nombres De Campos De Una Bds
Publicado por: Shiquilla en Viernes 21 de Octubre de 2005, 10:47

Código: Text

Private Sub msNombreTablas()
Dim loRS As Recordset
Dim lnTotal As Long
Dim 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 Sub
Interrupcion:
    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,

Título: Re: Nombres De Campos De Una Bds
Publicado por: JMAlonso en Sábado 22 de Octubre de 2005, 00:45

Gracias y saludos.

SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: JMAlonso en Martes 18 de Octubre de 2005, 12:45