Visual Basic.NET - Modulo

   
Vista:

Modulo

Publicado por Guillermo (1 intervención) el 26/12/2011 02:40:27
Hola a todos, necesitaría si alguien me puede decir como llamo desde un boton de un formulario a la funcion y al sub de este modulo

Imports System.Data.SqlClient
Module ActualizaOperadores
Public Function CadenaConexion() As String
Dim csb As New SqlConnectionStringBuilder
csb.DataSource = "(local)\SQLEXPRESS"
csb.InitialCatalog = "Centro.sdf"
csb.IntegratedSecurity = True

Return csb.ConnectionString
End Function

Public Sub Actualiza(ByVal id As String, ByVal centro As String, ByVal identificador As String, ByVal codigo As String, ByVal denominacion As String, ByVal domicilio As String, ByVal localidad As String, ByVal provincia As String, ByVal telefono As String, ByVal email As String, ByVal iva As String, ByVal documento As String, ByVal cuit As String, ByVal estado As String)
Dim sCon As String = CadenaConexion()
Dim sel As String
Dim Operadores As Boolean

sel = "UPDATE " & Operadores & " SET Centro = @Centro, Identificador= @Identificador, Codigo = @Codigo, Denominacion = @Denominacion, Domicilio = @Domicilio, Localidad = @Localidad, Provincia = @Provincia, Telefono = @Telefono, Email = @Email, IVA = @IVA, Documento = @Documento, CUIT = @CUIT, Estado = @Estado " & " WHERE Id = @Id"

Using con As New SqlConnection(sCon)
Dim cmd As New SqlCommand(sel, con)
cmd.Parameters.AddWithValue("@Id", id)
cmd.Parameters.AddWithValue("@Centro", centro)
cmd.Parameters.AddWithValue("@Identificador", identificador)
cmd.Parameters.AddWithValue("@Codigo", codigo)
cmd.Parameters.AddWithValue("@Denominacion", denominacion)
cmd.Parameters.AddWithValue("@Domicilio", domicilio)
cmd.Parameters.AddWithValue("@Localidad", localidad)
cmd.Parameters.AddWithValue("@Provincia", provincia)
cmd.Parameters.AddWithValue("@Telefono", telefono)
cmd.Parameters.AddWithValue("@Email", email)
cmd.Parameters.AddWithValue("@IVA", iva)
cmd.Parameters.AddWithValue("@Documento", documento)
cmd.Parameters.AddWithValue("@CUIT", cuit)
cmd.Parameters.AddWithValue("@Estado", estado)

con.Open()
Dim t As Integer = cmd.ExecuteNonQuery()
con.Close()

Console.WriteLine("Filas actualizadas: {0}", t)
End Using
End Sub
End Module

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Modulo

Publicado por Damian (824 intervenciones) el 30/12/2011 14:24:47
Call NombreFuncion()

Ese sería una función que no recibe parámetros, en el caso de que si, debes poner cada parámetro que posea la función.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar