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.
