PDA

Visualizza la versione completa : [VB] Query su database


RegginA
01-11-2002, 13:01
Ciao,
mi sono connesso ad un database tramite un controllo ADO ed ora vorrei fare un query che estragga dei records in base ad una data inpostata in una textbox. come posso fare?

La data č impostata in una textbox all'apertura del form, ma se l'utente la cambia vorrei che automaticamente aggiornasse la query.

Qualcuno mi aiuta: sono un principiante!


Grazie

RegginA
01-11-2002, 18:12
:quote:

xegallo
01-11-2002, 19:05
Originariamente inviato da RegginA
Ciao,
mi sono connesso ad un database tramite un controllo ADO ed ora vorrei fare un query che estragga dei records in base ad una data inpostata in una textbox. come posso fare?

La data č impostata in una textbox all'apertura del form, ma se l'utente la cambia vorrei che automaticamente aggiornasse la query.

Qualcuno mi aiuta: sono un principiante!


Grazie
"select[campi da selezionare] from [nome tabella] where [campo con criterio] = '" & text1.text & "'"

per cambiarla quando l'utente cambia il valore text box usa l'evento change

RegginA
02-11-2002, 00:15
Si, la query la sapevo fare.
Il problema č che non so dove metterla.

Cos'č l'evento change?

Grazie

xegallo
02-11-2002, 00:54
Originariamente inviato da RegginA
Si, la query la sapevo fare.
Il problema č che non so dove metterla.

Cos'č l'evento change?

Grazie
l'oggetto textbox ha l'evento change che si verifica ogni qual volta la textbox cambia la sua proprietā text
tu puoi associare a questo elenco una funzione per verificare se č una data valida alchč lanciare la query SQL

RegginA
02-11-2002, 11:43
Premetto che programmavo in asp e che ho iniziato con Vb l'altro ieri.
Nelle proprietā della textbox non c'č l'evento change e se provo a scrivere nel codice text1.change non me lo da nemmeno.
Ti puoi spiegare meglio?
E la query sql come la lancio?
Se scrivo adodc1.recordsource = "select * .........."
mi da un errore che mi dice che la sorgente dei dati di adodc1 non č impostata

xegallo
02-11-2002, 13:24
' copia in un form
Private Sub Text1_Change()
Dim rs As ADODB.Recordset
Dim sSql As String
If IsDate(Text1.Text) = True Then
sSql = "select [nome campi] from [Nome tabella] where [campo con criterio] = '" & CDate(Text1.Text) & "'"
rs.Open sSql
'esegui le operazioni sul recordset
rs.Close
End If
End Sub

RegginA
02-11-2002, 13:44
Per far apparire i dati in un datagrid come faccio?

xegallo
02-11-2002, 13:52
non uso mai griglie cmq credo che nelle proprietā del datagrid
ci sia una data source o una data member

Loading