Newsgroup: it.comp.appl.access
Titolo: db che elenca oggetti contenuti in altri db

Esiste un db che, dato un percorso, controlla i db presenti e ne elenca gli 
oggetti contenuti?
grazie
-- 
Skipper dixit...
on cbr1000rr
Azz... L'č minga el sescčnt!!! L'č 'l mille!!!
motostory su 
http://www.superskipper.it/pagine/le_mie_moto.htm

 grazie
Se te lo prepari con tanto bel codice e saggio utilizzo degli oggetti di 
access database, tabledef, querydef ecc, come no?
Antonio 

 ha scritto nel messaggio 
news:ALfkk.36558$Ca.1...@twister2.libero.it...

:-)
intendevo qualcosa di già fatto....
:-)
skipper dixit... 

"skipper" <skippe...@superskipperNOSPAM.itNOSPAM> ha scritto nel 
messaggio news:FSfkk.8979$0N....@tornado.fastwebnet.it...

ma shareware, freeware o a pagamento?
Antonio 

 ha scritto nel messaggio 
news:V4gkk.125927$FR.3...@twister1.libero.it...

cosa significa shareware?
cosa significa a pagamento?
:-)
mi serve una volta sola... quindi cercavo qualcosa a sbafo... ehm 
freeware...
giusto per dare una controllata ai db che ho in studio...
-- 
Skipper dixit...
on cbr1000rr
Azz... L'è minga el sescènt!!! L'è 'l mille!!!
motostory su 
http://www.superskipper.it/pagine/le_mie_moto.htm
 

 giusto per dare una controllata ai db che ho in studio...
sul sito comune c'era un tool che faceva una cosa del genere sul database 
corrente mi pare.
se lo adatti ad uno scorrimento di una cartella con dir magari fa al caso 
tuo
Antonio 

 ha scritto nel messaggio 
news:ggrkk.126417$FR.3...@twister1.libero.it...

ieri sera, con un amico decisamente più bravo di me, ho prodotto del codice 
che mi legge un db da un percorso e mi elenca gli oggetti (tabelle e query e 
campi in essi contenuti) e mi popola  due tabelle.
Mi sono mandato la mail in ufficio ma non mi è arrivata...
altrimenti l'avrei postata....
Lunedì ti faccio vedere.
cmq grazie


>>>
Questo è il codice che ho... abbiamo.... ok..... HA prodotto, a casa un mio 
amico...
Ho solo un problema... in ufficio non mi funziona: a casa ho access2003 
mentre in ufficio ho access97.
Un aiutino? grazie
se lancio la procedura mi risulta il seguente errore:
*tipo definito dall'utente non definito*
ed è riferito alla prima riga qui sotto
    Dim y As ADODB.Recordset
           ^^^^^^^^^^^^^^^^^^^^
    Dim rstFields As ADODB.Recordset
    Dim x As ADODB.Connection
    Set x = New ADODB.Connection
    x.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
percorso_db
    'x.Provider = "Microsoft.Jet.OLEDB.4"
    x.Open '"c:\database\cantina.mdb" 'percorso_db.Text
    Set y = x.OpenSchema(adSchemaTables)
    If Not (y.BOF And y.EOF) Then
        Do While Not y.EOF
            If y.Fields(3) <> "SYSTEM TABLE" Then
                'MsgBox y.Fields(2)
                ssql = "insert into elenco_oggetti 
(percorso_db,nome_oggetto,tipo_oggetto) values ('"
                ssql = ssql & percorso_db & "', '" & y.Fields(2) & "', '" & 
y.Fields(3) & "')"
                'MsgBox ssql
                CurrentDb.Execute ssql
                Set rstFields = x.OpenSchema(adSchemaColumns)
                If Not (rstFields.BOF And rstFields.EOF) Then
                    Do While Not rstFields.EOF
                        If rstFields.Fields(2) = y.Fields(2) Then
                            ssql = "insert into elenco_campi 
(percorso_db,nome_oggetto,tipo_oggetto, nome_campo) values ('"
                            ssql = ssql & percorso_db & "', '" & y.Fields(2) 
& "', '" & y.Fields(3) & "','" & rstFields.Fields(3) & "')"
    '                        MsgBox ssql
                            CurrentDb.Execute ssql
                        End If
                        rstFields.MoveNext
                    Loop
                End If
            End If
            y.MoveNext
        Loop
    End If


"skipper" <skippe...@superskipperNOSPAM.itNOSPAM> ha scritto nel 
messaggio news:qnBkk.9836$0N....@tornado.fastwebnet.it...

Il 97 usa DAO, la sintassi è diversa
Antonio 

 ha scritto nel messaggio 
news:9MEkk.37574$Ca.1...@twister2.libero.it...

azz....
beh... tanto sto convertendo tutti i db da 97 a 2003....
questo agosto mi diverto un po'.....
