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.
Questo risultato è possibile farlo con gridbox, negli esempi c'è proprio una colonna con un checkbox. Se hai bisogno di spiegazioni sono disponibile
Ciao Andy
' Gambas module file
Public FormPrincipale As Form
Public Sub main()
Dim MMenu, chiudi As Menu
FormPrincipale = New Form
MMenu = New Menu(FormPrincipale)
chiudi = New Menu(MMenu) As "chiudi"
With FormPrincipale
.h = 200
.w = 400
.Background = Color.Blue
End With
With MMenu
.Visible = True
.Show
.Enabled = True
.Text = "PRINCIPALE"
End With
With chiudi
.Text = "CHIUDI"
.show
End With
FormPrincipale.Show
FormPrincipale.Menus.Visible = True
End
Public Sub chiudi_Click()
FormPrincipale.Close
End
Public Sub main()
Dim FormPrincipale As Form
Dim MMenu As Menu
FormPrincipale = New Form
MMenu = New Menu(FormPrincipale)
With FormPrincipale
.h = 200
.w = 400
.show()
.Center()
.Menus.Visible = True
End With
With MMenu
.Visible = True
.Show
.Enabled = True
.Caption = "PROVA"
.Text = "CIAO"
End With
End
prova così:Codice: gambas [Seleziona]Percorso = Application.Path
Datanome = "/ordini"
edit:
ti consiglio di impostare la query cosìCodice: gambas [Seleziona]
sql = "CREATE TABLE 'fornitori' ("
sql &= " 'idfornitore' INTEGER PRIMARY KEY,"
sql &= " 'fornitore' varchar(30) DEFAULT NULL,"
sql &= " 'ragionesociale' varchar(30) DEFAULT NULL,"
sql &= " 'telefono' varchar(15) DEFAULT NULL,"
sql &= " 'indirizzo' varchar(30) DEFAULT NULL,"
sql &= " 'citta' varchar(30) DEFAULT NULL,"
sql &= " 'cap' varchar(8) DEFAULT NULL,"
sql &= " 'provincia' varchar(20) DEFAULT NULL,"
sql &= " 'telefono2' varchar(15) DEFAULT NULL,"
sql &= " 'fax' varchar(15) DEFAULT NULL,"
sql &= " 'email' varchar(30) DEFAULT NULL,"
sql &= " 'note' varchar(400) DEFAULT NULL,"
Risultato = Conn.Exec(sql)
PUBLIC Percorso AS String
PUBLIC Datanome AS String
PUBLIC Conn AS NEW Connection
PUBLIC Risultato AS Result
PUBLIC SUB Main()
Connessione()
END
PUBLIC SUB Connessione()
DIM sql AS String
Percorso = Application.Path
Datanome = "ordini"
WITH Conn
.Name = Datanome
.Host = Percorso
.Type = "Sqlite3"
.Login = ""
.Password = ""
END WITH
TRY Conn.Open()
IF ERROR THEN
Conn.Databases.Add("ordini")
sql = "CREATE TABLE fornitori (ID INTEGER AUTO_INCREMENT PRIMARY KEY, fornitore VARCHAR(50))"
Risultato = Conn.Exec(sql)
ENDIF
END
evviva anche Ceskho altrimenti si arrabbia 