Aiuto su script per una semplice insert

**Pinetto** · 02-12-2007, 18:00

Ciao in questo script di test non riesco a far la insert dopo che ho verificato che il nome immesso esiste o no.
Potete aiutarmi a capire come impostare questa logica condizionale con aspnet?
Sono alle prime armi con .net
Grazie, ciao.
------------------------------------------
<script runat="server">
sub button_click( s as object, e as eventargs)
Dim custdb As OleDbConnection
Dim cmdselectcustomers As OleDbCommand
Dim dtrcustomers As OleDbDataReader
Dim cmdinsert

custdb = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" + Server.MapPath("app_data/test.mdb") + ";")

cmdselectcustomers = New OleDbCommand("select nome,cognome from amici where nome=@nome", custdb)
cmdselectcustomers.Parameters.AddWithValue("@nome" , txtnome.Text)

custdb.Open()
dtrcustomers = cmdselectcustomers.ExecuteReader()
If dtrcustomers.HasRows Then

While dtrcustomers.Read()
cmdinsert = New OleDbCommand("insert into amici (nome)VALUES('" & txtnome.Text & "')", custdb)

Response.Write("inserito")

Response.Write(CStr(dtrcustomers.Item("nome")))
Response.Write("
")
End While
Else
Response.Write("nessun nome")
End If
dtrcustomers.Close()
custdb.Close()
End Sub
</script>

**pietro09** · 02-12-2007, 18:26

ti faccio un esempio:
database = Access
tabella = Tabella7
campo Nome di tipo testo, richiesto=sì, consenti lunghezza zero=no, indicizzato=sì(duplicati non ammessi)

in questo modo mi assicuro di non poter inserire nè nomi vuoti, nè nomi duplicati

pagina aspx

codice:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="a.aspx.vb" Inherits="prove_a" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Pagina senza titolo</title>
    <link href="../stili/Styles.css" rel="stylesheet" type="text/css" />
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:TextBox ID="TextBox1" runat="server" Width="252px"></asp:TextBox>
        <asp:Button ID="Button1" runat="server" Text="Button" />

        

        <asp:Label ID="Label1" runat="server"></asp:Label></div>
    </form>
</body>
</html>

codice:

Option Strict On

Partial Class prove_a
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Connessione As OleDbConnection = Nothing
        Dim Comando As OleDbCommand = Nothing
        Dim Transazione As OleDbTransaction = Nothing
        Dim Sql$ = ""

        Try
            Connessione = New OleDbConnection(StringaConnessioneTest)
            Connessione.Open()
            Transazione = Connessione.BeginTransaction()
            Comando = New OleDbCommand
            Comando.Connection = Connessione
            Comando.Transaction = Transazione

            Append(Comando)
            'Update(Comando)
            'Delete(Comando)

            Transazione.Commit()
            'Transazione.Rollback()

            Me.Label1.Text = "Operazioni su database eseguite regolarmente"



        Catch ex As Exception
            If (Not (Transazione Is Nothing) AndAlso Not (Transazione.Connection Is Nothing)) Then Transazione.Rollback()
            Me.Label1.Text = "Errore nell'aggiornamento:" & vbNewLine & vbNewLine & ex.Message

        Finally
            If (Not (Connessione Is Nothing)) Then Connessione.Close()
        End Try

    End Sub

    Private Sub Append(ByVal Comando As OleDbCommand)
        Dim prossimo_id As Integer = libreria.ProssimoIDAccess(Comando, "tabella7", "id")
        Dim Sql$ = "INSERT INTO [tabella7] ( [nome], [ID]) VALUES (?,?) "
        Comando.CommandText = Sql

        Comando.Parameters.Clear()

        Comando.Parameters.Add("nome", OleDbType.VarChar, 50).Value = Me.TextBox1.Text

        Comando.Parameters.Add("id", OleDbType.Integer).Value = prossimo_id

        Comando.ExecuteNonQuery()


    End Sub

End Class

Discussione: Aiuto su script per una semplice insert

Strumenti discussione

Ricerca discussione

Visualizza

Aiuto su script per una semplice insert

Permessi di invio