{"id":213,"date":"2009-11-26T11:19:00","date_gmt":"2009-11-26T11:19:00","guid":{"rendered":"http:\/\/e-ware.org\/blog\/?p=213"},"modified":"2009-11-26T11:19:00","modified_gmt":"2009-11-26T11:19:00","slug":"didattica-gambas-creare-database-al-primo-avvio","status":"publish","type":"post","link":"http:\/\/e-ware.org\/blog\/didattica-gambas-creare-database-al-primo-avvio\/","title":{"rendered":"Didattica Gambas – Creare database al primo avvio"},"content":{"rendered":"
Quando si crea un software che lavora in stretta connessione con un database, molto spesso quest’ultimo lo si crea precedentemente e poi lo si copia nella cartella di destinazione una volta installato il nostro programma. Questa tecnica \u00e8 molto pratica ma costringe l’utente finale a dover eseguire delle operazioni in pi\u00f9 che potrebbero essere evitate. Allora come fare?<\/span><\/p>\n

E’ possibile ricorrere alla sub _new di Gambas che permette di gestire tutti quelli eventi che si presentano prima di avviare il form.<\/span><\/p>\n

Posto qui il codice e lo studieremo passo passo.<\/span><\/div>\n


<\/span><\/p>\n

   '-- nome database<\/span><\/span>
sName AS String = \"tabella\"                       <\/span>
   '-- percorso database
<\/span><\/span>sPercorso AS String = User.Home &\/ \".database\"<\/span>
   '-- nuova classe connessione database
<\/span><\/span>$hConn AS NEW Connection                    
<\/span>   '-- query di creazione database<\/span><\/span>
sql AS String                               
<\/span>   '-- risultato della connessione<\/span><\/span>
hres AS Result                              

PUBLIC SUB _new()

'-- se la cartella non esiste la crea
IF NOT Exist(sPercorso) THEN MKDIR sPercorso

'-- se il database non esiste lo crea

'-- Imposta i parametri di connessione
WITH $hConn
.Type = \"sqlite3\"
.Host = sPercorso
.Login = \"\"
.Password = \"\"
END WITH

'-- testa esistenza database
$hConn.Open

'-- se non esiste crea il nuovo database
IF NOT $hConn.Databases.Exist(sName) THEN
$hConn.Databases.Add(sName)
$hConn.Close
$hConn.Name = sName
$hConn.Open()
'-- da uno scheletro alla tabella
sql = \"CREATE TABLE 'tabella' <\/span><\/pre>\n
         ( 'id' INTEGER PRIMARY KEY,
      'nome1' VARCHAR(255) DEFAULT NULL,
      'nome2' VARCHAR(255) DEFAULT NULL,
      'nome3' VARCHAR(255) DEFAULT NULL,
      'nome4' VARCHAR(250) DEFAULT NULL,
      'nome5' VARCHAR(4) DEFAULT NULL,
      'nome6' VARCHAR(10) DEFAULT NULL,
      'nome7' VARCHAR(4) DEFAULT NULL);\"
hres = $hConn.EXEC(sql)
$hConn.Commit
END IF

'-- chiude la connessione
$hConn.Close

END<\/span><\/pre>\n

<\/span><\/p>\n
Iniziamo col vedere semplicemente che sono state dichiarate delle variabili a a livello globale che ci permetteranno una facilitazione a livello di codice.<\/span><\/p>\n
Analizziamo la sub <\/span>_new<\/span>. Esso prima di tutto testa l’esistenza della cartella nascosta <\/span>.database<\/span> presente nella Home dell’utente. Se tale cartella esiste il programma si avvia normalemente altrimenti la crea. Se essa manca, si intuisce facilmente che vuol dire che \u00e8 il primo avvio di tale programma o che essa \u00e8 stata cancellata e perci\u00f2 deve essere ricreata.<\/span><\/p>\n
Una volta terminata la parte inerente la cartella si passa all’analisi della presenza del database. Per tale controllo si parte con l’impostazione dei vari parametri. Dalla voce <\/span>.Type<\/span> si pu\u00f2 vedere che in questo caso si sta usando un database di tipo sqlite e pertanto dobbiamo fare riferimento alla sintassi sql esatta. Una volta terminate le impostazioni si apre la connessione col databse mediante <\/span>$hConn.Open()<\/span>.<\/span>
Qui il codice analizza l’esistenza della tabella; qualora essa non sia presenta ne crea una nuova, chiude la connessione, reimposta il nome e apre la connessione per poterla creare e popolare.<\/span><\/p>\n
Ora tutto ci\u00f2 che bisogna fare e studiare la sintassi della stringa <\/span>sql<\/span> che verr\u00e0 poi passata come parametro e letta come una query. Mediante <\/span>CREATE TABLE<\/span> crea la tabella all’interno del database di nome ‘tabella’ nella quale verranno create le apposite voci nome1, nome2, nome3, ….etc.<\/span><\/p>\n
Per praticit\u00e0 preferisco sempre lavorare con voci di tipo striga che poi converto in fase di lettura. Per far ci\u00f2 basta specificare la lunghezza della stringa voluta passandola come parametro alla voce <\/span>VARCHAR(lunghezza)<\/span>. Si nota che per molte voci tale lunghezza \u00e8 255; alcune voci invece riportano una lunghezza diversa, questo \u00e8 dovuto al fatto che sapendo preventivamente quanto sarebbe stata lunga tale stringa ho reputato opportuno dimensionarla con il valore esatto per una migliore gestione dello spazio disponibile.<\/span><\/p>\n
Finita la creazione della query la si passa come parametro e si chiude la connessione con il database. Fatto ci\u00f2 \u00e8 tutto pronto e il programma pu\u00f2 partire avendo a disposizione tutti gli elementi utili.<\/span><\/p>\n
Con poche righe di codice \u00e8 possibile evitare al nostro utente un lavoro in pi\u00f9 e si pu\u00f2 dare al nostro software un aspetto pi\u00f9 “professionale”.<\/span><\/div>\n

ATTENZIONE: La query sql \u00e8 stata scritta su pi\u00f9 righe per motivi grafici. Quella stringa va scritta tutta insieme o divisa mediante gli opportuni separatori di stringa.<\/p>\n
<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"
Quando si crea un software che lavora in stretta connessione con un database, molto spesso quest’ultimo lo si crea precedentemente e poi lo si copia nella cartella di destinazione una volta installato il nostro programma. Questa tecnica \u00e8 molto pratica ma costringe l’utente finale a dover eseguire delle operazioni in pi\u00f9 che potrebbero essere evitate. […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[52,23,4,17],"tags":[],"class_list":["post-213","post","type-post","status-publish","format-standard","hentry","category-didattica","category-gambas","category-opencode","category-sql-database"],"views":2734,"_links":{"self":[{"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/posts\/213","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/comments?post=213"}],"version-history":[{"count":0,"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/posts\/213\/revisions"}],"wp:attachment":[{"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/media?parent=213"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/categories?post=213"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/e-ware.org\/blog\/wp-json\/wp\/v2\/tags?post=213"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}