devo rimettere mano a un vecchio progetto e data la mia ruggine ci sto sbattendo la testa sulla creazione di una tabella.
If $hconn.Tables.Exist("monete") = True Then
Message.info("la tabella monete esiste")
Else
sql = "CREATE TABLE monete ("
sql &= "id INT NOT NULL auto_increment,"
sql &= "codice VARCHAR(255) DEFAULT NULL,"
sql &= "moneta VARCHAR(255) DEFAULT NULL,"
sql &= "nazione VARCHAR(255) DEFAULT NULL,"
sql &= "gruppo VARCHAR(255) DEFAULT NULL,"
sql &= "anno INT DEFAULT NULL,"
sql &= "denominazione VARCHAR(255) DEFAULT NULL,"
sql &= "inizioproduzione VARCHAR(255) DEFAULT NULL,"
sql &= "fineproduzione VARCHAR(255) DEFAULT NULL,"
sql &= "tiratura VARCHAR(255) DEFAULT NULL,"
sql &= "metallo VARCHAR(255) DEFAULT NULL,"
sql &= "peso double(7,2) DEFAULT 0,"
sql &= "titolo double(7,2) DEFAULT 0,"
sql &= "puro double(7,2) DEFAULT 0,"
sql &= "ritratto VARCHAR(255) DEFAULT NULL,"
sql &= "testo VARCHAR(255) DEFAULT NULL,"
sql &= "autore VARCHAR(255) DEFAULT NULL,"
sql &= "diametro double(7,2) DEFAULT 0,"
sql &= "spessore double(7,2) DEFAULT 0,"
sql &= "conservazione VARCHAR(255) DEFAULT NULL,"
sql &= "numismatica VARCHAR(255) DEFAULT NULL,"
sql &= "vietata VARCHAR(255) DEFAULT NULL,"
sql &= "descrizione TEXT,"
sql &= "disponibilita VARCHAR(255) DEFAULT NULL,"
sql &= "magazzino INT DEFAULT NULL,"
sql &= "sovrapressoacquisto VARCHAR(255) DEFAULT NULL,"
sql &= "sovraprezzovendita VARCHAR(255) DEFAULT NULL,"
sql &= "scontocommercianti double(7,2) DEFAULT 0,"
sql &= "set VARCHAR(255) DEFAULT NULL,"
sql &= "fotoa TEXT,"
sql &= "fotob TEXT,"
sql &= "note TEXT,"
sql &= "PRIMARY KEY(id)"
sql &= ")ENGINE = InnoDB AUTO_INCREMENT = 0 DEFAULT CHARSET = latin1;"
hres = $hConn.EXEC(sql)
$hConn.Commit
hres = $hConn.EXEC(sql)
$hConn.Commit
Endif