[RISOLTO] gb.gridbox Errore in update

[Taurus dei miracoli]

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 è:

Codice: gambas [Seleziona]

Public Sub btElimina_Click()
  
  GridBox1.DeleteRecord(GridBox1.Row)
  
End

Per rendere definitiva l'eliminazione schiaccio il pulsante Salva che ha il seguente codice:

Codice: gambas [Seleziona]

Public Sub btSalva_Click()
  
  GridBox1.Update()
  
End

A questo punto ricevo un errore:

Query failed: SQL error or missing database

 

[milio]

mi puoi postare il codice dove hai settato la GridBox?

[Taurus dei miracoli]

Il codice dove ho settato la gridbox1 è il seguente:

Codice: gambas [Seleziona]

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

[Golia]

Non so se centra, di solito io metto il codice nell'evento Public Sub _new()

[Taurus dei miracoli]

Non so se centra, di solito io metto il codice nell'evento Public Sub _new()

Ho provato ma continua a darmi l'errore.

[milio]

Nel whit Columns[0] aggiungici .IsFieldKey = true

[Taurus dei miracoli]

Nel whit Columns[0] aggiungici .IsFieldKey = true

Grandissimo...
...provato e funziona.