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.
Gracias de antemano por su ayuda.
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 OleDbDataAdapterTablaSociosTableAdapter.SelectCommand = New OleDbCommand("SELECT * FROM TablaSocios", miConexion)
sociosDataSet = New DataSetsociosDataSet.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
0