quanti utenti ci sono dentro al database?

[victor8872]

Ciao,
so che la domanda è molto semplice.
In asp facevo un ciclo for per fare crescere una variabile che mi dava il numero di utenti dentro al db.

Adesso, che sono all'inizion con asp.net, non so dove mettere il ciclo for per fare aumentare la variabile.

Vi posto il codice

<%@ Page Language="vb" Debug="true" %>
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>

<script language="VB" runat="server">
sub page_load (obj as object, e as eventargs)

dim objconn as new oledbconnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("scuola_dansalsa2.mdb"))

dim objcmd as new oledbdataadapter ("select * from allievi", objconn)
'************************************************
'qui ho provato a mettere la variabile che aumenta ma mi da sempre 1
dim num as integer=0
num=num+1
response.Write(num)


dim ds as dataset=new dataset()
objcmd.fill (ds,"allievi")

mydatagrid.datasource=ds.tables("allievi").default view
mydatagrid.databind


end sub


</script>

<form runat="server">
<asp:hyperlink runat="server" NavigateUrl="home.aspx" Text="home" />

<asp:datagrid id="mydatagrid" runat="server" BorderColor="#0000FF" GridLines="Horizontal" CellPadding="4" CellSpacing="0" Font-Name="verdana" Font-Size="8pt" AutoGenerateColumns="false" ShowFooter="true" HeaderStyle-BackColor="#0000CC" HeaderStyle-ForeColor="#FFFF00" FooterStyle-BackColor="#0000FF" AlternatingItemStyle-BackColor="#FFFFCC" Width="750" HorizontalAlign="Center">
<columns>
<asp:templatecolumn HeaderText="nome">
<itemtemplate>

<asp:label ID="nome" runat="server" Text='<%#container.dataitem("nome")%>'/>

</itemtemplate>

</asp:templatecolumn>

<asp:templatecolumn HeaderText="cognome">
<itemtemplate>

<asp:label ID="cognome" runat="server" Text='<%#container.dataitem("cognome")%>'/>

</itemtemplate>




</asp:templatecolumn>
<asp:templatecolumn HeaderText="numero tessera">
<itemtemplate>

<asp:label ID="numero_tessera" runat="server" Text='<%#container.dataitem("numero_tessera")%>'/>

</itemtemplate>



</asp:templatecolumn>








</columns>



</asp:datagrid>
</form>

[AndreaZani]

Visto che inserisci il contenuto della query in un datatable, puoi fare il conteggio in modo più semplice:

 dim objconn as new oledbconnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("scuola_dansalsa2.mdb"))

dim objcmd as new oledbdataadapter ("select * from allievi", objconn)
dim ds as dataset=new dataset()
objcmd.fill (ds,"allievi")

mydatagrid.datasource=ds.tables("allievi").defaultview
mydatagrid.databind 

dim quanti as integer
quanti=ds.tables("allievi").Rows.Count

Ciao

[victor8872]

grazie mille funziona
adesso vorrei fare in modo che quando si inserisce un nuovo utente prima si controlli che non ne esista gia uno con un numero tessera uguale...

ti mando il codice...mi da errori e non riesco ad uscirne

grazie

<%@ Page Language="vb" Debug="true" %>
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>

<script language="VB" runat="server">
sub vai (obj as object, e as eventargs)

dim objconn as new oledbconnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("scuola_dansalsa2.mdb"))

dim objcmd as new oledbdataadapter ("select * from allievi where numero_tessera='"& tessera.text &"'", objconn)



dim ds as dataset=new dataset()
objcmd.fill (ds,"allievi")

mydatagrid.datasource=ds.tables("allievi").default view
mydatagrid.databind

dim quanti as integer
quanti=ds.tables("allievi").Rows.Count

if (quanti > 0)then
sub inserisci_nuovo_allievo()
end if


end sub

sub inserisci_nuovo_allievo (obj as object, e as eventargs)
dim sql as string=" insert into allievi (cognome,numero_tessera,nome) values ('"& cognome.text &"','"& numero_tessera.text &"','"& nome.text &"') "
funzione_azione_sql(sql)
end sub

function funzione_azione_sql(sql)
dim objcmd as new oledbcommand (sql, objconn)
objcmd.connection.open()
objcmd.executenonquery()
objcmd.connection.close()

end function









</script>

<form runat="server">
<asp:hyperlink runat="server" NavigateUrl="home.aspx" Text="home" />

<asp:datagrid id="mydatagrid" runat="server" BorderColor="#0000FF" GridLines="Horizontal" CellPadding="4" CellSpacing="0" Font-Name="verdana" Font-Size="8pt" AutoGenerateColumns="false" ShowFooter="true" HeaderStyle-BackColor="#0000CC" HeaderStyle-ForeColor="#FFFF00" FooterStyle-BackColor="#0000FF" AlternatingItemStyle-BackColor="#FFFFCC" Width="750" HorizontalAlign="Center">
<columns>
<asp:templatecolumn HeaderText="nome">
<itemtemplate>


<asp:label ID="nome" runat="server" Text='<%#container.dataitem("nome")%>'/>

</itemtemplate>

</asp:templatecolumn>

<asp:templatecolumn HeaderText="cognome">
<itemtemplate>

<asp:label ID="cognome" runat="server" Text='<%#container.dataitem("cognome")%>'/>


</itemtemplate>




</asp:templatecolumn>
<asp:templatecolumn HeaderText="numero tessera">
<itemtemplate>

<asp:label ID="numero_tessera" runat="server" Text='<%#container.dataitem("numero_tessera")%>'/>

</itemtemplate>



</asp:templatecolumn>


</columns>



</asp:datagrid>
<aspanel ID="pannello" runat="server">
<asp:textbox ID="nome" runat="server"/>nome

<asp:textbox ID="cognome" runat="server"/>cognome

<asp:textbox ID="tessera" runat="server"/>


<asp:button runat="server" OnClick="vai"/>

</aspanel>
</form>

[AndreaZani]

Così è un po' dura capire il problema se non mi segnali qual è l'errore!

Dando una veloce lettura al codice ho notato che utilizzi in funzioni oggetti dichiarati in altre funzioni. Per esempio in
funzione_azione_sql utilizzi l'oggetto objconn che hai dichiarato nell'evento vai.

Per risolvere questo è sufficiente spostare la dichiarazione dell'oggetto objconn fuori dall'evento stesso:

dim objconn as oledbconnection 
sub vai (obj as object, e as eventargs)

objconn = new oledbconnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("scuola_dansalsa2.mdb"))

Ma se puoi segnalare l'errore forse possiamo aiutarti.

Ciao

[victor8872]

ciao, intanto grazie per l'aiuto

ho provato a fare cosi e sembra che funzioni
ti mando il tutto
so comunque di essere ancora incasinato nel scrivere il codice ma è che ancora ci capisco ben poco di asp.net io provengo da asp

<%@ Page Language="vb" Debug="true" %>
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>

<script language="VB" runat="server">
sub vai (obj as object, e as eventargs)

dim objconn as new oledbconnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("scuola_dansalsa2.mdb"))

dim objcmd as new oledbdataadapter ("select * from allievi where numero_tessera='"& numero_tessera.text &"'", objconn)



dim ds as dataset=new dataset()
objcmd.fill (ds,"allievi")

mydatagrid.datasource=ds.tables("allievi").default view
mydatagrid.databind

dim quanti as integer
quanti=ds.tables("allievi").Rows.Count

if (quanti = 0)then
dim sql as string=" insert into allievi (cognome,numero_tessera,nome) values ('"& cognome.text &"','"& numero_tessera.text &"','"& nome.text &"') "
dim objcmd2 as new oledbcommand (sql, objconn)
objcmd2.connection.open()
objcmd2.executenonquery()
objcmd2.connection.close()
else
response.Write("esiste gia")
end if


end sub











</script>

<form runat="server">
<asp:hyperlink runat="server" NavigateUrl="home.aspx" Text="home" />

<asp:datagrid id="mydatagrid" runat="server" BorderColor="#0000FF" GridLines="Horizontal" CellPadding="4" CellSpacing="0" Font-Name="verdana" Font-Size="8pt" AutoGenerateColumns="false" ShowFooter="true" HeaderStyle-BackColor="#0000CC" HeaderStyle-ForeColor="#FFFF00" FooterStyle-BackColor="#0000FF" AlternatingItemStyle-BackColor="#FFFFCC" Width="750" HorizontalAlign="Center">
<columns>
<asp:templatecolumn HeaderText="nome">
<itemtemplate>


<asp:label ID="nome" runat="server" Text='<%#container.dataitem("nome")%>'/>

</itemtemplate>

</asp:templatecolumn>

<asp:templatecolumn HeaderText="cognome">
<itemtemplate>

<asp:label ID="cognome" runat="server" Text='<%#container.dataitem("cognome")%>'/>


</itemtemplate>




</asp:templatecolumn>
<asp:templatecolumn HeaderText="numero tessera">
<itemtemplate>

<asp:label ID="numero_tessera" runat="server" Text='<%#container.dataitem("numero_tessera")%>'/>

</itemtemplate>



</asp:templatecolumn>


</columns>



</asp:datagrid>
<aspanel ID="pannello" runat="server">
<asp:textbox ID="nome" runat="server"/>nome

<asp:textbox ID="cognome" runat="server"/>cognome

<asp:textbox ID="numero_tessera" runat="server"/>numero tessera


<asp:button runat="server" OnClick="vai"/>

</aspanel>
</form>

[AndreaZani]

Allora era l'errore che avevo sospettato di oggetti non dichiarati globalmente

Ciao

[sms]

non vorrei sembrare un rompiballe ma quando posti codice html/vb/cs ecc cerca di utilizzare il tag CODE ..
il tutto è formattato molto meglio e, io personalmente leggo meglio il codice ..
ciao!

[AndreaZani]

Il late-binding è la tecnica usata con la configurazione di base nelle pagine asp.net scritte in Visual Basic. Facilita di molto lo sviluppo, ma compromette le prestazioni di una applicazione.

Ulteriori info le trovi in questi blog e derivati:
http://blogs.aspitalia.com/az/post542.aspx
http://blogs.aspitalia.com/ricciolo/post545.aspx

Ciao