Visualizzazione dei risultati da 1 a 8 su 8

Discussione: Query in access

  1. #1
    Utente di HTML.it L'avatar di zuvanni
    Registrato dal
    Oct 2000
    Messaggi
    210

    Query in access

    Ciao a tutti, ho un problema, ho creato un db in access e per mezzo di alcune query eseguo delle ricerche mirate a trovare ciò che cerco in un singolo attributo.
    Vorrei creare qualcosa che mi permetta di fare delle ricerche per trovare una parola o parte di una parola su tutti gli attributi(campi), se se presente, che formano il database.

  2. #2
    Utente di HTML.it L'avatar di viki1967
    Registrato dal
    Feb 2003
    Messaggi
    1,757
    cerca sul forum per LIKE.
    A S P : tutto il resto è noia...
    L I N U X : forse mi "converto"...

  3. #3
    Utente di HTML.it L'avatar di zuvanni
    Registrato dal
    Oct 2000
    Messaggi
    210
    Originariamente inviato da viki1967
    cerca sul forum per LIKE.
    Scusa ma non capisco come devo cercare

  4. #4
    Utente di HTML.it L'avatar di viki1967
    Registrato dal
    Feb 2003
    Messaggi
    1,757
    Originariamente inviato da zuvanni
    Scusa ma non capisco come devo cercare
    Una cosa del tipo:
    codice:
    sql = sql & " ( [Description] LIKE '%" & QueryWords( 0 ) & "%'"			' First
    	For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
    		If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
    			If uCase( QueryWords( i-1 ) ) = "OR" Then
    				sql = sql & " OR [Description] LIKE '%" & QueryWords( i ) & "%'"
    			Else
    				sql = sql & " AND [Description] LIKE '%" & QueryWords( i ) & "%'"
    			End If
    		End If
    	Next
    
    	' Search Keywords
    	sql = sql & " ) OR ( [Keywords] LIKE '%" & QueryWords( 0 ) & "%'"
    	For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
    		If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
    			If uCase( QueryWords( i-1 ) ) = "OR" Then
    				sql = sql & " OR [Keywords] LIKE '%" & QueryWords( i ) & "%'"
    			Else
    				sql = sql & " AND [Keywords] LIKE '%" & QueryWords( i ) & "%'"
    			End If
    		End If
    	Next
    
    
    	' Search Title
    	sql = sql & " ) OR ( [Title] LIKE '%" & QueryWords( 0 ) & "%'"
    	For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
    		If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
    			If uCase( QueryWords( i-1 ) ) = "OR" Then
    				sql = sql & " OR [Title] LIKE '%" & QueryWords( i ) & "%'"
    			Else
    				sql = sql & " AND [Title] LIKE '%" & QueryWords( i ) & "%'"
    			End If
    		End If
    	Next
    
    
    	' Search Summary
    	sql = sql & " ) OR ( [Summary] LIKE '%" & QueryWords( 0 ) & "%'"
    	For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
    		If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
    			If uCase( QueryWords( i-1 ) ) = "OR" Then
    				sql = sql & " OR [Summary] LIKE '%" & QueryWords( i ) & "%'"
    			Else
    				sql = sql & " AND [Summary] LIKE '%" & QueryWords( i ) & "%'"
    			End If
    		End If
    	Next
    
    	sql = sql & " )"
    
    
        ' Fetch
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open sql, conn, 3, 3
    A S P : tutto il resto è noia...
    L I N U X : forse mi "converto"...

  5. #5
    Utente di HTML.it L'avatar di zuvanni
    Registrato dal
    Oct 2000
    Messaggi
    210
    Grazie della risposta ma sono più confuso che persuaso. Cosa devo fare con questo codice?
    C'è qualcosa che magari posso leggere per capire?
    Grazie.

  6. #6
    Utente di HTML.it L'avatar di fraude
    Registrato dal
    Feb 2004
    Messaggi
    2,870
    viki ti sta cercando di dire che devi strutturare il tuo script per il tipo di ricerca che hai in mente di eseguire, proprio come un vero e proprio motore di ricerca all'interno di un db.

    Qui trovi un valido esempio:

    http://www.planet-source-code.com/vb...=6707&lngWId=4

  7. #7
    Utente di HTML.it L'avatar di zuvanni
    Registrato dal
    Oct 2000
    Messaggi
    210
    Scusate la mia ignoranza ma ontinuo a non capire.

  8. #8
    spiegaci bene bene cosa vuoi fare.

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.