Ho installato gb.gridbox grazie all'aiuto di Golia prendendo i sorgenti inseriti pochi giorni fa nella discussione da milio.
Sono riuscito a creare correttamente la gridbox anche grazie alla guida presente in Wiki.
Ho inserito i pulsanti "Salva", "Annulla", "Elimina".
Quando schiaccio il pulsante Elimina la riga si colora di azzurro, il codice inserito è:
Public Sub btElimina_Click()
GridBox1.DeleteRecord(GridBox1.Row)
End
Per rendere definitiva l'eliminazione schiaccio il pulsante Salva che ha il seguente codice:
Public Sub btSalva_Click()
GridBox1.Update()
End
A questo punto ricevo un errore:
Query failed: SQL error or missing database
:'( :'( :'( :'( :'(
Il codice dove ho settato la gridbox1 è il seguente:
Public Sub Form_Open()
Dim sql As String
Dim hres As Result
Me.Center
With MSysFatt.$hConn
.Type = "sqlite3"
.Host = MSysFatt.sPercorso
MSysFatt.pConnetti()
End With
With GridBox1.Columns[0]
.Hide = True
.Type = Grid.Type.Field
.Field = "id"
.DataType = Grid.DataType.Serial
.Text = "ID"
End With
With GridBox1.Columns[1]
.Hide = False
.Type = Grid.Type.Field
.Field = "codiceiva"
.Text = "Codice"
.w = 80
End With
With GridBox1.Columns[2]
.Hide = False
.Type = Grid.Type.Field
.Field = "descrizione"
.Text = "Descrizione"
.w = 240
End With
With GridBox1.Columns[3]
.Hide = False
.Type = Grid.Type.Field
.Field = "aliquotaiva"
.Text = "% IVA"
.w = 75
End With
With GridBox1.Columns[4]
.Hide = False
.Type = Grid.Type.Field
.Field = "detraibilita"
.Text = "% detr."
.w = 75
End With
With GridBox1
.Expand = True
.Connection = MSysFatt.$hConn
.AutoDataType = True
.TableName = "codiciiva"
.LoadData("SELECT * FROM codiciiva ORDER BY codiceiva;")
.UpdateReording = True
.AlwaysEditable = True
.KeyActivity = True
.ReadOnly = False
.AutoNew = True
End With
End
Inoltre devo dire che tale errore me lo da' anche se voglio modificare qualche campo, nel momento in cui schiaccio il tasto "Salva"
PS: colgo l'occasione di farti i complimenti per il lavoro che hai fatto :2birre: