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

    contollare record database

    hey...
    avrei bisogno di un codice che controlla se è già presente un record in un database..
    qulacuno che conosce uno funzionante
    perchè io ne ho provati mille ma nessuno mi funziona

    grazie..

  2. #2
    Fai una select con i valori della variabili e li confronti con quelli del database:
    codice:
    SQL = "select * from tabella where campo1 = var1 and campon = varn"
    FEDERIX.IT - [Pillola] GRAFICA DEI FORM

    ...ho ancora quella forza che ti serve, quando dici "Si comincia!"

  3. #3

    ..

    grazie mille ma potresti aiutarmi di più che io nn c capisco tanto di asp?
    ti metto qui il codice e se ce la fai m metti al posto giusto quella stringa che m hai detto?

    <%
    'Creo la variabile Action
    Dim Action
    Action = request.form("act")

    'Se Action è vuoto stampo il modulo
    if Action = "" then
    %>

    <form method="POST">
    <input type="hidden" name="act" value="salva">
    <table border="0">
    <tr><td>Tua Email</td><td><input type="text" name="email" size="30"></td></tr>
    <tr><td>Username</td><td><input type="text" name="user" size="30"></td></tr>
    <tr><td>Password</td><td><input type="password" name="pass" size="30"></td></tr>
    <tr><td colspan="2"><input type="submit" value="ISCRIVITI"></td></tr>
    </table>
    </form>

    <%
    'Se Action ha come valore "salva"...
    'Inserisco i valori del modulo nel DB
    elseif Action = "salva" then

    'Apro la connessione al DB
    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
    Server.MapPath("db\utenti_sito.mdb")

    'Aggiungo un nuovo record al DB
    Dim Rs
    Set Rs = Server.CreateObject("ADODB.Recordset")
    Rs.Open "UTENTI", conn, 1, 3

    if user = Rs("user") then
    Response.write("NIck già presente")
    else
    Rs.AddNew()
    Rs("email") = request.form("email")
    Rs("user") = request.form("user")
    Rs("pass") = request.form("pass")
    Rs("stato") = False
    Rs.Update


    End if

    'chiudo recordset e connessione
    Rs.Close
    set Rs = Nothing
    Conn.Close
    set Conn = Nothing

    response.write "Registrazione avvenuta con successo"
    response.end

    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.