ADOX - Creazione database, creazione tabelle

Option Explicit

'BINARY         1 byte per carattere
'BIT            1 byte  Valori S� e No e i campi che contengono uno solo dei due valori.
'BYTE           1 byte  Un valore intero compreso tra 0 e 255.
'COUNTER        4 byte    C O N T A T O R E
'CURRENCY       8 byte  Un numero intero proporzionato compreso tra ���922.337.203.685,477,5808 e 922.337.203.685.477,5807.
'DATETIME       (vedere DOUBLE) 8 byte  Un valore di data o di ora compreso tra 100 e 9999.
'GUID           128 bit Un numero di identificazione univoco utilizzato con chiamate di routine remote.
'SINGLE         4 byte Precisione singola  Un valore a virgola mobile a precisione singola con un intervallo compreso tra ���3,402823E38 e ���1,401298E-45 per i valori negativi e tra 1,401298E-45 e 3,402823E38 per i valori positivi e zero.
'DOUBLE         8 byte Precisione doppia  Un valore a virgola mobile a precisione doppia con un intervallo compreso tra ���1,79769313486232E308 e ���4,94065645841247E-324 per i valori negativi e tra 4,94065645841247E-324 e 1,79769313486232E308 per i valori positivi e zero.
'SHORT          2 byte  Un numero intero breve compreso tra ���32.768 e 32.767.
'LONG           4 byte  Intero lungo Un numero intero lungo compreso tra ���2.147.483.648 e 2.147.483.647.
'LONGTEXT       1 byte per carattere    Da zero a un massimo di 1,2 gigabyte.
'LONGBINARY     Binario lungo Come necessario Da zero ad un massimo di 1,2 gigabyte. Utilizzato per oggetti OLE.
'TEXT           1 byte per carattere TESTO   Da zero a 255 caratteri.

Private Sub cmdCreate_Click()
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim con As ADODB.Connection
    
        ' Delete the database if it already exists.
        On Error Resume Next
        Kill txtDatabaseName.Text
        On Error GoTo 0
    
    
    Kill App.Path & "\Vb52000.Mdb"
    
        ' Create the new database.
        Set cat = New ADOX.Catalog
        cat.Create _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & App.Path & "\Vb52000.Mdb" & ";"
    
    
        ' Connect to the database.
        Set con = cat.ActiveConnection
    
    
    Dim QR As String
    QR = "CREATE TABLE [Autori] ([Autore] char(30), "
                                 QR = QR & "[Societa] char(50), "
                                 QR = QR & "[descrizioneProgetto] MEMO, "
                                 QR = QR & "[Versione] char(12),  "
                                 QR = QR & "[data variazione] DATETIME)"
    con.Execute QR
    
    ' creazione indice
    con.Execute "CREATE INDEX Versione ON Autori (Versione);"
    con.Execute "CREATE INDEX Data ON Autori ([data variazione]);"
    
    
    con.Execute "INSERT INTO Autori ( Autore, Societa, descrizioneProgetto, Versione, [data variazione] ) SELECT 'Paolo Puglisi' AS Autore, 'Genio SoftWare' AS Societa, 'Conversione da un progetto di Access 2000 o 97 in un progetto di VB' AS descrizioneProgetto, '2.0.2' AS Versione, Date() AS [data variazione];"
    
    
    
    QR = "CREATE TABLE [Tabella] ([IdControl] COUNTER CONSTRAINT IdControl PRIMARY KEY, "
                                 QR = QR & "[IdMaschera] LONG, "
                                 QR = QR & "[Maschera] char(50), "
                                 QR = QR & "[Nome] char(50), "
                                 QR = QR & "[TipoControl]  LONG, "
                                 QR = QR & "[Caption] char(50), "
                                 QR = QR & "[Text] char(50), "
                                 QR = QR & "[DataField] MEMO, "
                                 QR = QR & "[RowSourceType] char(50), "
                                 QR = QR & "[RowSource] MEMO, "
                                 QR = QR & "[Left] char(50), "
                                 QR = QR & "[Heigth] char(50), "
                                 QR = QR & "[Top] char(50), "
                                 QR = QR & "[Width] char(50), "
                                 QR = QR & "[Value] char(50), "
                                 QR = QR & "[LinkchildFields] MEMO, "
                                 QR = QR & "[LinkMasterFields] MEMO, "
                                 QR = QR & "[SourceObject] MEMO, "
                                 QR = QR & "[Class] char(50), "
                                 QR = QR & "[Inizialize] MEMO, "
                                 QR = QR & "[Picture] char(150) )"
                                 
    con.Execute QR
    
    con.Execute "CREATE INDEX Maschera ON Tabella ([IDMaschera]);"
    
    QR = "CREATE TABLE [Maschere] ([IdMaschera] COUNTER  CONSTRAINT IdMaschere PRIMARY KEY,  "
                                 QR = QR & "[Maschera] char(50), "
                                 QR = QR & "[Menu] char(50), "
                                 QR = QR & "[DatabaseName]  MEMO, "
                                 QR = QR & "[Larga] char(50), "
                                 QR = QR & "[DefaultView] char(50), "
                                 QR = QR & "[DataField] MEMO, "
                                 QR = QR & "[Script] MEMO, "
                                 QR = QR & "[Filter] MEMO, "
                                 QR = QR & "[orderBy] char(50), "
                                 QR = QR & "[RecordsetType] char(50), "
                                 QR = QR & "[MinMaxButtons] LONG, "
                                 QR = QR & "[PathDataBase] char(110) )"
                                 
    con.Execute QR
    
    con.Execute "CREATE INDEX IdMaschera ON Maschere ([IDMaschera]);"
    con.Execute "CREATE INDEX Maschera ON Maschere ([Maschera]);"
    
    QR = "CREATE TABLE [Moduli] ([Id] COUNTER  CONSTRAINT IdModuli PRIMARY KEY,  "
                                 QR = QR & "[Moduli] char(50) )"
                                 
    con.Execute QR
    
    
    QR = "CREATE TABLE [Scroll] ([Id] COUNTER  CONSTRAINT IdScroll PRIMARY KEY,  "
                                QR = QR & "[Tipo] char(50), "
                                QR = QR & "[nome] char(50), "
                                QR = QR & "[BackColor] char(50), "
                                QR = QR & "[Caption] char(249), "
                                QR = QR & "[DataSource] char(1), "
                                QR = QR & "[Datafield] MEMO, "
                                QR = QR & "[DisplayType] char(50), "
                                QR = QR & "[ForeColor] char(50), "
                                QR = QR & "[Height] char(50), "
                                QR = QR & "[Index] char(50), "
                                QR = QR & "[Left] char(50), "
                                QR = QR & "[MaskColor] char(50), "
                                QR = QR & "[MaxLength] char(50), "
                                QR = QR & "[MultiLine] char(50), "
                                QR = QR & "[ScaleMode] char(50), "
                                QR = QR & "[ScaleHeight] char(50), "
                                QR = QR & "[ScaleWidth] char(50), "
                                QR = QR & "[ScrollBars] char(50), "
                                QR = QR & "[TabIndex] char(50), "
                                QR = QR & "[Top] char(50), "
                                QR = QR & "[Visible] char(50), "
                                QR = QR & "[Width] char(50), "
                                QR = QR & "[zLeft] LONG, "
                                QR = QR & "[zTop] LONG )"
                                 
    con.Execute QR
    
'    con.Execute "CREATE INDEX Id ON Scroll (IDOLD);"
'    con.Execute "CREATE INDEX zLeft ON Scroll (zLeft);"
'    con.Execute "CREATE INDEX zTop ON Scroll (zTop);"
    
    
    
    
    
        Set con = Nothing
        Set tbl = Nothing
        Set cat = Nothing
    
        MsgBox "OK"
    End Sub

Private Sub Form_Load()

Dim file_name As String
    
        file_name = App.Path
        If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
        file_name = file_name & "test.mdb"
        txtDatabaseName.Text = file_name

End Sub

Option Explicit

'BINARY 1 byte per carattere

'BIT 1 byte Valori Si' e No e i campi che contengono uno solo dei due valori.

'BYTE 1 byte Un valore intero compreso tra 0 e 255.

'COUNTER 4 byte C O N T A T O R E

'CURRENCY 8 byte Un numero intero proporzionato compreso tra ��922.337.203.685,477,5808 e 922.337.203.685.477,5807.

'DATETIME (vedere DOUBLE) 8 byte Un valore di data o di ora compreso tra 100 e 9999.

'GUID 128 bit Un numero di identificazione univoco utilizzato con chiamate di routine remote.

'SINGLE 4 byte Precisione singola Un valore a virgola mobile a precisione singola con un intervallo compreso tra ��3,402823E38 e ��1,401298E-45 per i valori negativi e tra 1,401298E-45 e 3,402823E38 per i valori positivi e zero.

'DOUBLE 8 byte Precisione doppia Un valore a virgola mobile a precisione doppia con un intervallo compreso tra ��1,79769313486232E308 e ��4,94065645841247E-324 per i valori negativi e tra 4,94065645841247E-324 e 1,79769313486232E308 per i valori positivi e zero.

'SHORT 2 byte Un numero intero breve compreso tra ��32.768 e 32.767.

'LONG 4 byte Intero lungo Un numero intero lungo compreso tra ��2.147.483.648 e 2.147.483.647.

'LONGTEXT 1 byte per carattere Da zero a un massimo di 1,2 gigabyte.

'LONGBINARY Binario lungo Come necessario Da zero ad un massimo di 1,2 gigabyte. Utilizzato per oggetti OLE.

'TEXT 1 byte per carattere TESTO Da zero a 255 caratteri.

Private Sub cmdCreate_Click()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim con As ADODB.Connection

' Delete the database if it already exists.

On Error Resume Next
Kill txtDatabaseName.Text
On Error GoTo 0

Kill App.Path & "\Vb52000.Mdb"

' Create the new database.

Set cat = New ADOX.Catalog
cat.Create _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Vb52000.Mdb" & ";"

' Connect to the database.

Set con = cat.ActiveConnection

Dim QR As String
QR = "CREATE TABLE [Autori] ([Autore] char(30), "
QR = QR & "[Societa] char(50), "
QR = QR & "[descrizioneProgetto] MEMO, "
QR = QR & "[Versione] char(12), "
QR = QR & "[data variazione] DATETIME)"
con.Execute QR

' creazione indice

con.Execute "CREATE INDEX Versione ON Autori (Versione);"
con.Execute "CREATE INDEX Data ON Autori ([data variazione]);"

con.Execute "INSERT INTO Autori ( Autore, Societa, descrizioneProgetto, Versione, [data variazione] ) SELECT 'Paolo Puglisi' AS Autore, 'Genio SoftWare' AS Societa, 'Conversione da un progetto di Access 2000 o 97 in un progetto di VB' AS descrizioneProgetto, '2.0.2' AS Versione, Date() AS [data variazione];"

QR = "CREATE TABLE [Tabella] ([IdControl] COUNTER CONSTRAINT IdControl PRIMARY KEY, "
QR = QR & "[IdMaschera] LONG, "
QR = QR & "[Maschera] char(50), "
QR = QR & "[Nome] char(50), "
QR = QR & "[TipoControl] LONG, "
QR = QR & "[Caption] char(50), "
QR = QR & "[Text] char(50), "
QR = QR & "[DataField] MEMO, "
QR = QR & "[RowSourceType] char(50), "
QR = QR & "[RowSource] MEMO, "
QR = QR & "[Left] char(50), "
QR = QR & "[Heigth] char(50), "
QR = QR & "[Top] char(50), "
QR = QR & "[Width] char(50), "
QR = QR & "[Value] char(50), "
QR = QR & "[LinkchildFields] MEMO, "
QR = QR & "[LinkMasterFields] MEMO, "
QR = QR & "[SourceObject] MEMO, "
QR = QR & "[Class] char(50), "
QR = QR & "[Inizialize] MEMO, "
QR = QR & "[Picture] char(150) )"

con.Execute QR

con.Execute "CREATE INDEX Maschera ON Tabella ([IDMaschera]);"

QR = "CREATE TABLE [Maschere] ([IdMaschera] COUNTER CONSTRAINT IdMaschere PRIMARY KEY, "
QR = QR & "[Maschera] char(50), "
QR = QR & "[Menu] char(50), "
QR = QR & "[DatabaseName] MEMO, "
QR = QR & "[Larga] char(50), "
QR = QR & "[DefaultView] char(50), "
QR = QR & "[DataField] MEMO, "
QR = QR & "[Script] MEMO, "
QR = QR & "[Filter] MEMO, "
QR = QR & "[orderBy] char(50), "
QR = QR & "[RecordsetType] char(50), "
QR = QR & "[MinMaxButtons] LONG, "
QR = QR & "[PathDataBase] char(110) )"

con.Execute QR

con.Execute "CREATE INDEX IdMaschera ON Maschere ([IDMaschera]);"
con.Execute "CREATE INDEX Maschera ON Maschere ([Maschera]);"

QR = "CREATE TABLE [Moduli] ([Id] COUNTER CONSTRAINT IdModuli PRIMARY KEY, "
QR = QR & "[Moduli] char(50) )"

con.Execute QR

QR = "CREATE TABLE [Scroll] ([Id] COUNTER CONSTRAINT IdScroll PRIMARY KEY, "
QR = QR & "[Tipo] char(50), "
QR = QR & "[nome] char(50), "
QR = QR & "[BackColor] char(50), "
QR = QR & "[Caption] char(249), "
QR = QR & "[DataSource] char(1), "
QR = QR & "[Datafield] MEMO, "
QR = QR & "[DisplayType] char(50), "
QR = QR & "[ForeColor] char(50), "
QR = QR & "[Height] char(50), "
QR = QR & "[Index] char(50), "
QR = QR & "[Left] char(50), "
QR = QR & "[MaskColor] char(50), "
QR = QR & "[MaxLength] char(50), "
QR = QR & "[MultiLine] char(50), "
QR = QR & "[ScaleMode] char(50), "
QR = QR & "[ScaleHeight] char(50), "
QR = QR & "[ScaleWidth] char(50), "
QR = QR & "[ScrollBars] char(50), "
QR = QR & "[TabIndex] char(50), "
QR = QR & "[Top] char(50), "
QR = QR & "[Visible] char(50), "
QR = QR & "[Width] char(50), "
QR = QR & "[zLeft] LONG, "
QR = QR & "[zTop] LONG )"

con.Execute QR

' con.Execute "CREATE INDEX Id ON Scroll (IDOLD);"

' con.Execute "CREATE INDEX zLeft ON Scroll (zLeft);"

' con.Execute "CREATE INDEX zTop ON Scroll (zTop);"

Set con = Nothing
Set tbl = Nothing
Set cat = Nothing

MsgBox "OK"
End Sub

Private Sub Form_Load()

Dim file_name As String

file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
file_name = file_name & "test.mdb"
txtDatabaseName.Text = file_name

End Sub