[VB] Query su database

[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

[RegginA]

:quote:

[xegallo]

[supersaibal]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 [/supersaibal]

"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]

Si, la query la sapevo fare.
Il problema è che non so dove metterla.

Cos'è l'evento change?

Grazie

[xegallo]

[supersaibal]Originariamente inviato da RegginA
Si, la query la sapevo fare.
Il problema è che non so dove metterla.

Cos'è l'evento change?

Grazie [/supersaibal]

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]

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]

' 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]

Per far apparire i dati in un datagrid come faccio?

[xegallo]

non uso mai griglie cmq credo che nelle proprietà del datagrid
ci sia una data source o una data member