Hola, tengo un problema el siguiente código es de un botón que al pulsarlo debe actualizar los datos de unos registros de una base de datos con los valores incluidos en inputs. Si no lo hago con variables me actualiza, pero con variables no me actualiza la base de datos, pero no da ningún error.
El código es:
Sub btnModificar_Click(sender As Object, e As EventArgs)
Dim conFondoDocu as OleDbConnection
Dim strModificar as string
Dim cmdModificar as OleDbCommand
Dim reg_actual_contador as Integer = 0
conFondoDocu = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA Source=C:\Documents and Settings\lumn\Mis documentos\Lucia\PROYECTO INNOVA\Web-SMC\Fondo Documental\Fondo Documental.mdb")
strModificar = "UPDATE libro SET Titulo=@Titulo, Autor=@Autor, Descripcion=@Descripcion_breve, Tipo_documento=@Tipo_documento, Actividad=@Actividad, Fecha_Edicion=@Fecha WHERE Referencia LIKE @buscareferencia AND Codigo_actividad LIKE @codigoactividad"
cmdModificar = New OleDbCommand( strModificar, conFondoDocu )
cmdModificar.Parameters.Add( "@buscareferencia", txtbuscarref.text)
cmdModificar.Parameters.Add( "@codigoactividad", txtbuscaract.text)
cmdModificar.Parameters.Add( "@Titulo", txttitulo.text )
cmdModificar.Parameters.Add( "@Autor", txtautor.text )
cmdModificar.Parameters.Add( "@Descripcion_breve", txtdescripcion.text )
cmdModificar.Parameters.Add( "@Tipo_documento", txttipodocu.text )
cmdModificar.Parameters.Add( "@Actividad", txtactivi.text )
cmdModificar.Parameters.Add( "@Fecha", txtfecha.text )
conFondoDocu.open()
reg_actual_Contador = cmdModificar.ExecuteNonQuery()
conFondoDocu.close()
limpiar()
End Sub
Gracias, un saludo!
