Problem with editing in my project: When i have a lot of data the editing rows mode go wrong.Why?
I'm a new bie so my programming mode should be stupid for other programmers, but this is very important for me.
Here my problem..
When I have a datagrid with 2 - 3 records, all my functions goes ok, but if I have a lot of records (20000 for example), and a lot of pages, the row edit mode don't UPDATE the DB with the Text.box.Text value.Is it a limit.Do u have experience with it?
THIS IS IMPORTANT 4 ME ..Thanks fot your opinion...
Here my code...
--------------------
<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
Protected cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db\clienti.mdb") & ";"
Protected ss As String = "SELECT * from [Clienti] ORDER BY ID desc"
Dim strAlpha as string
Dim bEditing As Boolean = False
Sub Page_Load(Sender As Object, E As EventArgs)
strAlpha=request.Querystring("alpha")
If Not Page.IsPostBack Then
If (Request.IsAuthenticated = True) Then
Status.Text = "Benvenuto " & User.Identity.Name & "."
'Int1.Text = "TUTTI I NOMINATIVI DELL' UTENTE : - " & User.Identity.Name & " - </b>."
QueryTxT.visible = False
else
Response.Redirect ("login.aspx")
End If
QueryTxT.visible = True
Name.text = "" & User.Identity.Name & ""
'Name.text = "Admin"
'Cognome.Text = "COGNOME"
Data.Text = "01/01/2000"
Data2.Text = "01/01/2005"
Citta.Text = "SIENA"
RIP.Text = "NO"
RICH.Text = "NO"
ETA.Text = "0"
ETAB.Text = "100"
'If Data.Text = "01/01/2000" Then
'Int1.Text = "PREGO INSERIRE I CRITERI DI RICERCA PER LAVORARE"
'End If
'Label1.Text = "ASC"
BindGrid2()
End If
End Sub
'-----------------------------------------------------
'--------LOG OFF
Sub LogOffBtn_Click(Sender As Object, E As EventArgs)
panel1.visible=False
panel2.visible=False
panel3.visible=False
FormsAuthentication.SignOut()
Status.Text = "Spero che non ti sia stressata/o...HASTA LUEGO!"
' non si manda più il messaggio di saluto ma si fa il redirecr diretto alla nuova cache
'Response.Write ("<asp:button id='LogOffBtn2' onclick='LogOffBtn_Click2' runat='server' text='Esci'></asp:button>")
Response.Redirect ("default.aspx")
End Sub
Sub LogOffBtn_Click2(Sender As Object, E As EventArgs)
'FormsAuthentication.SignOut()
Response.Redirect ("default.aspx")
End Sub
'---------FINE LOG OFF
Sub BindGrid()
Dim dc As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(ss, dc)
Dim ds As New DataSet()
da.Fill(ds)
da.Fill(ds,"Clienti")
Dim dv As DataView = ds.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
End Sub
'-----------------------------------------------
Sub BindGrid2()
Dim strName as string
strName=Name.Text
Dim strCognome as string
strCognome=Cognome.Text
Dim strData as string
strData=Data.Text
Format(strData, "d")
Dim strData2 as string
strData2=Data2.Text
Format(strData2, "d")
Dim strCitta as String
strCitta=Citta.Text
Dim strCitta2 as String
strCitta2=CittaALPH.Text
Dim strETA as String
strETA=ETA.Text
Dim strETAB as String
strETAB=ETAB.Text
Dim strRIP as String
strRIP=RIP.Text
Dim strRICH as String
strRICH=RICH.Text
' -------------------------SE UTENTE E CITTA
QueryTxT.visible = True
If chk1.Checked Then
Dim query As String = "select * from Clienti where Utente = '" & strName & "' ORDER BY ID desc"
Dim StrCriterio as String
StrCriterio = "Utente : '" & strName & "' Cognome : '" & strCognome & "' Data : #" & strData & "# Città : '" & strCitta & "'"
QueryTxT.Text = "TUTTI I NOMINATIVI DELL'UTENTE - " & User.Identity.Name & " - ."
'Int1.Text = "CRITERIO :" + strCriterio
'Dim query as String
Dim dd As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(query, dd)
Dim dss As New DataSet()
da.Fill(dss)
da.Fill(dss,"Clienti")
Dim dv As DataView = dss.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
Dim recordcount as Integer
recordcount = dss.Tables("Clienti").Rows.Count
If recordcount = 0 Then
Int1.Text = "NESSUN RISULTATO PER IL</b>"
'Int1.Text = "" & criterio1
If Data.Text = " 01/01/2000 " Then
Int1.Text = "DIGITARE I CRITERI DI RICERCA PER LAVORARE"
End If
Else
Int1.Text = "Record trovati :</b> " & recordcount
'Int1.Text = "" & criterio1
End If
Else
If chk2.Checked Then
Dim query As String = "select * from Clienti where Cognome = '" & strCognome & "' ORDER BY ID desc"
Dim StrCriterio as String
StrCriterio = "Utente : '" & strName & "' Cognome : '" & strCognome & "' Data : #" & strData & "# Città : '" & strCitta & "'"
QueryTxT.Text = "TUTTE I COGNOMI TROVATI CON - " & strCognome & " - ."
'Int1.Text = "CRITERIO :" + strCriterio
'Dim query as String
Dim dd As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(query, dd)
Dim dss As New DataSet()
da.Fill(dss)
da.Fill(dss,"Clienti")
Dim dv As DataView = dss.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
Dim recordcount as Integer
recordcount = dss.Tables("Clienti").Rows.Count
If recordcount = 0 Then
Int1.Text = "NESSUN RISULTATO PER IL</b>"
'Int1.Text = "" & criterio1
If Data.Text = " 01/01/2000 " Then
Int1.Text = "DIGITARE I CRITERI DI RICERCA PER LAVORARE"
End If
Else
Int1.Text = "Record trovati :</b> " & recordcount
'Int1.Text = "" & criterio1
End If
Else
If chk3.Checked Then
Dim query As String = "select * from Clienti where Data = #" & strData & "# ORDER BY ID desc"
Dim StrCriterio as String
StrCriterio = "Utente : '" & strName & "' Cognome : '" & strCognome & "' Data : #" & strData & "# Città : '" & strCitta & "'"
QueryTxT.Text = "TUTTE LE DATE TROVATE CON - " & strData & " - ."
'Int1.Text = "CRITERIO :" + strCriterio
'Dim query as String
Dim dd As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(query, dd)
Dim dss As New DataSet()
da.Fill(dss)
da.Fill(dss,"Clienti")
Dim dv As DataView = dss.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
Dim recordcount as Integer
recordcount = dss.Tables("Clienti").Rows.Count
If recordcount = 0 Then
Int1.Text = "NESSUN RISULTATO PER IL</b>"
'Int1.Text = "" & criterio1
If Data.Text = " 01/01/2000 " Then
Int1.Text = "DIGITARE I CRITERI DI RICERCA PER LAVORARE"
End If
Else
Int1.Text = "Record trovati :</b> " & recordcount
'Int1.Text = "" & criterio1
End If
Else
If chk4.Checked Then
Dim query As String = "select * from Clienti where Citta = '" & strCitta & "' ORDER BY ID desc"
Dim StrCriterio as String
StrCriterio = "Utente : '" & strName & "' Cognome : '" & strCognome & "' Data : #" & strData & "# Città : '" & strCitta & "'"
QueryTxT.Text = "TUTTE LE CITTA TROVATE CON - " & strCitta & " - ."
'Int1.Text = "CRITERIO :" + strCriterio
'Dim query as String
Dim dd As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(query, dd)
Dim dss As New DataSet()
da.Fill(dss)
da.Fill(dss,"Clienti")
Dim dv As DataView = dss.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
Dim recordcount as Integer
recordcount = dss.Tables("Clienti").Rows.Count
If recordcount = 0 Then
Int1.Text = "NESSUN RISULTATO PER IL</b>"
'Int1.Text = "" & criterio1
If Data.Text = " 01/01/2000 " Then
Int1.Text = "DIGITARE I CRITERI DI RICERCA PER LAVORARE"
End If
Else
Int1.Text = "Record trovati :</b> " & recordcount
'Int1.Text = "" & criterio1
End If
Else
'---------------------------------------------------------------ALPHA
strAlpha=request.Querystring("alpha")
If strAlpha <> "" then
If chk5.Checked Then
Dim query As String = "select * from Clienti where Cognome LIKE '" & strAlpha & "%" & "' AND Citta = '" & strCitta2 & "' ORDER BY Cognome asc"
'Dim StrCriterio as String
'StrCriterio = "Nome : '" & strName & "' Cognome : '" & strCognome & "' Data : #" & strData & "# Città : '" & strCitta & "'"
'QueryTxT.Text = "CRITERIO - " + strCriterio
'Int1.Text = "CRITERIO :" + strCriterio
'Dim query as String
Dim dd As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(query, dd)
Dim dss As New DataSet()
da.Fill(dss)
da.Fill(dss,"Clienti")
Dim dv As DataView = dss.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
Dim recordcount as Integer
recordcount = dss.Tables("Clienti").Rows.Count
If recordcount = 0 Then
Int1.Text = "NESSUN COGNOME CON</b>"
'Int1.Text = "" & criterio1
'If Data.Text = " 01/01/2000 " Then
'Int1.Text = "DIGITARE I CRITERI DI RICERCA PER LAVORARE"
QueryTxT.Text = "LETTERA INIZIALE : '" & strAlpha & "%" & "' nella Città : '" & strCitta2 & "'"
'End If
Else
QueryTxT.Text = "TUTTI I COGNOMI CHE INIZIANO CON : '" & strAlpha & "%" & "' nella Città :'" & strCitta2 & "'"
'Int1.Text = "" & criterio1
End If
Else
Dim query As String = "select * from Clienti where Cognome LIKE '" & strAlpha & "%" & "' ORDER BY Cognome asc"
'Dim StrCriterio as String
'StrCriterio = "Nome : '" & strName & "' Cognome : '" & strCognome & "' Data : #" & strData & "# Città : '" & strCitta & "'"
'QueryTxT.Text = "CRITERIO - " + strCriterio
'Int1.Text = "CRITERIO :" + strCriterio
'Dim query as String
Dim dd As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(query, dd)
Dim dss As New DataSet()
da.Fill(dss)
da.Fill(dss,"Clienti")
Dim dv As DataView = dss.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
Dim recordcount as Integer
recordcount = dss.Tables("Clienti").Rows.Count
If recordcount = 0 Then
Int1.Text = "NESSUN COGNOME CON</b>"
'Int1.Text = "" & criterio1
'If Data.Text = " 01/01/2000 " Then
'Int1.Text = "DIGITARE I CRITERI DI RICERCA PER LAVORARE"
QueryTxT.Text = "LETTERA INIZIALE : '" & strAlpha & "%" & "'"
'End If
Else
QueryTxT.Text = "TUTTI I COGNOMI CHE INIZIANO CON : '" & strAlpha & "%" & "'"
'Int1.Text = "" & criterio1
End If
End If
Else
'---------------RICERCA FILTRO ETA+COMUNE
If chkETA.Checked Then
Dim query As String = "select * from Clienti WHERE Eta BETWEEN " & strETA & " AND " & strETAB & " AND Citta = '" & strCitta & "' ORDER BY Eta"
Dim StrCriterio as String
StrCriterio = "Eta : '" & strETA & "' Città : '" & strCitta & "'"
QueryTxT.Text = "TUTTE LE PERSONE TROVATE CON ETA - " & strETA & " - ."
'Int1.Text = "CRITERIO :" + strCriterio
'Dim query as String
Dim dd As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(query, dd)
Dim dss As New DataSet()
da.Fill(dss)
da.Fill(dss,"Clienti")
Dim dv As DataView = dss.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
Dim recordcount as Integer
recordcount = dss.Tables("Clienti").Rows.Count
If recordcount = 0 Then
Int1.Text = "NESSUN RISULTATO !</b>"
'Int1.Text = "" & criterio1
If Data.Text = " 01/01/2000 " Then
Int1.Text = "DIGITARE I CRITERI DI RICERCA PER LAVORARE"
End If
Else
Int1.Text = "Record trovati :</b> " & recordcount
'Int1.Text = "" & criterio1
End If
Else
'-------------------------------------------------------------------------------TUTTI
If strName <>"" AND strData <>"" AND strData2 <>"" AND strCitta <>"" AND strRIP <>"" AND strRICH <>"" AND strETA <>"" AND strETAB <>"" Then
Dim query As String = "select * from Clienti where Utente = '" & strName & "' AND Data BETWEEN #" & strData & "# AND #" & strData2 & "# AND Citta = '" & strCitta & "' AND RIP = '" & strRIP & "' AND RICH = '" & strRICH & "' AND Eta BETWEEN " & strETA & " AND " & strETAB & " ORDER BY ID desc"' OR Cognome = '" & strCognome & "%" & "'"
'Dim query As String = "select * from Clienti where Cognome LIKE '" & strAlpha & "%" & "'"
Dim StrCriterio as String
StrCriterio = "Utente : '" & strName & "' Data da: #" & strData & "# a: #" & strData2 & "# Città : '" & strCitta & "' Età da : '" & strEta & "' a : '" & strETAB & "' RIP : '" & strRIP & "' RICH: '" & strRICH & "'"
QueryTxT.Text = "- " + strCriterio
'Int1.Text = "CRITERIO :" + strCriterio
'Dim query as String
Dim dd As New OleDbConnection(cs)
Dim da As New OleDbDataAdapter(query, dd)
Dim dss As New DataSet()
da.Fill(dss)
da.Fill(dss,"Clienti")
Dim dv As DataView = dss.Tables("Clienti").DefaultView
If Label2.Text <> "" Then dv.Sort = Label2.Text + " " + Label1.Text
dg.DataSource = dv
dg.DataBind()
Dim recordcount as Integer
recordcount = dss.Tables("Clienti").Rows.Count
If recordcount = 0 Then
Int1.Text = "NESSUN RISULTATO PER</b>"
'Int1.Text = "" & criterio1
If Data.Text = " 01/01/2000 " Then
Int1.Text = "DIGITARE I CRITERI DI RICERCA PER LAVORARE"
End If
Else
Int1.Text = "Record trovati :</b> " & recordcount
'Int1.Text = "" & criterio1
End If
End If
End If
End If
End If
End If
End If
End If
'--------------------------------
If dg.CurrentPageIndex > 0 Then
'Name.visible = "false"
'Cognome.visible = "false"
'Data.visible = "false"
'Citta.visible = "false"
'Criterio.visible = "false"
''btnNome.visible = "false"
'btnCognome.visible = "false"
'btnData.visible = "false"
'btnCitta.visible = "false"
'btnCriterio.visible = "false"
'chk1.visible = "False"
'chk2.visible = "False"
'chk3.visible = "False"
'chk4.visible = "False"
panel2.visible = False
Else
'Name.visible = "True"
'Cognome.visible = "True"
'Data.visible = "True"
'Citta.visible ="True"
'btnNome.visible = "True"
'btnCognome.visible = "True"
'btnData.visible = "True"
'btnCitta.visible = "True"
'btnCriterio.visible = "True"
'chk1.visible = "True"
'chk2.visible = "True"
'chk3.visible = "True"
'chk4.visible = "True"
panel2.visible = True
End If
End Sub
'---------------------------------------------------------------------
Sub MyDataGrid_ItemDataBound(Source as Object, E as DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.Footer then
Dim x as Integer
SqlHolder.Text = string.empty
for x=65 to 90
SQLHolder.text=SQLHolder.text & "" & chr(x) & " | "
next
SQLHolder.text=SQLHolder.text & " | AGGIORNA |"
'SQLHolder.text=SQLHolder.text & ""<asp:Button id="buttonALPHA" onclick= "cleartextboxes" runat="server" Text="TUTTI" causesvalidation="false"></asp:Button>""
End If
End Sub
'--------------------FINE ALPHA
Sub dg_Page(Sender As Object, E As DataGridPageChangedEventArgs)
If Not bEditing Then
dg.CurrentPageIndex = e.NewPageIndex
BindGrid2()
End If
End Sub
'----------------------------------------------------------------------
Sub dg_Sort(Sender As Object, E As DataGridSortCommandEventArgs)
If Not bEditing Then
If Label2.Text = e.SortExpression Then
If Label1.Text = "ASC" Then
Label1.Text = "DESC"
Else
Label1.Text = "ASC"
End If
End If
Label2.Text = e.SortExpression
BindGrid2()
End If
End Sub
'-----------------------------------------------------------------------
Sub dg_Edit(sender As Object, e As DataGridCommandEventArgs)
If Not bEditing Then
dg.EditItemIndex = e.Item.ItemIndex
BindGrid2()
SingleColumn(False)
End If
End Sub
'-----------------------------------------------------------------------
Sub dg_Cancel(sender As Object, e As DataGridCommandEventArgs)
dg.EditItemIndex = - 1
BindGrid2()
SingleColumn(True)
End Sub
'--------------------------------------------------------------------------
Sub dg_Update(sender As Object, e As DataGridCommandEventArgs)
dg.EditItemIndex = - 1
Dim strcmd As String = "UPDATE Clienti SET "
Dim pkvalue As String = dg.DataKeys(CInt(E.Item.ItemIndex))
Dim field2 As String = CType(e.Item.FindControl("Field2"), TextBox).Text
strcmd = strcmd & "Utente = '" & field2 & "' , "
Dim field3 As String = CType(e.Item.FindControl("Field3"), TextBox).Text
strcmd = strcmd & "Nome = '" & field3 & "' , "
Dim field4 As String = CType(e.Item.FindControl("Field4"), TextBox).Text
strcmd = strcmd & "Cognome = '" & field4 & "' , "
Dim field5 As String = CType(e.Item.FindControl("Field5"), TextBox).Text
strcmd = strcmd & "Ntel = '" & field5 & "' , "
Dim field6 As String = CType(e.Item.FindControl("Field6"), TextBox).Text
strcmd = strcmd & "Data = '" & field6 & "' , "
Dim field7 As String = CType(e.Item.FindControl("Field7"), TextBox).Text
strcmd = strcmd & "RIP = '" & field7 & "' , "
Dim field8 As String = CType(e.Item.FindControl("Field8"), TextBox).Text
strcmd = strcmd & "CAP = '" & field8 & "' , "
Dim field9 As String = CType(e.Item.FindControl("Field9"), TextBox).Text
strcmd = strcmd & "RICH = '" & field9 & "' , "
Dim field10 As String = CType(e.Item.FindControl("Field10"), TextBox).Text
strcmd = strcmd & "Citta = '" & field10 & "' , "
Dim field11 As String = CType(e.Item.FindControl("Field11"), TextBox).Text
strcmd = strcmd & "OraPart = '" & field11 & "' , "
Dim field12 As String = CType(e.Item.FindControl("Field12"), TextBox).Text
strcmd = strcmd & "Eta = '" & field12 & "' , "
Dim field13 As String = CType(e.Item.FindControl("Field13"), TextBox).Text
strcmd = strcmd & "NomInterl = '" & field13 & "' , "
Dim field14 As String = CType(e.Item.FindControl("Field14"), TextBox).Text
strcmd = strcmd & "IntSI = '" & field14 & "' , "
Dim field15 As String = CType(e.Item.FindControl("Field15"), TextBox).Text
strcmd = strcmd & "IntNO = '" & field15 & "' , "
Dim field16 As String = CType(e.Item.FindControl("Field16"), TextBox).Text
strcmd = strcmd & "MoTProf = '" & field16 & "' , "
Dim field17 As String = CType(e.Item.FindControl("Field17"), TextBox).Text
strcmd = strcmd & "NumCell = '" & field17 & "' , "
Dim field18 As String = CType(e.Item.FindControl("Field18"), TextBox).Text
strcmd = strcmd & "FascOra = '" & field18 & "' , "
Dim field19 As String = CType(e.Item.FindControl("Field19"), TextBox).Text
strcmd = strcmd & "Pos = '" & field19 & "' , "
Dim field20 As String = CType(e.Item.FindControl("Field20"), TextBox).Text
strcmd = strcmd & "Neg = '" & field20 & "' "
strcmd = strcmd & " WHERE ID = " & pkvalue
Dim dc As New OleDbConnection(cs)
Dim cmd As New OleDbCommand(strcmd, dc)
Try
dc.Open()
cmd.ExecuteNonQuery()
Catch ex as OleDbException
Label3.Text = ex.ToString()
Finally
dc.Close()
End Try
BindGrid2()
SingleColumn(True)
End Sub
'---------------------------------------------------------------------------------------
Sub dg_Delete(Sender As Object, E As DataGridCommandEventArgs)
If Not bEditing Then
Dim pkvalue As String = dg.DataKeys(CInt(E.Item.ItemIndex))
Dim dc As New OleDbConnection(cs)
Dim cmd As New OleDbCommand("DELETE from Clienti where ID = " & pkvalue , dc)
dc.Open()
cmd.ExecuteNonQuery()
dc.Close()
dg.CurrentPageIndex = 0
dg.EditItemIndex = - 1
BindGrid2()
End If
'-------messaggio di delete fatto
QueryTxT.Text = "RECORD CANCELLATO!!"
End Sub
'-----------------------------------------------------------------------------------------
Sub dg_ItemCreated(ByVal sender As Object, ByVal e As DataGridItemEventArgs)
If (e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem) Then
Dim deletebutton As WebControl = CType(e.Item.Cells(dg.Columns.Count - 1).Controls(0), WebControl)
'deletebutton.Attributes.Add("onclick", _
' "return confirm('Sei sicuro di voler eliminare il record selezionato??');")
End If
End Sub
'-----------------------------------------------------------------------------------------
Sub dg_Add(Sender As Object, E As EventArgs)
CheckEditing("")
If Not bEditing Then
Dim dc As New OleDbConnection(cs)
Dim cmd As New OleDbCommand("INSERT into Clienti(Utente,Nome,Cognome,NTel,Data,RIP,CAP,RICH,Citta,OraPart,Eta,NomInterl,IntSI,IntNO,MotProf,NumCell,FascOra,Pos,Neg) Values ('','','','','','','','','','','','','','','','','','','')", dc)
dc.Open()
cmd.ExecuteNonQuery()
dc.Close()
dg.CurrentPageIndex = dg.PageCount - 1
BindGrid()
SingleColumn(False)
dg.EditItemIndex = dg.Items.Count - 1
BindGrid2()
End If
End Sub
' --------------------------------------------------------------------------------------------
Sub SingleColumn(b As Boolean)
Dim i As Integer
For i = 2 To dg.Columns.Count - 1
dg.Columns(i).Visible = b
Next
Label3.Text = ""
End Sub
'------------------------------------------------------------------------------------------------
Sub dg_Item(Sender As Object, E As DataGridCommandEventArgs)
CheckEditing(e.CommandName)
End Sub
'------------------------------------------------------------------------------------------------
Sub CheckEditing(commandName As String)
If dg.EditItemIndex <> -1 Then
If commandName <> "Cancel" And commandName <> "Update" Then
Label3.Text = "Aggiornare o Annullare prima di prendere un altro nominativo!"
bEditing = True
End If
End If
End Sub
'------------------------------------------------------------------------------------------INSERT
Sub doInsert(Source as Object, E as EventArgs)
Dim strConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db\clienti.mdb") & ";"
Dim MySQL as string = "INSERT INTO CLIENTI ([Utente], [Nome], [Cognome], [NTel], [RIP], [CAP], [RICH], [Citta], [OraPart], [Eta], [NomInterl], [IntSI], [IntNO], [MoTProf], [NumCell], [FascOra], [Pos], [Neg]) values (@Utente,@Nome,@Cognome,@NTel,@RIP,@CAP,@RICH,@Citta,@OraPart,@Eta,@NomInterl,@IntSI,@IntNO,@MoTProf,@NumCell,@FascOra,@Pos,@Neg)"
Dim MyConn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(MySQL, MyConn)
cmd.Parameters.Add(New OleDbParameter("@Utente", frmUtente.text))
cmd.Parameters.Add(New OleDbParameter("@Nome", frmNome.text))
cmd.Parameters.Add(New OleDbParameter("@Cognome", frmCognome.text))
cmd.Parameters.Add(New OleDbParameter("@NTel", frmNTel.text))
'cmd.Parameters.Add(New OleDbParameter("@Data", frmData.text))
cmd.Parameters.Add(New OleDbParameter("@RIP", frmRIP.text))
cmd.Parameters.Add(New OleDbParameter("@CAP", frmCAP.text))
cmd.Parameters.Add(New OleDbParameter("@RICH", frmRICH.text))
cmd.Parameters.Add(New OleDbParameter("@Citta", frmCitta.text))
cmd.Parameters.Add(New OleDbParameter("@OraPart", frmOraPart.text))
cmd.Parameters.Add(New OleDbParameter("@Eta", frmEta.text))
cmd.Parameters.Add(New OleDbParameter("@NomInterl", frmNomInterl.text))
cmd.Parameters.Add(New OleDbParameter("@IntSI", frmIntSI.text))
cmd.Parameters.Add(New OleDbParameter("@IntNO", frmIntNO.text))
cmd.Parameters.Add(New OleDbParameter("@MotProf", frmMotProf.text))
cmd.Parameters.Add(New OleDbParameter("@NumCell", frmNumCell.text))
cmd.Parameters.Add(New OleDbParameter("@FascOra", frmFascOra.text))
cmd.Parameters.Add(New OleDbParameter("@Pos", frmPos.text))
cmd.Parameters.Add(New OleDbParameter("@Neg", frmNeg.text))
'cmd.Parameters.Add(New OleDbParameter("@Note", frmNote.text))
MyConn.Open()
cmd.ExecuteNonQuery
Esito.text = " NOMINATIVO INSERITO!"
BindGrid2()
End Sub
'---------------------------------------------------
Sub cleartextboxes(Source as Object, E as EventArgs)
Response.Redirect("default.aspx")
'BindGrid()
End Sub
'-----------------------------------------------------
Sub apriFORM(Source as Object, E as EventArgs)
panel2.visible = False
panel3.visible = False
panel1.visible = True
onMETODO.visible = False
offMETODO.visible = False
End Sub
'-------------GUIDA METODSOD
Sub apriMETODO(Source as Object, E as EventArgs)
panel2.visible = False
panel3.visible = False
panel1.visible = False
panel4.visible = True
End Sub
Sub chiudiMETODO(Source as Object, E as EventArgs)
'Response.Redirect("default.aspx")
panel2.visible = True
panel3.visible = True
'panel1.visible = True
panel4.visible = False
End Sub
'------------FINE INSERT
Sub doQuery(sender As Object, e As EventArgs)
BindGrid2()
End Sub
'-----------da rimettere se note si
'------------------
'<asp:BoundColumn DataField="Note" SortExpression="Note" HeaderText="Note"></asp:BoundColumn>
'--------------
'<tr>
'<td>
'<asp:Label Text="Note" id="FieldLabel21" runat="server" />
'</td>
'<td>
'<asp:TextBox id="Field21" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Note")%>' TextMode="multiline" columns="60" />
'</td>
'</tr>
'--------------
'<tr>
'<td align="right">
'Note :</td>
'<td>
'<asp:textbox id="frmNote" runat="server" Width="200px"></asp:textbox>
'<asp:RequiredFieldValidator id="vldNote" runat="server" ControlToValidate="frmNote" ErrorMessage="Last Name is required" display="dynamic">Note è obbligatorio!</asp:RequiredFieldValidator>
'</td>
'</tr>
'-----------------------------------------------
</script>
<html>
<head>
<title>- GESTIONE CLIENTI -</title>
</head>
<body style="FONT-FAMILY: arial">
<form method="post" runat="server">
<asp:Label id="Status" runat="server" font-size="X-Small" font-names="Arial" forecolor="#0080C0">Label</asp:Label>
<asp:button id="LogOffBtn" onclick="LogOffBtn_Click" runat="server" text="Esci" Font-Size="XX-Small"></asp:button>
<asp:Label id="Label4" runat="server" font-size="Medium" font-names="Arial" forecolor="#0080C0" width="268px" font-bold="True"> -
New Oxford School Siena - </asp:Label>
<asp:button id="onMETODO" onclick="apriMETODO" runat="server" type="button" value="METODO" Text="Visualizza METODO"></asp:button>
<asp:button id="offMETODO" onclick="chiudiMETODO" runat="server" type="button" value="METODO2" Text="X"></asp:button>
<br />
<hr size="1" />
<asp:Panel id="Panel2" runat="server" visible="True" BackColor="WhiteSmoke" Width="100%">
<div align="center">
<input id="chk1" type="checkbox" value="1" name="Filtro" runat="server" />
<asp:textbox id="Name" runat="server" Width="130px"></asp:textbox>
<asp:Button id="btnNome" onclick="doQuery" runat="server" Font-Size="XX-Small" Text="Utente"></asp:Button>
<input id="chk2" type="checkbox" value="1" name="Filtro2" runat="server" />
<asp:textbox id="Cognome" runat="server" Width="130px"></asp:textbox>
<asp:Button id="btnCognome" onclick="doQuery" runat="server" Font-Size="XX-Small" Text="Cognome"></asp:Button>
<font size="2">dal</font>
<input id="chk3" type="checkbox" value="1" name="Filtro3" runat="server" />
<asp:textbox id="Data" runat="server" Width="70px"></asp:textbox>
<asp:Button id="btnData" onclick="doQuery" runat="server" Font-Size="XX-Small" Text="Data"></asp:Button>
<font size="2">al </font>
<asp:textbox id="Data2" runat="server" Width="70px"></asp:textbox>
<asp:Button id="btnData2" onclick="doQuery" runat="server" Font-Size="XX-Small" Text="Data2"></asp:Button>
Città :<input id="chk4" type="checkbox" value="1" name="Filtro4" runat="server" />
<asp:textbox id="Citta" runat="server" Width="130px"></asp:textbox>
<asp:Button id="btnCitta" onclick="doQuery" runat="server" Font-Size="XX-Small" Text="Citta"></asp:Button>
</div>
<div align="center">
<hr />
RIP :
<asp:textbox id="RIP" runat="server" Width="30px"></asp:textbox>
RICH :
<asp:textbox id="RICH" runat="server" Width="30px"></asp:textbox>
<br />
<hr />
Età da :
<input id="chkETA" type="checkbox" value="1" name="FiltroEta" runat="server" />
<asp:textbox id="ETA" runat="server" Width="30px"></asp:textbox>
a :
<asp:textbox id="ETAB" runat="server" Width="30px"></asp:textbox>
Comune :
<input id="chk5" type="checkbox" value="1" name="Filtro5" runat="server" />
<asp:textbox id="CittaALPH" runat="server" Width="130px"></asp:textbox>
<asp:Label id="SqlHolder" runat="server" font-size="X-Small" font-names="Arial"></asp:Label>
<asp:Button id="btnCriterio" onclick="doQuery" runat="server" Font-Size="X-Small" font-bold="True" Text="- CERCA -"></asp:Button>
<hr />
</div>
</asp:Panel>
<asp:Panel id="Panel3" runat="server" visible="True" BackColor="WhiteSmoke">
<asp:datagrid id="dg" runat="server" Font-Size="XX-Small" width="100%" BackColor="White" OnUpdateCommand="dg_Update" AllowPaging="True" OnPageIndexChanged="dg_Page" DataKeyField="ID" OnDeleteCommand="dg_Delete" PageSize="12" OnSortCommand="dg_Sort" OnItemCommand="dg_Item" OnCancelCommand="dg_Cancel" OnEditCommand="dg_Edit" OnItemCreated="dg_ItemCreated" AllowSorting="True" AutoGenerateColumns="False" CellPadding="3" GridLines="None" CellSpacing="1" OnItemDataBound="MyDataGrid_ItemDataBound" ForeColor="Black" Font-Names="Arial">
<FooterStyle backcolor="#C6C3C6"></FooterStyle>
<HeaderStyle font-bold="True" forecolor="White" backcolor="#4A3C8C"></HeaderStyle>
<PagerStyle horizontalalign="Right" backcolor="#C6C3C6" pagebuttoncount="50" mode="NumericPages"></PagerStyle>
<EditItemStyle font-size="XX-Small" font-bold="True"></EditItemStyle>
<AlternatingItemStyle font-bold="True" backcolor="Silver"></AlternatingItemStyle>
<ItemStyle backcolor="LightSteelBlue"></ItemStyle>
<Columns>
<asp:TemplateColumn>
<ItemTemplate>
<asp:Button runat="server" Text="Modifica" font-size="XX-Small" CommandName="Edit" CausesValidation="false"></asp:Button>
</ItemTemplate>
<EditItemTemplate>
<ItemStyle font-size="XX-Small">
<asp:Button runat="server" Text="Aggiorna" CommandName="Update" font-size="XX-Small"></asp:Button>
<asp:Button runat="server" Text="Annulla" font-size="XX-Small" CommandName="Cancel" CausesValidation="false"></asp:Button>
</ItemStyle>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn SortExpression="ID" HeaderText="ID">
<ItemTemplate>
<%# DataBinder.Eval(Container.DataItem, "ID").ToString() %>
</ItemTemplate>
<EditItemTemplate>
<table cellpadding="5" cellspacing="0" border="1">
<tr>
<td>
<asp:Label text="ID" id="FieldLabel1" runat="server" />
</td>
<td>
<asp:TextBox id="Field1" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "ID")%>' TextMode="singleline" enabled="false" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="Utente" id="FieldLabel2" runat="server" />
</td>
<td>
<asp:TextBox id="Field2" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Utente")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="Nome" id="FieldLabel3" runat="server" />
</td>
<td>
<asp:TextBox id="Field3" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Nome")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="Cognome" id="FieldLabel4" runat="server" />
</td>
<td>
<asp:TextBox id="Field4" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Cognome")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="NTel" id="FieldLabel5" runat="server" />
</td>
<td>
<asp:TextBox id="Field5" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "NTel")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="Data" id="FieldLabel6" runat="server" />
</td>
<td>
<asp:TextBox id="Field6" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Data")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="RIP" id="FieldLabel7" runat="server" />
</td>
<td>
<asp:TextBox id="Field7" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "RIP")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="CAP" id="FieldLabel8" runat="server" />
</td>
<td>
<asp:TextBox id="Field8" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "CAP")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="RICH" id="FieldLabel9" runat="server" />
</td>
<td>
<asp:TextBox id="Field9" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "RICH")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="Citta" id="FieldLabel10" runat="server" />
</td>
<td>
<asp:TextBox id="Field10" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Citta")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="OraPart" id="FieldLabel11" runat="server" />
</td>
<td>
<asp:TextBox id="Field11" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "OraPart")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="Eta" id="FieldLabel12" runat="server" />
</td>
<td>
<asp:TextBox id="Field12" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Eta")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="NomInterl" id="FieldLabel13" runat="server" />
</td>
<td>
<asp:TextBox id="Field13" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "NomInterl")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="IntSI" id="FieldLabel14" runat="server" />
</td>
<td>
<asp:TextBox id="Field14" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "IntSI")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="IntNO" id="FieldLabel15" runat="server" />
</td>
<td>
<asp:TextBox id="Field15" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "IntNO")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="MotProf" id="FieldLabel16" runat="server" />
</td>
<td>
<asp:TextBox id="Field16" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "MotProf")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="NumCell" id="FieldLabel17" runat="server" />
</td>
<td>
<asp:TextBox id="Field17" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "NumCell")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="FascOra" id="FieldLabel18" runat="server" />
</td>
<td>
<asp:TextBox id="Field18" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "FascOra")%>' TextMode="singleline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="Pos" id="FieldLabel19" runat="server" />
</td>
<td>
<asp:TextBox id="Field19" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Pos")%>' TextMode="multiline" columns="60" />
</td>
</tr>
<tr>
<td>
<asp:Label text="Neg" id="FieldLabel20" runat="server" />
</td>
<td>
<asp:TextBox id="Field20" runat="Server" Text= '<%# DataBinder.Eval(Container.DataItem, "Neg")%>' TextMode="multiline" columns="60" />
</td>
</tr>
</table>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:BoundColumn DataField="Utente" SortExpression="Utente" HeaderText="UTENTE"></asp:BoundColumn>
<asp:BoundColumn DataField="Nome" SortExpression="Nome" HeaderText="NOME"></asp:BoundColumn>
<asp:BoundColumn DataField="Cognome" SortExpression="Cognome" HeaderText="COGNOME"></asp:BoundColumn>
<asp:BoundColumn DataField="NTel" SortExpression="NTel" HeaderText="NTEL"></asp:BoundColumn>
<asp:BoundColumn DataField="Data" SortExpression="Data" HeaderText="DATA"></asp:BoundColumn>
<asp:BoundColumn DataField="RIP" SortExpression="RIP" HeaderText="RIP"></asp:BoundColumn>
<asp:BoundColumn DataField="CAP" SortExpression="CAP" HeaderText="CAP"></asp:BoundColumn>
<asp:BoundColumn DataField="RICH" SortExpression="RICH" HeaderText="RICH"></asp:BoundColumn>
<asp:BoundColumn DataField="Citta" SortExpression="Citta" HeaderText="Citta"></asp:BoundColumn>
<asp:BoundColumn DataField="OraPart" SortExpression="OraPart" HeaderText="OraPart"></asp:BoundColumn>
<asp:BoundColumn DataField="Eta" SortExpression="Eta" HeaderText="Eta"></asp:BoundColumn>
<asp:BoundColumn DataField="NomInterl" SortExpression="NomInterl" HeaderText="NomInterl"></asp:BoundColumn>
<asp:BoundColumn DataField="IntSI" SortExpression="IntSI" HeaderText="IntSI"></asp:BoundColumn>
<asp:BoundColumn DataField="IntNO" SortExpression="IntNO" HeaderText="IntNO"></asp:BoundColumn>
<asp:BoundColumn DataField="MotProf" SortExpression="MotProf" HeaderText="MotProf"></asp:BoundColumn>
<asp:BoundColumn DataField="NumCell" SortExpression="NumCell" HeaderText="NumCell"></asp:BoundColumn>
<asp:BoundColumn DataField="FascOra" SortExpression="FascOra" HeaderText="FascOra"></asp:BoundColumn>
<asp:BoundColumn DataField="Pos" SortExpression="Pos" HeaderText="Pos"></asp:BoundColumn>
<asp:BoundColumn DataField="Neg" SortExpression="Neg" HeaderText="Neg"></asp:BoundColumn>
<asp:ButtonColumn Text="Elimina" ButtonType="PushButton" CommandName="Delete"></asp:ButtonColumn>
</Columns>
</asp:datagrid>
<hr size="1" />
<asp:Button id="LinkButton1" onclick="apriFORM" runat="server" Font-Size="X-Small" Text="AGGIUNGI NOME" Font-Bold="True"></asp:Button>
<asp:Label id="Label1" runat="server" font-size="X-Small" font-names="Arial" forecolor="#FF8080" font-bold="True" visible="False" font-italic="True" font-underline="True" font-overline="True"></asp:Label><asp:Label id="Label2" runat="server" font-size="X-Small" font-names="Arial" forecolor="#FF8080" font-bold="True" visible="False" font-italic="True" font-underline="True" font-overline="True"></asp:Label><asp:Label id="Label3" runat="server" font-size="X-Small" font-names="Arial" forecolor="#FF8080" font-bold="True" font-italic="True" font-underline="True" font-overline="True"></asp:Label>
<asp:Button id="Button1" onclick="cleartextboxes" runat="server" Font-Size="X-Small" Text="Aggiorna"></asp:Button>
<asp:Label id="Int1" runat="server" font-size="X-Small" font-names="Arial" forecolor="#0080C0" font-bold="True" font-underline="True" font-overline="True"></asp:Label> <asp:Label id="QueryTxt" runat="server" font-size="X-Small" font-names="Arial">Label</asp:Label>
</asp:Panel>
<hr size="1" />
<asp:Panel id="Panel1" runat="server" visible="False" BackColor="WhiteSmoke">
<table style="WIDTH: 50%; HEIGHT: 50%" align="left" bgcolor="lightsteelblue" border="0">
<tbody>
<tr>
<td align="left" bgcolor="lightsteelblue">
Utente :</td>
<td>
<asp:textbox id="frmUtente" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldUtente" runat="server" display="dynamic" ErrorMessage="fname is required" ControlToValidate="frmUtente">UTENTE è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
Nome :</td>
<td>
<asp:textbox id="frmNome" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldNome" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmNome">NOME è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
Cognome :</td>
<td>
<asp:textbox id="frmCognome" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldCognome" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmCognome">COGNOME è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
NTel :</td>
<td>
<asp:textbox id="frmNTel" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldNTel" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmNTel">NTEL è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
RICH :</td>
<td>
<asp:textbox id="frmRIP" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldRIP" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmRIP">RICH è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
RIP :</td>
<td>
<asp:textbox id="frmRICH" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldRICH" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmRICH">RIP è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
CAP :</td>
<td>
<asp:textbox id="frmCAP" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldCAP" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmCAP">CAP è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
CITTA :</td>
<td>
<asp:textbox id="frmCitta" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldCitta" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmCitta">CAP è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
OraPart :</td>
<td>
<asp:textbox id="frmOraPart" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldOraPart" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmOraPart">OraPart è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
Eta :</td>
<td>
<asp:textbox id="frmEta" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldEta" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmEta">Eta è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
NomInterl :</td>
<td>
<asp:textbox id="frmNomInterl" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldNomInterl" runat="server" display="dynamic" ErrorMessage="NomInterl is required" ControlToValidate="frmNomInterl">NomeInterl è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
IntSI :</td>
<td>
<asp:textbox id="frmIntSI" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldIntSI" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmIntSI">IntSI è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
IntNO :</td>
<td>
<asp:textbox id="frmIntNO" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldIntNO" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmIntNO">IntNO è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
MotProf :</td>
<td>
<asp:textbox id="frmMotProf" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldMotProf" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmMotProf">MotProf è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
NumCell :</td>
<td>
<asp:textbox id="frmNumCell" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldNumCell" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmNumCell">NumCell è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
FascOra :</td>
<td>
<asp:textbox id="frmFascOra" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldFascOra" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmFascOra">FascOra è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
POS :</td>
<td>
<asp:textbox id="frmPOS" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldPOS" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmPOS">POS è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="left">
NEG :</td>
<td>
<asp:textbox id="frmNEG" runat="server" Width="100%"></asp:textbox>
<asp:RequiredFieldValidator id="vldNEG" runat="server" display="dynamic" ErrorMessage="Last Name is required" ControlToValidate="frmNEG">NEG è obbligatorio!</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>
<asp:button id="button10" onclick="cleartextboxes" runat="server" Font-Size="XX-Small" Text="C H I U D I"></asp:button>
</td>
<td>
<asp:button id="button7" onclick="doInsert" runat="server" Font-Size="X-Small" Text="INSERISCI" Font-Bold="True"></asp:button>
<asp:Button id="button9" onclick="cleartextboxes" runat="server" Text="Annulla" causesvalidation="false"></asp:Button>
</td>
</tr>
<asp:Label id="Esito" runat="server" font-size="X-Small" font-names="Arial"></asp:Label>
</tbody>
</table>
<table bgcolor="lightsteelblue" border="0">
<tbody>
<tr>
<td valign="top" bgcolor="lightsteelblue">
<blockquote><font color="#000099">INFORMAZIONE </font><font size="1"></font></blockquote></td>
</tr>
</tbody>
</table>
</asp:Panel>
<asp:Panel id="Panel4" runat="server" Font-Size="Smaller" visible="False" BackColor="LightSteelBlue" Width="100%" ForeColor="Black" Font-Names="Tahoma" Enabled="True" EnableViewState="False" Height="560px">
<div align="left">
<blockquote><font color="#000099">INFORMAZIONE</font><font size="1"></font></blockquote>
</div>
</asp:Panel>
<hr size="1" />
<asp:Label id="Label5" runat="server" font-size="X-Small" font-names="Arial" forecolor="#0080C0" width="413px" font-bold="True">GESTIONE
Build 02 (.Net Version) © 2003 </asp:Label><asp:Label id="Label6" runat="server" font-size="XX-Small" font-names="Arial" forecolor="#0080C0">Software </asp:Label>
<hr size="1" />
</form>
</body>
</html>
--------------------
|
0 |
|
alexino_newbie
9/9/2003 5:09:11 PM
asp.net.presentation-controls
72751 articles. 
3 followers.
0 Replies
970 Views
Similar Artilces:
Add new controls to a gridview row; when editing that row using the edit row feature in the gridview control.
Hi all I have a questions that looks hard / complex to me, and i know you can help me in this. Q { I have row in a Gridview and i have an edit option to it. I press the edit button, to edit the values in that row and update data all the way back to the database. Now when i press the edit button, i want a drop down list to be displayed that contain values for a particular field in my grid view. (for now only plain text boxes appear.) } I hope you understand my question, all i need to do is replace the text box controls with a dropdown list when i am editing a row in ...
Gridview Edit go to new page and enter Edit mode on a formview control.
Okay, so far I have the edit button go to a page called update.aspx. And have the ID selected. However, I don't want it to be in selected view, I want it to go to the update.aspx page in edit mode not selected mode. Is this possible? You can add one hyperlink and set its path to update.aspx?Id=(selectedId)on update.aspx read Id's value from querystring and do updation - Hardik (Software Developer,Surat,India)Please remember to click "Mark as Answer" on this post if it helped you. You lost me at the "do updation part" so far I have a the EDIT link go to ...
Edit control is not loaded in edit mode
I have a problem that the dynamic data field edit control (such as TEXT_edit.ascx) is not loaded when in edit mode. Instead, the normal view control is loaded (such as Text.ascx). In debug I can determina the page mode is truly edit mode. Please help! Could you provide some more context: is this in a custom page with a custom column set or one of the default scaffold pages? Are you using a UIHintAttribute? Make sure the names of the display and edit versions match.Marcin DoboszSDE, ASP.NET Team, MicrosoftRead my blog This is just a thought are you using Views rather than ...
Getting data from controls in Edit mode, I'm confused about control access
I have datagrid with a few BoundColumns, and one TemplateColumn.In edit mode, while trying to save the new record (clicking on "Save")I want to get the new values, I figure out that for BoundColumn I need to get it by : ((TextBox)e.Item.Cells[0].Controls[0]).Text And for TemplateColum I need to do : (TextBox)e.Item.Cells[5].Controls[1]).Text Means, for boundcolumn I'm accessing the first control,and for templatecolumn, the second one. am I right ? If so, why is that ? Thanks !...
Multiline editing problems in DW edit control on Tabpage
Hi, I have a text column in a datawindow that is used for data entry. It behaves like a multiline edit control except that when the user hits the "enter" key the cursor does not move to a new line. Since the entries need to be in paragraph form, this is a problem. Cutting and pasting documents from email or a word processor works just fine. Any ideas on how to get the column to allow carriage returns? TIA, Jim ---== Posted via the PFCGuide Web Newsreader ==--- http://www.pfcguide.com/_newsgroups/group_list.asp checkout KeyDown event. "Jim" <Jeem62@a...
Any trick to edit any colmun in a TListview control report mode? [Edit]
I mean every subitems from the list (report mode), not just the caption, editing done within the list itself. Or any third-party TListView derived from Delphi TListView that do allow it (not TVirtualStringTree). Thanks. <richard poulin> wrote in message news:104692@forums.codegear.com... > I mean every subitems from the list (report mode), not just the caption, > editing done within the list itself. How to use the Build-in Editor of TListView to Edit SubItems http://cc.embarcadero.com/Item/23873 -- Remy Lebeau (TeamB) > {quote:title=Remy Lebeau (TeamB) wrote:...
Cannot editing data in a data Control
I use VWD 2005 Express edition. I try to use a data control to insert and update data. I did the following steps: 1.In the Toolbox, from the Data group, drag a GridView control onto the page. 2. Right-click the GridView control, click Show Smart Tag, and then on the GridView Tasks menu, in the Choose Data Source box, click SqlDataSource1. 3. On the GridView Tasks menu, click Configure Data Source. 4. Click Next to advance to the Configure the Select Statement page of the wizard. 5. On the Configure the Select Statement page, click Advanced, try to select the Generate INSERT, UPDAT...
Edit Bound DataGrid row w/out entering Edit Mode???
Hi, I am not sure if this is possible or not, but I think it may well be... I have a databound grid, which, has just a single field which needs updating. Instead of making the user click edit to enter the edit mode just to change a single field in a single record, I wondered if it is possible to use a template field on the GridView with a textbox in. The user can then enter text for the record, in this case an Account Number, and click edit to update the record. I have written out the GridView and have a template field with the textbox in absolutely fine. Now I am trying to get the value...
edit textbox for multiline data/word wrapping in edit mode
I have a textbox, that the data is long,so I want to wrap and allow for multi line mode. in this example, the data does not get displayed, when I remove the multiline textmode,the data is displayed. this is an editable datagrid. any suggestion on what I can do to get this to work. I have this set in the data grid properties: ItemStyle-Wrap=true EditItemStyle-Wrap=True actual column to be displayed: <asp:TemplateColumn HeaderText="Title Description"> <ItemTemplate> <asp:TextBox id="txttitledesc" cs...
Edit but no edit
I've Created a custom module and reuse the survey.dnn file to help with the install here it is. <?xml version="1.0" encoding="utf-8" ?> <dotnetnuke version="2.0" type="Module"> <folders> <folder> <name>CompanyName - Photos</name> <description>Photos allows you to add photo albums</description> <version>01.00.00</version> <modules> <module> <friendlyname>CompanyName - Photos</friendlyname> <controls> <c...
Cannot editing data in a data Control
I use VWD 2005 Express edition. I try to use a data control to insert and update data. I did the following steps: 1.In the Toolbox, from the Data group, drag a GridView control onto the page. 2. Right-click the GridView control, click Show Smart Tag, and then on the GridView Tasks menu, in the Choose Data Source box, click SqlDataSource1. 3. On the GridView Tasks menu, click Configure Data Source. 4. Click Next to advance to the Configure the Select Statement page of the wizard. 5. On the Configure the Select Statement page, click Advanced, try to select the Generate INSERT, U...
Problem with editing data with DetailsView control
Hi. How to solve problem with editing data in DetailsView control when some fields in a data row have null values before editing? After updating data aren't changed in database. Using the same DetailsView control to edit other data with all fields in a data row which have not null values everything is OK. What is the reason of my problem? Pawel. The reason for that your Update statement cannot handle the NULL value. When you use something like yourcol=@yourcol in the WHERE clause, you will have this issue. Because yourcol=NULL syntax is always false in normal setting, ...
Going directly to the row in the edit mode
Imagine, I have a datagrid with 20 rows. Now, If I click Edit button to edit a 20th row, the page will reload, and first rows will be displayed. I would have to scroll down to the 20th row. But how can I go directly to the 20th row in the edit mode??? regards One way is to set the smartNavigation property of the page to true - works only in IE. There are alternative ways too but those involve writing some javascript and using anchors Cheers Bug [MCSD]...
To edit or no to edit
Jon, Can I edit, whatever I've written so far, so that it doesn't look like I wrote utterly crap?-) -- Pieter "Linux is like living in a teepee. No Windows, no Gates, Apache in house." -- Usenet signature Pieter Zijlstra wrote: > Jon, > > Can I edit, whatever I've written so far, so that it doesn't look like > I wrote utterly crap?-) Oh boy, the edit button vanished from the web-forum ... ;-) -- Pieter "Humor is also a way of saying something serious." -- T. S. Eliot (1888 - 1965) Pieter Zijlstra wrote: ...
Hi all I have a questions that looks hard / complex to me, and i know you can help me in this. Q { I have row in a Gridview and i have an edit option to it. I press the edit button, to edit the values in that row and update data all the way back to the database. Now when i press the edit button, i want a drop down list to be displayed that contain values for a particular field in my grid view. (for now only plain text boxes appear.) } I hope you understand my question, all i need to do is replace the text box controls with a dropdown list when i am editing a row in ...
Gridview Edit go to new page and enter Edit mode on a formview control.
Okay, so far I have the edit button go to a page called update.aspx. And have the ID selected. However, I don't want it to be in selected view, I want it to go to the update.aspx page in edit mode not selected mode. Is this possible? You can add one hyperlink and set its path to update.aspx?Id=(selectedId)on update.aspx read Id's value from querystring and do updation - Hardik (Software Developer,Surat,India)Please remember to click "Mark as Answer" on this post if it helped you. You lost me at the "do updation part" so far I have a the EDIT link go to ...
Edit control is not loaded in edit mode
I have a problem that the dynamic data field edit control (such as TEXT_edit.ascx) is not loaded when in edit mode. Instead, the normal view control is loaded (such as Text.ascx). In debug I can determina the page mode is truly edit mode. Please help! Could you provide some more context: is this in a custom page with a custom column set or one of the default scaffold pages? Are you using a UIHintAttribute? Make sure the names of the display and edit versions match.Marcin DoboszSDE, ASP.NET Team, MicrosoftRead my blog This is just a thought are you using Views rather than ...
Getting data from controls in Edit mode, I'm confused about control access
I have datagrid with a few BoundColumns, and one TemplateColumn.In edit mode, while trying to save the new record (clicking on "Save")I want to get the new values, I figure out that for BoundColumn I need to get it by : ((TextBox)e.Item.Cells[0].Controls[0]).Text And for TemplateColum I need to do : (TextBox)e.Item.Cells[5].Controls[1]).Text Means, for boundcolumn I'm accessing the first control,and for templatecolumn, the second one. am I right ? If so, why is that ? Thanks !...
Multiline editing problems in DW edit control on Tabpage
Hi, I have a text column in a datawindow that is used for data entry. It behaves like a multiline edit control except that when the user hits the "enter" key the cursor does not move to a new line. Since the entries need to be in paragraph form, this is a problem. Cutting and pasting documents from email or a word processor works just fine. Any ideas on how to get the column to allow carriage returns? TIA, Jim ---== Posted via the PFCGuide Web Newsreader ==--- http://www.pfcguide.com/_newsgroups/group_list.asp checkout KeyDown event. "Jim" <Jeem62@a...
Any trick to edit any colmun in a TListview control report mode? [Edit]
I mean every subitems from the list (report mode), not just the caption, editing done within the list itself. Or any third-party TListView derived from Delphi TListView that do allow it (not TVirtualStringTree). Thanks. <richard poulin> wrote in message news:104692@forums.codegear.com... > I mean every subitems from the list (report mode), not just the caption, > editing done within the list itself. How to use the Build-in Editor of TListView to Edit SubItems http://cc.embarcadero.com/Item/23873 -- Remy Lebeau (TeamB) > {quote:title=Remy Lebeau (TeamB) wrote:...
Cannot editing data in a data Control
I use VWD 2005 Express edition. I try to use a data control to insert and update data. I did the following steps: 1.In the Toolbox, from the Data group, drag a GridView control onto the page. 2. Right-click the GridView control, click Show Smart Tag, and then on the GridView Tasks menu, in the Choose Data Source box, click SqlDataSource1. 3. On the GridView Tasks menu, click Configure Data Source. 4. Click Next to advance to the Configure the Select Statement page of the wizard. 5. On the Configure the Select Statement page, click Advanced, try to select the Generate INSERT, UPDAT...
Edit Bound DataGrid row w/out entering Edit Mode???
Hi, I am not sure if this is possible or not, but I think it may well be... I have a databound grid, which, has just a single field which needs updating. Instead of making the user click edit to enter the edit mode just to change a single field in a single record, I wondered if it is possible to use a template field on the GridView with a textbox in. The user can then enter text for the record, in this case an Account Number, and click edit to update the record. I have written out the GridView and have a template field with the textbox in absolutely fine. Now I am trying to get the value...
edit textbox for multiline data/word wrapping in edit mode
I have a textbox, that the data is long,so I want to wrap and allow for multi line mode. in this example, the data does not get displayed, when I remove the multiline textmode,the data is displayed. this is an editable datagrid. any suggestion on what I can do to get this to work. I have this set in the data grid properties: ItemStyle-Wrap=true EditItemStyle-Wrap=True actual column to be displayed: <asp:TemplateColumn HeaderText="Title Description"> <ItemTemplate> <asp:TextBox id="txttitledesc" cs...
Edit but no edit
I've Created a custom module and reuse the survey.dnn file to help with the install here it is. <?xml version="1.0" encoding="utf-8" ?> <dotnetnuke version="2.0" type="Module"> <folders> <folder> <name>CompanyName - Photos</name> <description>Photos allows you to add photo albums</description> <version>01.00.00</version> <modules> <module> <friendlyname>CompanyName - Photos</friendlyname> <controls> <c...
Cannot editing data in a data Control
I use VWD 2005 Express edition. I try to use a data control to insert and update data. I did the following steps: 1.In the Toolbox, from the Data group, drag a GridView control onto the page. 2. Right-click the GridView control, click Show Smart Tag, and then on the GridView Tasks menu, in the Choose Data Source box, click SqlDataSource1. 3. On the GridView Tasks menu, click Configure Data Source. 4. Click Next to advance to the Configure the Select Statement page of the wizard. 5. On the Configure the Select Statement page, click Advanced, try to select the Generate INSERT, U...
Problem with editing data with DetailsView control
Hi. How to solve problem with editing data in DetailsView control when some fields in a data row have null values before editing? After updating data aren't changed in database. Using the same DetailsView control to edit other data with all fields in a data row which have not null values everything is OK. What is the reason of my problem? Pawel. The reason for that your Update statement cannot handle the NULL value. When you use something like yourcol=@yourcol in the WHERE clause, you will have this issue. Because yourcol=NULL syntax is always false in normal setting, ...
Going directly to the row in the edit mode
Imagine, I have a datagrid with 20 rows. Now, If I click Edit button to edit a 20th row, the page will reload, and first rows will be displayed. I would have to scroll down to the 20th row. But how can I go directly to the 20th row in the edit mode??? regards One way is to set the smartNavigation property of the page to true - works only in IE. There are alternative ways too but those involve writing some javascript and using anchors Cheers Bug [MCSD]...
To edit or no to edit
Jon, Can I edit, whatever I've written so far, so that it doesn't look like I wrote utterly crap?-) -- Pieter "Linux is like living in a teepee. No Windows, no Gates, Apache in house." -- Usenet signature Pieter Zijlstra wrote: > Jon, > > Can I edit, whatever I've written so far, so that it doesn't look like > I wrote utterly crap?-) Oh boy, the edit button vanished from the web-forum ... ;-) -- Pieter "Humor is also a way of saying something serious." -- T. S. Eliot (1888 - 1965) Pieter Zijlstra wrote: ...
Web resources about - Problem with editing in my project: When i have a lot of data the editing rows mode go wrong.Why? - asp.net.presentation-controlsResources last updated: 12/13/2015 2:37:28 PM