Hola que tal, necesito que me ayuden con algo, estoy creando una aplicación web vb.net, donde hay un botón que al tocarlo suma la cantidad de clicks sobre este botón a un label. Después al llegar a los 15 clicks aparece otro botón que al apretarlo pasa esta
cantidad de clicks a otro label donde se va acumulando todo. La parte esta ya la tengo echa correctamente. Lo único que me falta es que el valor de esta label se guarde en la base de datos de SQL y que este mismo label tome el valor de la base de datos SQL.
Es decir para que si se llegase a apagar la aplicación quede guardado el valor, y al iniciarlo este tome el valor denuevo, y nunca perder el valor. Pero no que tome y guarde el valor de la base SQL al apretar un botón sino que se haga solo al iniciar y finalizar
la aplicación.
Espero que me puedan ayudar, porque es lo ultimo que me falta para terminar mi proyecto. Muchas gracias de antemano. Este es el codigo como me indicaron que lo haga pero, es correcto?
Este es el codigo del default.aspx:
Imports System.Data.SqlClient
Partial Class Default2
Inherits System.Web.UI.Page
Protected Sub ImageButton1_Click(sender As Object, e As ImageClickEventArgs) Handles ImageButton1.Click
Label4.Text = Label4.Text + 1
If Label4.Text = 1 Then
Try
Button5.Visible = True
Catch ex As Exception
End Try
End If
End Sub
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Label3.Text = (Int32.Parse(Label3.Text) + Val(Label4.Text)).ToString()
Application("micontador") = Label3.Text
Label4.Text = 0
Button5.Visible = False
' grabas en la bd
Dim conex As String = "Server=drinkbeers.mssql.somee.com;Databse=drinkbeers;integrated securirty=true"
Dim query As String = "insert into tabla values(@contador)"
Dim cn As New SqlConnection(conex)
Dim cmd As New SqlCommand(query, cn)
cmd.CommandType = Data.CommandType.Text
cmd.Parameters.AddWithValue("@contador", Convert.ToInt32(Label3.Text))
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
'recuperas de la bd
Dim quer As String = "select max(contador) from tabla"
Dim contador As Integer
Dim cm As New SqlCommand(quer, cn)
cm.CommandType = Data.CommandType.Text
cn.Open()
contador = Convert.ToInt32(cm.ExecuteScalar())
cn.Close()
Label3.Text = contador.ToString()
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
Label3.Text = Application("MiContador")
End Sub
End Class
Este es el codigo del web.config:
<?xml version="1.0"?>
<!--
For more information on how to configure your ASP.NET application, please visit
http://go.microsoft.com/fwlink/?LinkId=169433
-->
<configuration>
<system.web>
<compilation debug="true" strict="false" explicit="true" targetFramework="4.5" />
<httpRuntime targetFramework="4.5"/>
<pages styleSheetTheme="theme1"/>
</system.web>
<connectionStrings>
<add name="ConnString" connectionString="workstation id=drinkbeers.mssql.somee.com;packet size=4096;user id=Naqy_SQLLogin_1;pwd=u1vjm87zx4;data source=drinkbeers.mssql.somee.com;persist security info=False;initial catalog=drinkbeers"
providerName="System.Data.SqlClient"/>
</connectionStrings>
<!--<appsettings>
-->
<!--<add key="connectionString" value="Data Source=TUTE-PC\SQLEXPRESS;Initial Catalog=beer;Integrated Security=True"/>-->
<!--
<add key="connectionString" value="workstation id=drinkbeers.mssql.somee.com;packet size=4096;user id=*********;pwd=*******;data source=drinkbeers.mssql.somee.com;persist security info=False;initial catalog=drinkbeers"/>
</appsettings>-->
</configuration>
