Imprimir Página - Cuantas Tablas Tiene La Base De Datos?

Título: Cuantas Tablas Tiene La Base De Datos?
Publicado por: calosoft en Sábado 15 de Octubre de 2005, 00:35

hola, estoy desarrolando un programita, donde tengo un combo y quiero que en ese combo aparescan los nombres de las tablas de mi base de datos.
mi base de datos esta en access, y las tablas se van generando con otros procesos del programita. alguien me puede ayudar?, y si saben como se hace esto, me lo podrian decir como se hace en sql server 2000

Título: Re: Cuantas Tablas Tiene La Base De Datos?
Publicado por: ArKaNtOs en Sábado 15 de Octubre de 2005, 00:50

mmmmm hola yo tambien busco lo mismo carlosoft me acuerdo que tenia el codigo guardado en el servidor de mi universidad pero tuvo un fallo y lo tuvieron que formatear y ahora no se que hacer :P, lo peor es que ya no me acuerdo de como hacerlo :unsure: si alguien sabe como hacerlo le pido de favor que lo pase plz

Título: Re: Cuantas Tablas Tiene La Base De Datos?
Publicado por: Widark en Sábado 15 de Octubre de 2005, 01:07

Que tal!

Código: Text

Dim Cnx As ADODB.Connection
Dim pth As String          'Database Path
Dim Ctl    As ADOX.Catalog 'Database Catalog from Actual Connection
Dim CtlTbl As ADOX.Table
Dim Col    As ADOX.Column
Dim sGen As String
Dim i    As Integer
Dim j    As Integer
Dim k    As Integer
 
Private Sub cmdConectar_Click()
On Error GoTo ErrGetPath
 
  ' Establece CancelError a Verdadero
  cdlBasedatos.CancelError = True
  ' Establece banderas
  cdlBasedatos.Flags = cdlOFNHideReadOnly
  ' Establece filtros
  cdlBasedatos.Filter = &#34;All Files(*.*)|*.*|Access 2000 DB (*.mdb)|*.mdb&#34;
  ' Especifica filtro por defecto
  cdlBasedatos.FilterIndex = 2
  cdlBasedatos.ShowOpen
  pth = cdlBasedatos.FileName
  If LenB(pth) &#62; 0 And LenB(Dir(pth)) &#62; 0 Then
    Coneccion
    If Not (Cnx Is Nothing) Then
      LlenaTabla
    End If
  End If
  Exit Sub
  
ErrGetPath:
  'User pressed the Cancel button
  pth = vbNullString
End Sub
 
Sub Coneccion()
 
  On Error GoTo CnnError
  Dim strCnn As String
  
  strCnn = &#34;Provider=Microsoft.Jet.OLEDB.4.0;&#34;
  strCnn = strCnn & &#34;Data Source=&#34; & pth & &#34;;&#34;
  strCnn = strCnn & &#34;Jet OLEDB:Engine Type=5;&#34;
  
  Set Cnx = New ADODB.Connection
  Cnx.Open strCnn
  Exit Sub
  
CnnError:
Dim psw As String
 
  Select Case Err
    Case Is = -2147217843 'Database password incorrect
      psw = ObtainPassword
      strCnn = vbNullString
      strCnn = &#34;Provider=Microsoft.Jet.OLEDB.4.0;&#34;
      strCnn = strCnn & &#34;Data Source=&#34; & pth & &#34;;&#34;
      strCnn = strCnn & &#34;Jet OLEDB:Engine Type=5;&#34;
      strCnn = strCnn & psw
      If LenB(psw) = 0 Then
        Resume Next
      Else
        Resume
      End If
    Case Else
      MsgBox &#34;Error Number : &#34; & Err & vbCrLf & Error, vbCritical, Err.Source
      End
  End Select
End Sub
 
Sub LlenaTabla()
  
  On Error GoTo ErrorTab
  
  Screen.MousePointer = vbHourglass
  
  Set Ctl = New ADOX.Catalog
  Ctl.ActiveConnection = Cnx
  i = 0
  'Table Definitions
  For Each CtlTbl In Ctl.Tables
    If CtlTbl.Type = &#34;TABLE&#34; Then
      lstTablas.AddItem CtlTbl.Name
    End If
  Next
  
  Screen.MousePointer = vbDefault
  Exit Sub
  
ErrorTab:
  MsgBox Err.Description, vbCritical
  Screen.MousePointer = vbDefault
End Sub
 
Private Function ObtainPassword() As String
  
  Dim psw As String
  
  psw = vbNullString
  
  Do While Len(psw) = 0
    frmLogin.Show vbModal
    psw = frmLogin.Password
    If frmLogin.NoMore Then
      ObtainPassword = vbNullString
      Exit Do
    End If
  Loop
  If Len(psw) &#62; 0 And (Not frmLogin.NoMore) Then
    ObtainPassword = &#34;;Jet OLEDB:Database Password=&#34; & psw & &#34;;&#34;
    Unload frmLogin
  Else
    MsgBox &#34;Entre el password correcto.&#34;, vbExclamation
    ObtainPassword = vbNullString
    Set Cnx = Nothing
    Unload frmLogin
  End If
End Function
 

Este es un ejemplo que descargue de freecode y utiliza ADOX. Este es con DAO

Código: Text

Private Sub cmdBasedatos_Click()
Dim tblObj As TableDef
On Error GoTo errCancelCommon
    Abierto = False
    Adiciono = False
    cdlBasedatos.CancelError = False
    cdlBasedatos.ShowOpen
    If Len(cdlBasedatos.FileName) &#60;&#62; 0 Then
        cmdCodigos.Enabled = True
        On Error Resume Next
        Set Cnx = New ADODB.Connection
        With Cnx
            For i = 0 To 5 Step 0.1
                .CursorLocation = adUseClient
                .ConnectionString = &#34;Provider=Microsoft.Jet.OLEDB.&#34; & Replace(Format(i, &#34;0.0&#34;), &#34;,&#34;, &#34;.&#34;) & &#34;;Persist Security Info=False;Data Source=&#34; & cdlBasedatos.FileName & &#34;;Jet OLEDB:Database Password=;&#34;
                .Open
                If .State = 1 Then Exit For
            Next
            If .State = 0 Then
                MsgBox &#34;No se encontró una versión adecuada para iniciar el motor de la BD.&#34;, vbCritical, &#34;Error al iniciar&#34;
                .Close
                End
              Else
                Abierto = True
                cmbTablas.Clear
                'Abró la base de datos y lo asigno a la variable
                Set gdbCurrentDB = DBEngine.OpenDatabase(cdlBasedatos.FileName, False, False, &#34;;pwd=&#34;)
                
                For Each tblObj In gdbCurrentDB.TableDefs
                    If (tblObj.Attributes And dbSystemObject) = 0 Then 'Valido que las tablas no sean del sistema, adiciono al combo
                        cmbTablas.AddItem tblObj.Name
                    End If
                Next
            End If
        End With
    End If
    Exit Sub
errCancelCommon:
    
End Sub
 

Espero les sirva

Título: Re: Cuantas Tablas Tiene La Base De Datos?
Publicado por: ArKaNtOs en Martes 18 de Octubre de 2005, 00:13

Thanx Widark :) lo probare, espero me funcione

Título: Re: Cuantas Tablas Tiene La Base De Datos?
Publicado por: calosoft en Martes 18 de Octubre de 2005, 22:54

gracias Widark, me salvaste de una, funciona el primer codigo, el segundo nu lo probe, te pasaste won :smartass:

Título: Re: Cuantas Tablas Tiene La Base De Datos?
Publicado por: ArKaNtOs en Jueves 20 de Octubre de 2005, 20:17

les agrego el code que dije que tenia :)

Código: Text

 
Private Sub EnumerarTablas()
    Dim Db As Database
    Dim Td As TableDef
 
    List1.Clear
    Set Db = OpenDatabase(&#34;D:&#092;VB&#092;Biblio.MDB&#34;)
    For Each Td In Db.TableDefs
        'Sólo las tablas con atributo igual a CERO,
        'son tablas normales
        If Td.Attributes = 0 Then
            List1.AddItem Td.Name
        End If
    Next
    Db.Close
    Set Db = Nothing
End Sub
 

:kicking:

Título: Re: Cuantas Tablas Tiene La Base De Datos?
Publicado por: ArKaNtOs en Jueves 20 de Octubre de 2005, 23:48

Perdon olvide incluir la fuente :P sino diran que soy pirata jejeje, lo consegi en El guille (http://www.elguille.info/) :kicking:

SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: calosoft en Sábado 15 de Octubre de 2005, 00:35