Ceskho ha scritto:
hres è dichiarato?

picavbg ha scritto:

Citazione

RiCi12 ha scritto:
.......................

Codice: [Seleziona]

nomedb = "registro_del_prof_" & user.Name
  path = user.Home
  WITH $hConn
    .type = "sqlite3"
    .host = path
  END WITH 
  $hConn.name = nomedb
  classesel = lstclassi.Text
  lstmat.Clear()
  $hConn.Open()
  sql = "SELECT * FROM mat WHERE classi2 LIKE classesel"
  hres = $hConn.exec(sql)
  FOR EACH hres
    lstmat.Add(hres!mat)
  NEXT 
  $hConn.Close()

Uso da poco Sqlite3 e quindi lo conosco altrettanto poco, però secondo me il problema é dentro l'istruzione 'sql=' dove leggo l'uso della funzione LIKE, la quale permette la ricerca di tutti quegli elementi di tabella "classi2" il cui contenuto comprenmda almeno un crt della variabile "classesel". Ecco, mi pare che LIKE desideri che la stringa da ricercare sia compresa fra due "*". Poiché "classesel" contiene un valore proveniente da  "lstclassi.Text", può darsi che manchino proprio gli "*" di delimitazione voluti dalla funzione LIKE. Potresti perciò modificare l'istruzione "sql=" nella seguente:

Codice: [Seleziona]

sql = "SELECT * FROM mat WHERE classi2 LIKE" & "*" & "classesel" & "*"

e riprovare.
Magari, quello che ho notato non c'entra niente, ma provare non fa mai male.  :-)  :ciao:

sql = "SELECT * FROM voti WHERE materia2 LIKE '" & materiasel & "'"

PUBLIC SUB Form_Open()
  nomedb = "registro_del_prof_" & user.Name
  path = user.Home
    
  WITH $hConn
    .type = "sqlite3"
    .host = path
  END WITH 
 
  $hConn.Open()
  IF NOT $hConn.Databases.Exist(nomedb) THEN
    $hConn.databases.Add(nomedb)
    $hConn.name = nomedb

    $hConn.Close()

    $hConn.Open()
    
    sql = "CREATE TABLE 'classe' ('id' INTEGER PRIMARY KEY, 'classi' VARCHAR(255) DEFAULT NULL);"
    htable = $hConn.exec(sql)
    sql = "CREATE TABLE 'mat' ('id' INTEGER PRIMARY KEY, 'classi2' VARCHAR(255) DEFAULT NULL, 'materia' VARCHAR(255) DEFAULT NULL);"
    htable = $hConn.exec(sql)
    sql = "CREATE TABLE 'stud' ('id' INTEGER PRIMARY KEY, 'classi3' VARCHAR(255) DEFAULT NULL, 'stud' VARCHAR(255) DEFAULT NULL);"
    htable = $hConn.exec(sql)
    sql = "CREATE TABLE 'voti' ('id' INTEGER PRIMARY KEY, 'materia2' VARCHAR(255) DEFAULT NULL, 'voto' VARCHAR(255) DEFAULT NULL, 'stud2' VARCHAR(255) DEFAULT NULL);"
    htable = $hConn.exec(sql)
    $hConn.Close()
ELSE  
  lstclassi.Clear()
  $hConn.Close()
  $hConn.Open()
  sql = "SELECT * FROM classe"
  hres = $hConn.exec(sql)
  FOR EACH hres
    lstclassi.Add(hres!classi)
  NEXT 
  $hConn.Close() 
   
ENDIF 
END

carletto66 ha scritto:
Grazie mille!!! Mi avete aiutato veramente moltissimo!
un'altra domandina........come faccio a cambiare la dimensione delle colonne e delle righe?
Grazie :-D

Ceskho ha scritto:
@ RiCi12

Posso darti un consiglio? Molto spesso quando si programma si da per scontato che la memoria di un computer sia infinita. Certo, per chi magari scrive programmi che richiedono poca memoria il problema della stessa non sussiste, però cosa accadrebbe se programmatori del calibro di quelli di Firefox o OpenOffice si mettessero a dichiarare più variabili di quante in realtà ne servano?

Sarebbe buona norma alle volte ottimizzare il codice magari rinunciando un pochetto alla leggibilità.

Ciò che hai fatto tu può essere riassunto in un solo passaggio

Codice: [Seleziona]

print message (isnumber(value(textbox1.text)))

All'università iniziano a farti pensare anche in questi termini e tutto sommato non è una brutta cosa...

@ tornu

figurati...