none
Ayuda "Aplicacion web: Guardar valor de label en base de datos SQL y de la base de datos SQL al label" en Vb.Net RRS feed

  • Pregunta

  • 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>


    lunes, 10 de abril de 2017 3:13