Database - Legge Attributi Proprieta Tabelle

Tabelle # 'dal database selezionato, legge tutti gli attributi e proprieta'
'**********************************

Dim dbscurrente As database, tdftable As tabledef, qdfquery As querydef
Dim db As database
Set db = workspaces(0).opendatabase("\protocol\protocollo.mdb")
Set dbscurrente = db
For Each tdftable In db.tabledefs
Print chr(9) & "tabella di servizio " & tdftable.name
Print chr(9) & " attributes " & tdftable.attributes
Print chr(9) & " connect " & tdftable.connect
Print chr(9) & " datecreated " & tdftable.datecreated
Print chr(9) & " recordcount " & tdftable.recordcount
Print chr(9) & " sourcetablename " & tdftable.sourcetablename
Print chr(9) & " updatable " & tdftable.updatable
Print chr(9) & " validationrule " & tdftable.validationrule
Print chr(9) & " validationtext " & tdftable.validationtext
form1.cls ' cancella tutto dalla maschera
Next
For Each qdfquery In db.querydefs
Print chr(9) & "query di servizio " & qdfquery.name
Print chr(9) & " connect " & qdfquery.connect
Print chr(9) & " datecreated " & qdfquery.datecreated
Print chr(9) & " updatable " & qdfquery.updatable
Print chr(9) & " lastupdated " & qdfquery.lastupdated
Print chr(9) & " odbctimeout " & qdfquery.odbctimeout
Print chr(9) & " recordsaffected " & qdfquery.recordsaffected
Print chr(9) & " returnsrecords " & qdfquery.returnsrecords
Print chr(9) & " sql " & qdfquery.sql
Print chr(9) & " type " & qdfquery.type
' dbqselect 0 query select.

' dbqaction 240 query di comando.

' dbqcrosstab 16 query a campi incrociati.

' dbqdelete 32 query delete.

' dbqupdate 48 query update.

' dbqappend 64 query append.

' dbqmaketable 80 query per la creazione di tabelle.

' dbqddl 96 query del linguaggio per la definizione di dati (ddl).

' dbqsqlpassthrough 112 query pass-through sql.

' dbqsetoperation 128 query per operazioni set.

' dbqsptbulk 144 query per operazioni generali.

Next