16
OpenBar / Re: saluti a tutti
« il: 08 Giugno 2014, 21:03:20 »
ok..ok
capito...
purtroppo temo abbia ragione vuott....
fa niente...
capito...
purtroppo temo abbia ragione vuott....
fa niente...
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
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.
Public Sub creatabella()
Dim n As Byte
Dim sql As String
Dim htable As Result
sql = "CREATE TABLE 'db' ("
sql &= " 'id_db' varint(10) default null," ' con 0 non cambia niente
sql &= " 'nome' varchar(20) DEFAULT NULL,"
sql &= " 'cognome' varchar(20) DEFAULT NULL,"
sql &= " 'citta_n' varchar(30) DEFAULT NULL,"
sql &= " 'nato_il' varchar(15) DEFAULT NULL,"
sql &= " 'citta_m' varchar(30) DEFAULT NULL,"
sql &= " 'morto_il' varchar(15) DEFAULT NULL,"
sql &= " 'padre' varchar(20) DEFAULT NULL,"
sql &= " 'madre' varchar(20) DEFAULT NULL,"
For n = 1 To 20
sql &= " 'figlo_n_" & n & "' varchar(20) DEFAULT NULL,"
Next
sql &= " 'moglie' varchar(20) DEFAULT NULL,"
sql &= " 'sposato_il' varchar(20) DEFAULT NULL,"
sql &= " 'varie' varchar(100) DEFAULT NULL,"
sql &= " 'foto' varchar(500) DEFAULT NULL);"
hTable = $conn.Exec(sql)
$conn.Commit
$conn.Close
End
Public Sub btn_salva_Click()
Dim id As Integer
Print c_var.send_row
MyRS.MoveTo(c_var.send_row)
MyRS = gestisci_db.$conn.Edit("db", "id_db=" & c_var.send_row)'<--------------------qui
' If MyRS.Available = True Then
MyRS!id_db = c_var.send_row
MyRS!cognome = tb_cognome.Text ' salvo nel record selezionato i vari campi
MyRS!nome = tb_nome.Text
MyRS!citta_m = tb_citta_m.Text
MyRS!citta_n = tb_citta_n.Text
MyRS!madre = tb_madre.Text
MyRS!moglie = tb_moglie.Text
MyRS!morto_il = tb_morto_il.Text
MyRS!nato_il = tb_nato_il.Text
MyRS!padre = tb_padre.Text
MyRS!sposato_il = tb_sposato_il.Text
MyRS!varie = tb_varie.Text
MyRS.Update ' aggiorno
gestisci_db.$conn.Commit
gestisci_db.$conn.Close
'Endif
End