"Type mismatch: wanted Float, got string instead"
Il campo nella tabella in sqlite è di tipo "date"
Allora ho provato a collegarmi al un db mysql..e quà mi sono piantato..di brutto
Ho creato un db nuovo, ho collegato il db così
modulo Conn
PUBLIC $CCon AS NEW Connection
PUBLIC SUB connmydb()
WITH $CCon
.Type = "mysql"
.Host = "localhost"
.Login = "root"
.Port = "3306"
.Name = "prova"
.Password = "miapassw"
END WITH
END
nel form
PUBLIC SUB _new()
Conn.connmydb()
WITH GridEdit1
.Expand = TRUE
.Connection = Conn.$CCon
.AutoDataType = TRUE
.FieldKey = ["iddettaglio"]
.Columns.Count = 6
.TableName = "dettagli"
.LoadData("select * from dettagli ORDER BY iddettaglio")
END WITH
WITH GridEdit1.Columns[0]
.Hide = FALSE
.Type = Grid.Type.Field
.Field = "iddettaglio"
.DataType = Grid.DataType.Serial
.Text = "ID"
.w = 40
END WITH
WITH GridEdit1.Columns[1]
.Hide = FALSE
.Type = Grid.Type.Field
.Field = "codice"
.Text = "Codice"
.DefaultValue = "cod20"
.w = 80
END WITH
WITH GridEdit1.Columns[2]
.Hide = FALSE
.Type = Grid.Type.Field
.Field = "descrizione"
.Text = "Descrizione"
.w = 300
END WITH
WITH GridEdit1.Columns[3]
.Hide = FALSE
.Type = Grid.Type.Field
.Field = "quantita"
.Text = "quantita"
.Alignment = 2
.w = 80
END WITH
WITH GridEdit1.Columns[4]
.Hide = FALSE
.Type = Grid.Type.Field
.Field = "prezzo"
.Text = "Prezzo"
.DefaultValue = "0"
.Format = "$,0.00"
.Alignment = 2
.w = 80
END WITH
WITH GridEdit1.Columns[5]
.Hide = FALSE
.Type = Grid.Type.Field
.Field = "numeratore"
.Text = "riga"
.w = 40
END WITH
WITH GridEdit1
.FieldReordering = "numeratore" ' campo numerico di riordine = float o decimal
.UpdateReording = TRUE ' false non riordina e mette es. 10.5 , true riordina il campo FieldReordering
.AlwaysEditable = TRUE ' sempre editabile
.KeyActivity = TRUE ' attiva funzione key
.ReadOnly = FALSE ' solo lettura
.AutoNew = TRUE '
END WITH
END
Il collegamento funziona , ho provato a fare:
PUBLIC SUB ToggleButton1_Click()
DIM sql AS String
sql = "insert into dettagli (codice, descrizione, prezzo, numeratore ) values ('29', 'gigi', '0', '1')"
conn.$CCon.EXEC(sql)
END
e mi inserisce il primo record. Se apro il form la grid me lo visualizza e anche mi permette di scrivere altre righe, però non salvare o aggiornare il primo record. L'errore è del tipo "query failed..."
Devo staccare un pò e riguardarmi il tutto a freddo
adesso sono in tilt
