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