+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 2 su 2

Discussione: aspx.vb

  1. #1
    miquel non è in linea Novello
    Post
    34

    aspx.vb

    ragazzi ho un enorme problema praticamente mi hanno appena spiengato come "fare" ad usare asp con vb
    Ma non so neanche dove sono girato il codice che ho fatto è questo
    codice:
    
    Imports rapportiniWEB
    Imports System.Data.OleDb
    Imports System.Data
     
    PartialClass _Default
    Inherits System.Web.UI.Page
    ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
    Me.MESSAGGIO.Visible = False
    IfNotMe.IsPostBack Then'' QUESTA E' LA PRIMA VOLTA
    Me.preparaForm()
    Else
    EndIf
    EndSub
    ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click
    ' Dim pressocliente, terminato As Boolean
     
    Dim numero AsString
    Dim data AsDate
    Dim referente, descrizione, note, durata, viaggio AsString
    Dim CODICE, DESCRIZIONE1 AsString
    
    CODICE = Me.CODICE.Text
    DESCRIZIONE1 = Me.DESCRIZIONE1.Text
    'If DESCRIZIONE1.Trim.Length = 0 Then
    ' Me.errore("DIGITARE LA DESCRIZIONE")
    ' Response.Write("<script>alert('digitare la descrizione');</script>")
    ' Return
    'End If
    numero = Me.txtnumero.Text
    data = Me.txtdata.Text
    referente = Me.txtreferente.Text
    descrizione = Me.txtdescrizione.Text
    note = txtnote.Text
    durata = Me.txtkmviaggio.Text
    viaggio = Me.txtoreviaggio.Text
    'pressocliente = Me.CHKpressocliente.Text
    'terminato = Me.CHKterminato.Text
    Dim oggettoDatabase AsNew rapportiniweb.db
    With oggettoDatabase
     
    .connect()
    .save(setInsertCommand())
    .disconnect()
    EndWith
    '' OPEN CONNECT
    '' VERIFICA CHE IL CODICE ESISTA
    '' SE ESISTE UPDATE
    '' SE NON ESISTE FAI UNA INSERT
    '' CLOSE CONNECT
    EndSub
    ProtectedSub ComboClienti_SelectedIndexChanged(ByVal sender AsObject, ByVal e As System.EventArgs) Handles ComboClienti.SelectedIndexChanged
    Dim oggettoDatabase AsNew rapportiniweb.db
    With oggettoDatabase
    .connect()
    Me.CaricaComboAttivita(oggettoDatabase)
    .disconnect()
     
    EndWith
    EndSub
     
     
    ProtectedSub CODICE_TextChanged(ByVal sender AsObject, ByVal e As System.EventArgs) Handles CODICE.TextChanged
    Me.errore("HO MODIFICATO IL CAMPO CODICE =" & Me.CODICE.Text)
    EndSub
    Sub errore(ByVal messaggio AsString)
    Me.MESSAGGIO.Visible = True
    Me.MESSAGGIO.Text = messaggio
    Me.MESSAGGIO.BackColor = Drawing.Color.Red
    Me.MESSAGGIO.ForeColor = Drawing.Color.White
    EndSub
    Sub preparaForm()
    Dim oggettoDatabase AsNew rapportiniweb.db
    With oggettoDatabase
    .connect()
    Me.CaricaComboCliente(oggettoDatabase)
    ''Me.CaricaComboAttivita(oggettoDatabase)
    ''
    ''
    ''
    ''
    .disconnect()
    EndWith
    EndSub
    Sub CaricaComboCliente(OptionalByVal oggettoDatabase As db = Nothing)
    Dim dt As DataTable
    dt = oggettoDatabase.execute("SELECT codCliente,ragioneSociale FROM Clienti")
    If dt IsNothingThenReturn
    Me.ComboClienti.DataTextField = "ragioneSociale"
    Me.ComboClienti.DataValueField = "codCliente"
    Me.ComboClienti.DataSource = dt
    Me.ComboClienti.DataBind()
    Me.ComboClienti.Items.Add("Nuovo cliente ........")
    EndSub
    Sub CaricaComboAttivita(OptionalByVal oggettoDatabase As db = Nothing)
    IfCInt(ComboClienti.SelectedValue) = 0 ThenReturn
    Dim dat As DataTable
    Dim sql AsString
    sql = "SELECT codAttivitaCliente,descrizione from clientiattivita where codcliente = " & ComboClienti.SelectedValue
    dat = oggettoDatabase.execute(sql)
    If dat IsNothingThenReturn
    Me.ComboAttivita.DataTextField = "descrizione"
    Me.ComboAttivita.DataValueField = "codAttivitaCliente"
    Me.ComboAttivita.DataSource = dat
    Me.ComboAttivita.DataBind()
    EndSub
     
     
     
    PrivateFunction setInsertCommand() As OleDbCommand
     
    Dim myInsertCommand = New Data.OleDb.OleDbCommand
     
    With myInsertCommand
     
    .Parameters.Add(New OleDbParameter("@data", Data.OleDb.OleDbType.Date))
    .Parameters.Add(New OleDbParameter("@nominativoreferente", Data.OleDb.OleDbType.VarChar))
    .Parameters.Add(New OleDbParameter("@descrizione", Data.OleDb.OleDbType.VarChar))
    .Parameters.Add(New OleDbParameter("@kmviaggio", Data.OleDb.OleDbType.Integer))
    .Parameters.Add(New OleDbParameter("@oreviaggio", Data.OleDb.OleDbType.Integer))
    .Parameters.Add(New OleDbParameter("@annotazioni", Data.OleDb.OleDbType.VarChar))
    .CommandText = "INSERT INTO ATTIVITA "
    .CommandText += " (data,nominativoreferente,descrizione,kmviaggio,oreviaggio,annotazioni) "
    .CommandText += " values "
    .CommandText += " @data,@nominativoreferente,@descrizione,@kmviaggio,@oreviaggio,@annotazioni ) "
     
    .Parameters("@data").Value = Me.txtdata.Text
    .Parameters("@nominativoreferente").Value = Me.txtreferente.Text
    .Parameters("@descrizione").Value = Me.txtdescrizione.Text
    .Parameters("@kmviaggio").Value = Me.txtkmviaggio.Text
    .Parameters("@oreviaggio").Value = Me.txtoreviaggio.Text
    .Parameters("@annotazioni").Value = Me.txtnote.Text
    EndWith
     
    Return myInsertCommand
    EndFunction
    EndClass
    
    praticamente mi inserisce ma non mi salva e mi da errore
    Aiutoooooooooooooooooo

  2. #2
    L'avatar di SignIn
    SignIn non è in linea Scribacchino
    Luogo
    Milano
    Post
    1,026
    Quote Originariamente inviato da miquel Visualizza il messaggio
    praticamente mi inserisce ma non mi salva e mi da errore
    Aiutoooooooooooooooooo
    ....ciao miquel un consiglio, non puoi pretendere che qualcuno esegua il tuo codice per capire quale errore ti compare...come prima cosa sarebbe cosa buona e giusta indicare insieme al codice che hai posatto anche l'errore nello specifico...ma cosa ancora più importante è sforzarsi di usare il debug....inserisci breakpoint, passo passo scorri lungo il tuo codice e con l'ausilio della finestra di watch troverai la soluzione
    Ultima modifica di SignIn; 30-05-2008 20:36 

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi