aiuto con upload

**innovatel** · 06-01-2004, 12:04

ascolta ... non voglio fare il rompi palle ... possiamo vedere il codice che sta attorno a quell'istruzione per farci un'idea del contesto?

**kokkus** · 06-01-2004, 12:18

codice:

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.data.oleDb" %>
<%@ import Namespace="System.data" %>
<script runat="server">

    Sub Page_Load(src As Object, e As EventArgs)
    
                          if not ispostback then
                          dim idreferre,idpagamento as integer
                          dim nomepagamento as string
                          dim cmd as oledbcommand
                          dim dtr as oledbdatareader
                          Dim myConn As OleDbConnection
                          Dim myOleDbAdapter As OleDbDataAdapter
                          Dim connStr, sqlStr As String
                          Dim myDataSet As New Dataset
                          connStr="Provider=Microsoft.Jet.OLEDB.4.0;" _
                          +"Data Source="+Server.MapPath("/mdb-database/db.mdb")
                          myConn= New OleDbConnection(connStr)
                          myConn.Open()
                          idreferre=trim(request("idreferrer"))
                          sqlStr = "SELECT * from referrer where idreferrer=" & idreferre
                          cmd=new oledbcommand( sqlstr,myconn)
                          dtr=cmd.executereader()
                         while dtr.read()
                          idref.text=dtr("idreferrer")
                          user.text=dtr("user")
                          password.text=dtr("password")
                          email.text=dtr("email")
                          nome.text=dtr("nome")
                          cognome.text=dtr("cognome")
                          piva.text=dtr("piva")
                          indirizzo.text=dtr("indirizzo")
                          citta.text=dtr("citta")
                          cap.text=dtr("cap")
                          telefono.text=dtr("telefono")
                          cellulare.text=dtr("cellulare")
                          punti.text=dtr("punti")
                          numeroconto.text=dtr("numeroconto")
                          abi.text=dtr("abi")
                          cab.text=dtr("cab")
                          idpagamento=dtr("pagamento")
                          percentuale.text=dtr("percentuale")
                          idrefpadre.text=dtr("idrefpadre")
                         end while
                          dtr.close()
                           sqlStr = "SELECT nometipopagamento from tipopagref where idtipopagamento=" & idpagamento
                        cmd=new oledbcommand( sqlstr,myconn)
                        dtr=cmd.executereader()
                         while dtr.read()
                           nomepagamento = dtr("nometipopagamento")
                           end while
                           dtr.close
    
                          sqlStr = "SELECT * from tipopagref"
                        cmd=new oledbcommand( sqlstr,myconn)
                        dtr=cmd.executereader()
    
    
                        pagamento.datasource=dtr
                        pagamento.datatextfield="nometipopagamento"
                        pagamento.datavaluefield="idtipopagamento"
                      
              pagamento.databind()
         pagamento.SelectedIndex=idpagamento -1
    
    
                        dtr.close()
    
                            myConn.Close()
    
    
                       else
                       end if
    
    
                          end sub
    
    
                     sub invia_click (s as object ,e as eventargs )
    
    
                          dim idreferre as integer
                          dim dtr as oledbdatareader
                          Dim myConn As OleDbConnection
                          Dim myOleDbAdapter As OleDbDataAdapter
                          Dim connStr, sqlStr , tabella,percorsofoto As String
                          Dim cmd as New OleDbCommand
    
    
                          connStr="Provider=Microsoft.Jet.OLEDB.4.0;" _
                          +"Data Source="+Server.MapPath("/mdb-database/db.mdb")
                          myConn = New OleDbConnection(connStr)
                          myConn.Open()
    
    
    
    
    
    
    
                          idreferre=trim(request("idreferrer"))
    
    
    
    try
                          sqlStr = "update referrer set user='" & user.text & "',password='" & password.text & "',email='" & email.text & "',nome='"
                          sqlstr = sqlstr & nome.text & "',cognome='" & cognome.text & "',piva='" & piva.text & "',indirizzo='" & indirizzo.text & "',citta='" & citta.text & "',cap='" & cap.text & "',telefono='"
                          sqlstr = sqlstr & telefono.text & "',cellulare='" & cellulare.text & "',punti=" & punti.text & ",numeroconto='" & numeroconto.text
                          sqlstr = sqlstr & "',abi='" & abi.text & "',cab='" & cab.text & "',pagamento=" & pagamento.SelectedItem.Value & ",percentuale=" & percentuale.text & ",idrefpadre=" & idrefpadre.text
                          sqlstr = sqlstr & " where idreferrer=" & idreferre & ""
                          'sqlstr="update referrer set idrefpadre=9 where idreferrer=3" (una prova a caso che funziona)
                        ' sqlstr=replace(sqlstr,"'","''") (non è contato niente)
    
                          'sqlstr= "update referrer set user='provamo' where idreferrer=3" (nemmeno questo update va)
                          cmd=new oledbcommand( sqlstr,myconn)
                          cmd.ExecuteNonQuery()
                          catch exc as exception
                           response.write (sqlstr)
                         end try
    
    
                          myConn.Close()
    
                            ' response.redirect ("gestionereferrer.aspx?frase=2")
    
    
                               End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        Inserimento Referrer: 
        

        Id Referrer: 
        <asp:textbox id="idref" runat="Server" type="text" size="30"></asp:textbox>
        

        User: 
        <asp:textbox id="user" runat="Server" type="text" size="30"></asp:textbox>
        

        Password: 
        <asp:textbox id="password" runat="Server" type="text" size="30"></asp:textbox>
        

        E-mail: 
        <asp:textbox id="email" runat="Server" type="text" size="30"></asp:textbox>
        

        Nome: 
        <asp:textbox id="nome" runat="Server" type="text" size="30"></asp:textbox>
        

        Cognome: 
        <asp:textbox id="cognome" runat="Server" type="text" size="30"></asp:textbox>
        

        Partita iva o codice fiscale: 
        <asp:textbox id="piva" runat="Server" type="text" size="30"></asp:textbox>
        

        indirizzo: 
        <asp:textbox id="indirizzo" runat="Server" type="text" size="30"></asp:textbox>
        

        Citta: 
        <asp:textbox id="citta" runat="Server" type="text" size="30"></asp:textbox>
        

        cap: 
        <asp:textbox id="cap" runat="Server" type="text" size="30"></asp:textbox>
        

        Telefono: 
        <asp:textbox id="telefono" runat="Server" type="text" size="30"></asp:textbox>
        

        Cellulare: 
        <asp:textbox id="cellulare" runat="Server" type="text" size="30"></asp:textbox>
        

        Punti: 
        <asp:textbox id="punti" runat="Server" type="text" size="30"></asp:textbox>
        

        Numero conto: 
        <asp:textbox id="numeroconto" runat="Server" type="text" size="30"></asp:textbox>
        

        Abi: 
        <asp:textbox id="abi" runat="Server" type="text" size="30"></asp:textbox>
        

        Cab: 
        <asp:textbox id="cab" runat="Server" type="text" size="30"></asp:textbox>
        

        Tipo di pagamento: 
        <asp:DropDownList id="pagamento" runat="server">
            <asp:ListItem Value="v" Selected="True">t</asp:ListItem>
        </asp:DropDownList>
        

        Percentuale: 
        <asp:textbox id="percentuale" runat="Server" type="text" size="30"></asp:textbox>
        

        Id Referrer Padre: 
        <asp:textbox id="idrefpadre" runat="Server" type="text" size="30"></asp:textbox>
        

        <asp:button id="invia" onclick="invia_click" runat="server" text="Inserisci Referrer"></asp:button>
        

    </form>
</body>
</html>

**innovatel** · 06-01-2004, 12:36

due cose beccate al volo

codice:

sqlstr = sqlstr & " where idreferrer=" & idreferre & ""

perchè gli concateni un campo di testo vuoto? puoi anche togliere & ""

codice:

sqlstr=replace(sqlstr,"'","''")

questo non è corretto. devi farlo su ogni singolo campo testo che è contenuto nella query e non sulla query globale

**kokkus** · 06-01-2004, 12:45

- per il primo punto hai ragione non serve a niente, ma di sicuro nn dà errore.

- non ho fatto il replace di ogni singolo campo dato che sono io a inserire i dati e non ho messo apici nelle prove.

**Legnetto** · 06-01-2004, 13:16

I blocchi try e catch servono per intercettare l'errore, ma una delle funzioni più comode e quella di vedere l'errore che ritorna il db.
Quindi come ti hanno suggerito in un post precedente metti:
....
catch exc as exception
response.write (exc.ToString)
end try
....
Te lo dice lui dove non digerisce qualcosa che gli passi.
Ciao
Legnetto

**Legnetto** · 06-01-2004, 13:24

Un'altra cosa
Ma nel Tuo db utilizzi quasi dappertutto campi testo:
telefono,abi,cab,cap
Ma non sono campi generalmente numerici?
Io non uso access quindi non so come vengono impostati,però potrebbe essere un probabile errore.
Riciao
Legnetto

**kokkus** · 06-01-2004, 18:27

ciao grazie per le dritte ora provo .
Si utilizzo tutti i campi testo perchè a volte gli abi e i cab iniziano per 0 e quindi sono difficilmente gestibili con interi

**innovatel** · 06-01-2004, 18:34

ti convine normalizzatlo il database così riduci la sua dimensione migliorando le prestazioni

**kokkus** · 06-01-2004, 18:50

codice:

System.Data.OleDb.OleDbException: Errore di sintassi nell'istruzione UPDATE. at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(Int32 hr) at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method) at System.Data.OleDb.OleDbCommand.ExecuteNonQuery() at ASP.dettaglireferrer_aspx.invia_click(Object s, EventArgs e) in C:\Documents and Settings\Luca Cocco\Documenti\Aspx\dettaglireferrer.aspx:line 124

ecco che errore mi da.
la 124 è a riga che esegue la query.

come si faa normalizzare il db ?
e che cosa vuol dire?

**abmcr** · 07-01-2004, 18:23

Prova a verificare che i valori immess corrispodano al tipo di dati atesi: cioè se un campo è integer, dorai dargli un integer, per cui dovrai prima fare il casting

campo_integer=miacasellatesto.text.Toint

Discussione: aiuto con upload

Strumenti discussione

Ricerca discussione

Visualizza

ma scherzi , non sei un ropipalle , mi sei di grande aiuto

Permessi di invio