19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
è più facile di quello che si creda 
TextArea2.Font.Name = "Sawasdee"Per mancanza di tempo non posso darti una mano, però mi permetto di suggerirti alcune cose:
1) valuta attentamente e bene se il gioco vale la candela. Cioè, indaga prima se le biblioteche siano disposte oppure no a cambiare software. Spesso ciò che si vede è solo la punta dell'iceberg di ciò che potrebbero avere sotto, cioè altri programmi che le legano a Windows.
2) Sai che tipo di DB usano i programmi di quelle biblioteche? E' un formato apribile anche da Gambas? Puoi fare un software per trasportare il DB sul tuo programma, una volta realizzato? Altrimenti NESSUNO si prenderà la briga di inserire tutti i libri a mano partendo da zero.
3) Per l'interrogazione potresti semplicemente fare una connessione con un tunnel cifrato verso un altro computer ed interrogare il DB con l'ISBN del libro. Mi pare la cosa più sicura e facile. Puoi dare un'occhiata agli esempi di Gambas: ce n'è proprio uno (che usai anch'io tempo fa per fare un software di comunicazione) che apre un server ed un client anche su IP differenti e fa dialogare le 2 entità.
una cosa che gira all'interno della schermata di dos molto bruttina, vagamente come questa per intenderci 
ti basta inserire una struttura If che controlla la posizione del cursorepotresti farmi un esempio per piacere?
sql = "SELECT * FROM biblio WHERE titolo COLLATE NOCASE = '" & Aggiungi.TextBox2.Text & "';"
PUBLIC sName AS String = "libri"
PUBLIC sPercorso AS String = User.home
PUBLIC $hConn AS NEW Connection
PUBLIC sql AS String
PUBLIC hTable AS Result
PUBLIC hres AS Result
PUBLIC i AS Integer
PUBLIC id AS String
PUBLIC irow AS Integer
PUBLIC PROCEDURE Checkdatab()
WITH $hConn
.Type = "sqlite3"
.Host = sPercorso
.Login = ""
.Password = ""
.Name = sName
END WITH
$hConn.Open
IF NOT $hConn.Databases.Exist(sName) THEN
$hConn.Databases.Add(sName)
$hConn.Close
$hConn.Name = sName
$hConn.Open
sql = "CREATE TABLE biblio ( id INTEGER PRIMARY KEY, titolo VARCHAR(255) DEFAULT NULL, autore VARCHAR(255) DEFAULT NULL, annolettura VARCHAR(255) DEFAULT NULL, voto INTEGER DEFAULT NULL, commento VARCHAR(255) DEFAULT NULL); "
hTable = $hConn.EXEC(sql)
$hConn.Close
ELSE
$hConn.Close
ENDIF
END .Name = sName
END WITH
[b] $hConn.Open[/b]
IF NOT $hConn.Databases.Exist(sName) THEN
$hConn.Databases.Add(sName)
) sql = "SELECT * FROM biblio WHERE titolo LIKE '%" & Aggiungi.TextBox2.Text & "%'"
hres = $hconn.Exec(sql)
FOR EACH hres
IF hres!titolo = Aggiungi.TextBox2.Text THEN
Message.Info("Libro già presente nel database", "Ok")
BREAK
ENDIF
NEXT
IF NOT hres.Available THEN
$hconn.Begin
hres = $hconn.Create("biblio")
hres!titolo = Aggiungi.TextBox2.Text
hres!autore = Aggiungi.TextBox3.Text
hres!annolettura = Aggiungi.TextBox4.Text
hres!commento = Aggiungi.TextArea1.Text
hres.Update
$hConn.Commit
$hConn.Close
Aggiungi.TextBox2.text = ""
Aggiungi.TextBox3.text = ""
Aggiungi.TextBox4.text = ""
Aggiungi.TextArea1.Text = ""
Message.Info("Libro aggiunto al database", "Ok")
ENDIF
ENDIF
END