Foros del Web » Programación para mayores de 30 ;) » .NET »

Varias preguntas sobre un modulo

Estas en el tema de Varias preguntas sobre un modulo en el foro de .NET en Foros del Web. Hola, en un modulo tengo el sig. codigo para actualizar registros de una base de datos SQL local excluida al proyecto, la base es del ...
  #1 (permalink)  
Antiguo 09/05/2011, 18:42
 
Fecha de Ingreso: mayo-2011
Mensajes: 2
Antigüedad: 10 años, 6 meses
Puntos: 0
Varias preguntas sobre un modulo

Hola, en un modulo tengo el sig. codigo para actualizar registros de una base de datos SQL local excluida al proyecto, la base es del tipo Microsoft SQL Server Compact 3.5 (Proveedor de datos .NET Framework para Microsoft SQL Server Compact 3.5)

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

Return csb.ConnectionString
End Function

Public Sub Actualizar(ByVal id As Integer, ByVal identificador As String, ByVal codigo_oper As String, ByVal tipo_oper As String, ByVal den_oper As String, ByVal apellido As String, ByVal nombre As String, ByVal domicilio As String, ByVal telefono As String, ByVal celular As String, ByVal fax As String, ByVal email As String, ByVal contacto As String, ByVal vendedor As String, ByVal estado As String)
Dim sCon As String = CadenaConexion()
Dim sel As String

sel = "UPDATE " & Alumnos & " SET Identificador = @Identificador, Codigo_oper= @Codigo_oper, Tipo_oper = @Tipo_oper, Den_oper = @Den_oper, Apellido = @Apellido, Nombre = @Nombre, Domicilio = @Domicilio, Telefono = @Telefono, Celular = @Celular, Fax = @Fax, Email = @Email, Contacto = @Contacto, Vendedor = @Vendedor, 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("@Identificador", identificador)
cmd.Parameters.AddWithValue("@Codigo_oper", codigo_oper)
cmd.Parameters.AddWithValue("@Tipo_oper", tipo_oper)
cmd.Parameters.AddWithValue("@Den_oper", den_oper)
cmd.Parameters.AddWithValue("@Apellido", apellido)
cmd.Parameters.AddWithValue("@Nombre", nombre)
cmd.Parameters.AddWithValue("@Domicilio", domicilio)
cmd.Parameters.AddWithValue("@Telefono", telefono)
cmd.Parameters.AddWithValue("@Celular", celular)
cmd.Parameters.AddWithValue("@Fax", fax)
cmd.Parameters.AddWithValue("@Email", email)
cmd.Parameters.AddWithValue("@Contacto", contacto)
cmd.Parameters.AddWithValue("@Vendedor", vendedor)
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

Preguntas
1) En esta linea csb.DataSource = "(local)\SQLEXPRESS", la tengo que dejar exactamente asi o debo colocar toda la ruta del DataSource.
2) En esta linea csb.InitialCatalog = " ", dentro de las comillas debo colocar el nombre de la base de datos con o sin la extension, la extension es ".sdf".
3) Como declaro la tabla "Alumnos" porque en esta linea me dice que no esta difinida
sel = "UPDATE " & Alumnos & " ............................

y por ultimo y sepan disculpar es que soy nuevo en esto como llamo al modulo desde el evento keyPress asignando la tecla Enter al TextBox3, es decir al dar Enter en el TextBox3 que llame al modulo.

Muchas gracias y saludos.

Etiquetas: modulo, preguntas
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 05:24.