[VB6] ottimizzare ricerca in db Access

[Jupy64]

Ciao, la query con la data va impostata in questa maniera:

sql="SELECT * FROM storico WHERE data=#26/07/04#;"

[bottaweb]

Ho provato in questo modo ma mi da errore nella query:

"SELECT * FROM storico WHERE data=#lbdati.Text# ; "

[Jupy64]

Originariamente inviato da bottaweb
Ho provato in questo modo ma mi da errore nella query:

"SELECT * FROM storico WHERE data=#lbdati.Text# ; "

è normale che non ti va!
lbdati è una textbox o una label ?
se è una label

sql="SELECT * FROM storico WHERE data=#" & lbdati.caption & "#;"

se è una textbox

sql="SELECT * FROM storico WHERE data=#" & lbdati.text & "#;"

[bottaweb]

Grande funzia!!! Devo iniziare a studiare seriamente !!!

[bottaweb]

Ciao jupy altro piccolo intoppo . Ho realizzato un modulo all'intero del quale ho creato una subroutine con la quale visializzare una barra di progresso . Quest'ultima è costituita da una picturebox presente in un form . Quando provo a richiamare la Sub del modulo con

ProgressBar Picture, percent

(percent è la percentuale raggiunta)

mi chiama errore nella subroutine del modulo (mi dice che non è possibile accedere alla propietà di picture):


Sub ProgressBar(ByVal Picture As PictureBox, percentage As Integer)
Dim picWidth As Integer
Dim picHeight As Integer
Dim barWidth As Integer
Dim Text As String

picWidth = Picture.ScaleWidth
picHeight = Picture.ScaleHeight
barWidth = (picWidth * percentage) / 100

Picture.Line (0, 0)-(barWidth, picHeight), vbYellow, BF
Picture.Line (barWidth + 1, 0)-(barWidth, picHeight), vbYellow, BF

Text = CStr(percentage) & "%"
Picture.CurrentX = (picWidth - Picture.TextWidth(Text)) / 2
Picture.CurrentY = (picHeight - Picture.TextHeight(Text)) / 2
Picture.Print Text

End Sub

[Jupy64]

ciao, intanto per non incorrere nel rischio di overflow le variabili interne alla sub dichiarale Long , poi se togli il ByVal sarebbe meglio.. per il resto mi sembra che non ci siano problemi..anzi..non c'è ne sono proprio, funziona bene!

[bottaweb]

tutto ok :-)

[bottaweb]

Ciao Jupy . Poichè faccio continui accessi al database in diversi form mi tocca di riscrivere ogni volta per ognuno di essi :
Option Explicit
Private cn As ADODB.Connection 'Oggetto Connection per la connessione al database
Private rs As ADODB.Recordset 'Oggetto Recordset
......
......
......
'Al caricamento della form vengono creati la connessione ed il recordset
'Vengono istanziati gli oggetti ADO Connection e Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'Viene creata la connessione al DataBase MDB
cn.CursorLocation = adUseServer
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db2.mdb;Jet OLEDBatabase;"
'E' il momento di aprire il recordset dei programmatori
rs.CursorLocation = adUseServer

Non c'è un modo per farlo una volta sola usando poi cn e rs per le operazioni di SQL per tutti i forms.
ho provato a renderli gli oggetti ADO pubblici dichiarandoli e settandoli al primo form di apertura che è quello costruito con Wizard di visual basic ma non funzia :-((

[bottaweb]

oppure devo creare un modulo con una sub che restitusce rs e cn ogni volta che ne ho bisogno?

[bottaweb]

Accantoniamo un attimo questo problema guarda questa query:

rs.Open "select COUNT(*) From storico where ruota='nomeruota.Text' AND ( primo='1' OR secondo='1' OR terzo='1' OR quarto='1' OR quinto='1')", cn, adOpenKeyset, adLockOptimistic, adCmdText

totale2 = rs(0)
MsgBox totale2

Voglio determinare il numero di volte che il numero 1 è uscito sulla ruota letta da una delle voci della combo la ma message box non mi stampa niente :-( Questa invece mi funziona:

rs.Open "select COUNT(*) From storico ", cn, adOpenKeyset, adLockOptimistic, adCmdText
totale1 = rs(0)
MsgBox totale1

Nella prima cancello tutta la parte con la AND la query mi restituisce il numero di estrazioni correttamente . DEvo per forza ricorrere ad una funzione per calcolare la frequenza dei numeri?

grazie a chiunque possa aiutarmi