Hola como puedo aplicar el llamado de una funcion, usando texfobx
Public Function CadenaConexion() As String
Dim csb As New SqlConnectionStringBuilder
csb.DataSource = "(local)\SQLEXPRESS"
csb.InitialCatalog = "prueba_SQL"
csb.IntegratedSecurity = True
Return csb.ConnectionString
End Function
Public Sub Eliminar(ByVal id As Integer)
Dim sCon As String = CadenaConexion()
Dim sel As String = "DELETE FROM " & NombreTabla & " WHERE ID = @ID"
Using con As New SqlConnection(sCon)
Dim cmd As New SqlCommand(sel, con)
cmd.Parameters.AddWithValue("@ID", id)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
End Sub
Esta bien o mal hacer este llamado desde un texdbox ?
textbox1 = call eliminar ()
