Borrar todos los registros de una tabla con un botón!!!

[stuart_david3]

Hola a todos, pues verán eh querido generar un botón para borrar todos los registros que contenga una tabla, lo hice de la siguiente manera pero no me borra ninguno, pero no me marca error al ejecutar mi botonazo :p...

Este es el código :p...

Código vb:

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim conn2 As SqlConnection = New SqlConnection("server=myhost;database=DBPRUEBA;User ID=myuser;Password=mypass;Trusted_Connection=no")
            Dim sql3 As String = "TRUNCATE TABLE Calificacion"
            Dim dr As New SqlCommand(sql3, conn2)
            conn2.Open()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
            MsgBox("no se pudo cargar a la base de datos")
        End Try
    End Sub
 

Agradezco mucho su ayuda, yo suponía que tan solo al ejecutar la query me haría el borrado de registros ya que desde el sql si los borra todos, pero a la hora de generarlo desde mi asp veo que mis registros siguen intactos... :s...

Gracias de antemano!!!...

[ramirezmario7]

Hola
No manejo VB pero por lo que veo te falta ejecutar la sentencia con el dr.executenonquery.

Me parece muy extraño como declaras el comando, le pones el nombre como si fura un datareader, por buenas practicas al crear los nombres intenta que signifiquen algo paresido a lo que hace.

otra cosa, veo que abres la conexion pero recuerda siempre cerrarla para liberar los recursos.

[stuart_david3]

Oh rayos!!! Tienes razón ramirezmario7 en ningún momento ejecuto mi DataReader... Muchas gracias, así queda el código para ejecutar la query :p...

Código vb:

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim conn2 As SqlConnection = New SqlConnection("server=myhost;database=DBPRUEBA;User ID=myuser;Password=mypass;Trusted_Connection=no")
            Dim sql3 As String = "TRUNCATE TABLE Calificacion"
            conn2.Open()
            Using command As New SqlCommand(sql3, conn2)
                command.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
            MsgBox("no se pudo cargar a la base de datos")
        End Try
    End Sub
 

De nuevo muchas gracias :p...