[VB6] sintassi query select where count

[lorance06]

Ciao a tutti
Ho studiato il linguaggio sql da questo sito e ho provato a realizzare qualcosa.
Nel mio caso ho un database con codice libro titolo autore numero pagine e prezzo.
Con count vorrei sapere quanti libri sono presenti nel database e ho provato a scrivere:

dim numero libri as integer
private sub command1_click()
numerolibri="Select Count(*) From Biblioteca"
label1.caption=numerolibri
end sub

Mi dice tipo non corrispondente....

secondo problema.....se provo a fare una select volendo visualizzare in una combobox una lista di libri che hanno il prezzo > 10,00 provo a scrivere:

Private Sub Command9_Click()
Data1.RecordSource = "Select * From Biblioteca Where Prezzo > '10,00'"
Data1.Refresh
Do Until Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset!Titolo
Data1.Recordset.MoveNext
Loop
End Sub

mi dice tipo di dati non corrispondenti nell'espressione criterio....

se invece faccio:

Private Sub Command9_Click()
Data1.RecordSource = "Select * From Biblioteca Where Titolo = 'non ci siamo'"
Data1.Refresh
Do Until Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset!Titolo
Data1.Recordset.MoveNext
Loop
End Sub

nella list mi esce non ci siamo....... dove sbaglio?

[oregon]

Se Prezzo e' un numero non va tra apici

"Select * From Biblioteca Where Prezzo > 10.00"

[lorance06]

Mi dice che devo mettere 'Prezzo> 10,00' cos' facendo è coem se Where non ci fosse perchè me li visualizza tutti nella combo

[oregon]

Originariamente inviato da lorance06
Mi dice che devo mettere 'Prezzo> 10,00' cos' facendo è coem se Where non ci fosse perchè me li visualizza tutti nella combo

Ti dice ... chi ... ? E cosa ?

[lorance06]

ho scritto come hai detto e cioè
Data1.RecordSource = "Select * From Biblioteca Where Prezzo>10,00 "
mi dice: errore di sintassi(virgola) nell'espresione della query 'Prezzo>10,00'.
se provo a scrivere come dice vb e cioè 'Prezzo >10,00' mi escono tutti i titoli nella combo

[oregon]

NON hai scritto come ho detto io ... tu hai messo una virgola, io avevo messo un punto ... fai attenzione alle risposte ...

[lorance06]

ma nel database i prezzi sono messi con la virgola, se funziona come dici la cambio nel database

[oregon]

No ... nel database i dati sono memorizzati in virgola mobile, non c'e' "fisicamente" ne' la virgola ne' il punto.

E' il motore del database che accetta i valori decimali con il punto ... prova senza fare altro e facci sapere.

[lorance06]

oky perfetto funziona così. E se volessi inserire il prezzo con un InputBox
trova as integer
trova = InputBox("Inserisci prezzo")
Data1.RecordSource = "Select * From Biblioteca Where Prezzo>trova "
Data1.Refresh
Do Until Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset!Titolo
Data1.Recordset.MoveNext
Loop

Mi dice: parametri insufficienti. Previsto 1.

[oregon]

trova e' una variabile ... non puoi inserirla all'interno di una stringa costante ...