Query con più condizioni WHERE e valori prelevati da TextBox

[printlist]

Salve ragazzi ho bisogno sempre per cortesia di un aiutino.il mio problemino è questo.Ho un Form con un pulsante e 3 textbox sulla prima textbox vado ad effettuare una ricerca per un nome qualsiasi contenuto nel database e fino a qui tutto OK ecco sottoindicato il codice che uso:

Private Sub XPButton1_Click()

Dim Strsql As String

Strsql = "Select * from Rubrica Where O_F = '" & XPText1.Text & "'
Stampa2 Strsql
End Sub

Io vorrei se possibile aggiungere a questa query un'altro criterio ciè quello di filtrare il record anche in un intervallo di date che dovrei inserire nelle altre due textbox rimanenti.Ho provato con questo codice ma niente, qualcuno sa gentilmente correggermi grazie:

Strsql = "Select * from Rubrica Where O_F = '" & XPText1.Text & "'And "BETWEEN #" & Format$(text1.text, "mm/dd/yyyy") & "#And #" & Format$(text2.text, "mm/dd/yyyy") & "#"
Stampa2 Strsql
End Sub

grazie anticipatamente
:master: :master:

[yyzyyz]

io ricevo un errore sulla stringa sql, prova così:

Strsql = "Select * from Rubrica Where O_F = '" & XPText1.Text & "' And BETWEEN #" & Format$(Text1.Text, "mm/dd/yyyy") & "# And #" & Format$(Text2.Text, "mm/dd/yyyy") & "#"

scusa ma "Stampa2" è un recordset ? xchè nn lo utilizzi in questo modo :
Stampa2.Open Strsql
Stampa2.Execute Strsql

[oregon]

Ma la BETWEEN a quale campo si riferisce?

[printlist]

Private Sub Stampa2(sQL As String)
On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=K:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset
Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset
DB.ConnectionString = ConnessioneADODC1
DB.Open

Set RecDati = DB.Execute(sQL)
Set DataReport3.DataSource = RecDati
DataReport3.WindowState = 0
DataReport3.Show
End SUB


stampa2 è una sub che ho creato con il colegamento appropriato.Ho provato con il codice da te suggerito ma mi da sempre l'errore " L'operazione non è consentita se l'oggetto è chiuso"

[oregon]

Originariamente inviato da oregon
Ma la BETWEEN a quale campo si riferisce?

Ripeto la mia precedente domanda ... e aggiungo ... qual e' la stringa di connessione?

[yyzyyz]

Originariamente inviato da printlist
Private Sub Stampa2(sQL As String)
On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=K:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset
Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset
DB.ConnectionString = ConnessioneADODC1
DB.Open

Set RecDati = DB.Execute(sQL)
Set DataReport3.DataSource = RecDati
DataReport3.WindowState = 0
DataReport3.Show
End SUB


stampa2 è una sub che ho creato con il colegamento appropriato.Ho provato con il codice da te suggerito ma mi da sempre l'errore " L'operazione non è consentita se l'oggetto è chiuso"

Prova cosi'

On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=K:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset
Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset

With DB
    .ConnectionString = ConnessioneADODC1
    .CursorLocation = adUseClient
    .Open ConnessioneADODC1
End With

sql = "select * from tabella1"
'RecDati.Open sql, DB, adOpenStatic, adLockOptimistic

Set RecDati = DB.Execute(sql)
Set DataReport1.DataSource = RecDati

DataReport1.WindowState = 2
DataReport1.Show 1

[printlist]

ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=K:\SITc\Agenda.mdb"


Questa è la stringa ed ho provato anche con il codice precedentemente scritto da voi ma niente da fare.

[oregon]

Purtroppo e' difficile riprendere "mentalmente" il discorso dopo 5 giorni dall'ultima risposta ... e soprattutto, se non dici cosa vuoi dire con "niente da fare" non risolverai il tuo problema ...

Qual e' il codice attuale che stai usando?

Quali messaggi d'errore ottieni?

Se hai ancora l'errore "l'azione non e' consentita ...", in quale riga esattamente si ferma il programma?

Mi raccomando ... non rispondere tra altri 5 giorni ...

[printlist]

Scusa ma non ho molto tempo durante la giornata e quando trovo un paio di ore libere cerco di dedicarmi alla programmazione.Comunque l'errore che mi appare dopo l'apertura del Datareport è:"L'operazione non è consentita se l'oggetto è chiuso".Grazie e scusate ancora del ritardo.