Visual Basic - SQL Update no actualiza información

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

SQL Update no actualiza información

Publicado por Baldemar (1 intervención) el 17/05/2014 05:47:15
Hola a todos. Tengo el problema con mi siguiente código, es un programa que busca, agrega, actualiza y elimina datos. Buscar y agregar están hechas pero a la hora de querer actualizar el programa me corre el código (no marca ningún error) pero no lo actualiza realmente.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private cadenaConexion As String
Private miConexion As OleDbConnection
Private TablaSociosTableAdapter As OleDbDataAdapter
Private sociosDataSet As DataSet
 
'PROCESO DE ACTUALIZAR
 
cadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Taxis9000.accdb"
miConexion = New OleDbConnection(cadenaConexion)
 
TablaSociosTableAdapter = New OleDbDataAdapter
 
TablaSociosTableAdapter.SelectCommand = New OleDbCommand("SELECT * FROM TablaSocios", miConexion)
 
sociosDataSet = New DataSet
sociosDataSet.Tables.Add("TablaSocios")
 
TablaSociosTableAdapter.Fill(sociosDataSet.Tables("TablaSocios"))
 
TablaSociosTableAdapter.UpdateCommand = New OleDbCommand
TablaSociosTableAdapter.UpdateCommand.CommandText = "UPDATE TablaSocios SET Nombre = @nom, Apellido = @ape WHERE NumeroSocio = @numsocio"
TablaSociosTableAdapter.UpdateCommand.Parameters.Add("@nom", OleDbType.VarChar, 155, cajatxtNombre.Text)
TablaSociosTableAdapter.UpdateCommand.Parameters.Add("@ape", OleDbType.VarChar, 155, cajatxtApellidos.Text)
TablaSociosTableAdapter.UpdateCommand.Parameters.Add("@numsocio", OleDbType.VarChar, 5, cajatxtNumeroSocio.Text)
 
TablaSociosTableAdapter.UpdateCommand.Connection = miConexion
 
TablaSociosTableAdapter.Update(sociosDataSet.Tables("TablaSocios"))
 
MsgBox("La información ha sido actualizada", vbOKOnly, "Control de socios")


Gracias de antemano por su ayuda.
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