Visualizzazione dei risultati da 1 a 7 su 7
  1. #1
    Utente di HTML.it L'avatar di wegawhite
    Registrato dal
    Aug 2004
    Messaggi
    1,400

    Errore di runtime su query db sql server

    Ragazzi, cosa c'è di sbagliato in questa query, perchè restituisce errore?:
    codice:
    Costruttore = Request.form("Costruttore") 
    
    DIM ARR_DALFORM
    ARR_DALFORM = split(Costruttore, "-")
    Costruttore0 = ARR_DALFORM(0)
    response.write Costruttore0 &"
    "
    Costruttore1 = ARR_DALFORM(1)
    response.write Costruttore1 &"
    "
    
    strSQL = "select * From tbl WHERE 1=1"
    
    If Costruttore1 <> 0 then
       strSQL = strSQL & " AND Costruttore = '"& Costruttore1 &"' "
    End if
    Errore:
    9-BBB
    9
    BBB

    Microsoft VBScript runtime error '800a000d'

    Type mismatch: '[string: "BBB"]'

    /software.asp, line 132

  2. #2
    riga 132, pls

  3. #3
    Utente di HTML.it L'avatar di willybit
    Registrato dal
    May 2001
    Messaggi
    4,367
    Costruttore1 è una stringa... forse volevi fare
    codice:
    If Costruttore1 <> "" then

  4. #4
    Utente di HTML.it L'avatar di wegawhite
    Registrato dal
    Aug 2004
    Messaggi
    1,400
    Infatti, grazie

  5. #5
    Utente di HTML.it L'avatar di wegawhite
    Registrato dal
    Aug 2004
    Messaggi
    1,400
    Scusate si è aggiunta una difficoltà... dal form mi possono arrivare, come valori : 1-ABC oppure 2-Tutti

    Se arriva 1-ABC ho impostato la condizione:
    codice:
    If campoform <> "" then
    Dim Split
    Split = split(campoform, "-")
    campoform0 = Split(0)
    campoform1 = Split(1)
      strSQL = strSQL & " AND campoform = "& campoform0 &" "
    End if
    ma se il valore che arriva dal form è 2-Tutti non estrae nessun record... dove sbaglio?

  6. #6
    Utente di HTML.it L'avatar di willybit
    Registrato dal
    May 2001
    Messaggi
    4,367
    non puoi usare Split come nome della variabile è già il nome di una funzione
    casomai
    codice:
    If campoform <> "" then
      Dim erSplit
      erSplit = split(campoform, "-")
      campoform0 = erSplit(0)
      campoform1 = erSplit(1)
      strSQL = strSQL & " AND campoform = "& campoform0 &" "
    End if

  7. #7
    Utente di HTML.it L'avatar di wegawhite
    Registrato dal
    Aug 2004
    Messaggi
    1,400
    Si grazie ho risolto... comunque ho sempre un problema con la visualizzazione dei records... nel senso che quando "cambio pagina", mi viene restituito quest'altro errore...
    Microsoft VBScript runtime error '800a0009'
    Subscript out of range: '[number: 0]'

    /index.asp, line 124
    Questo è il codice modificato...
    codice:
    Dim erSplit
      erSplit = split(campoform, "-")
      campoform0 = erSplit(0)
      campoform1 = erSplit(1)
    
    If campoform <> "" then
       strSQL = strSQL & " AND campoform = "& campoform0 &" "
    End if

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.