Visualizzazione dei risultati da 1 a 9 su 9
  1. #1

    [VB6]Problema con una Query

    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:

  2. #2
    Utente di HTML.it L'avatar di yyzyyz
    Registrato dal
    Oct 2001
    Messaggi
    1,653
    io ricevo un errore sulla stringa sql, prova così:

    codice:
    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


  3. #3
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Ma la BETWEEN a quale campo si riferisce?

  4. #4
    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"

  5. #5
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    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?

  6. #6
    Utente di HTML.it L'avatar di yyzyyz
    Registrato dal
    Oct 2001
    Messaggi
    1,653
    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'

    codice:
    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

  7. #7
    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.

  8. #8
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    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 ...

  9. #9
    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.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.