Modificar Registro

[Casimiro Noteví]

Se supone que tienes una tabla con varios campos, ¿puedes poner aquí la estructura de la misma?

[agustin173]

ok entendi

Lo que necesito es madificar un registro de una tabla puse el codigo para ver que estoy haciendo mal ese es todo el codigo que tengo en el boton modificar, si puedes hacer un ejemplo te lo agradeceria

la tabla se llama "itebis"

el campo a modificar de la tabla se llama "itebis"

y estoy usando un adoquery


excusame lo que pasa es que soy nuevo programando en delphi y tambien en este foro no conozco mucho las reglas.

ayudame por favor.

[[AzidRain]]

Falta indicar que registro es el que se debe modificar, supongamos que es el que tiene el campo itebis=9 y lo vas a cambiar por un valor que captures en un edit, entonces Debe ser así:

Código Delphi [-]
// Modifica los Datos en la Base de Datos
AdoItebiBuscar.SQL.Clear;
AdoItebiBuscar.Sql.Text:='Update Itebis set Itebis:= :Itebis where Itebis:= :clave ';
AdoItebiBuscar.Parameters.ParamByName('Itebis').AsString:= EDItebiBuscar.text;
AdoItebiBuscar.Parameters.ParamByName('clave').AsInteger := 9;  //Aqui indicamos que vamos a cambiar el que tiene el valor 9
AdoItebiBuscar.ExecSQL;
ShowMessage('Registro Modificado');

[agustin173]

AzidRain te voy a poner todo a ver si puedes dar con mi problema

Estoy usando sql server 2008, delphi 7 y componente adoquery

La estructura de la base de dato es la siguiente:

La base de dato se llama "Synapse" y la tabla "Itebis"

Estructura de la Tabla Itebis

Column Name Data Type Allow Nulls
------------------------------------------------------------------------
Codigo Int
Fecha Date
Itebis char(3)

Lo que deseo es modificar los datos solamente del campo itebis los demas se quedan igual.

Tengo un boton llamado modificar que es donde tengo el problema, puse el codigo siguiente pero no me funciono.

// Modifica los Datos en la Base de Datos
AdoItebiBuscar.SQL.Clear;
AdoItebiBuscar.Sql.Text:='Update Itebis set Itebis:= :Itebis where Itebis:= :itebis';
AdoItebiBuscar.Parameters.ParamByName('Itebis').Asstring:= EDItebiBuscar.text;
AdoItebiBuscar.ExecSQL;
ShowMessage('Registro Modificado');

el .Asstring no me lo reconoce no se porque

cuando intento modificarlo me da el siguiente error:

project synapse.exe raised exception class econvert error with message 'objeto parameters mal definido. Se proporciono informacion incorrecta o incoherente. Process stopped. Use step or run to continue.

haber ahora si puedes ayudarme mejor con el codigo.

[Casimiro Noteví]

Empezado por agustin173

// Modifica los Datos en la Base de Datos
AdoItebiBuscar.SQL.Clear;
AdoItebiBuscar.Sql.Text:='Update Itebis set Itebis:= :Itebis where Itebis:= :itebis';
AdoItebiBuscar.Parameters.ParamByName('Itebis').Asstring:= EDItebiBuscar.text;
AdoItebiBuscar.ExecSQL;
ShowMessage('Registro Modificado');

'Update Itebis set Itebis:= :Itebis where Itebis:= :itebis';

Esa sentencia tiene DOS parámetros y sólo estás pasándolo Un parámetro.

Piensa en esto:
update tablaTrabajadores set sueldo=2000 where codigotrabajador=25

Como ves, hay DOS parámetros también.

Entonces, si tú quieres cambiar el valor del campo itebis a todos los que cumplan una condición tienes que pasarle los DOS parámetros, por ejemplo:

update TABLAitebis set CAMPOitebis=VALORQUEQUIERAS where CAMPOitebis='XXX'

Si quieres cambiar todos los registros que tengan el valor 'AAA' en el campo itebis, y quieres ponerle el valor 'GGG', entonce sería:

Código Delphi [-]
update itebis set itebis='GGG' where itebis='AAA'
AdoItebiBuscar.Parameters.Params[0].Asstring:=  EDItebiBuscar.text;  <---  VALOR QUE QUIERES PONER
AdoItebiBuscar.Parameters.Params[1].Asstring:=  EDItebiAQuien.text;  <--- A QUÉ REGISTROS SE LOS QUIERES PONER

He puesto Params[0] y Params[1] porque los dos son el mismo campo y puede resultar confuso.

Te aconsejo encarecidamente un tutorial de SQL y además la lectura de un estupendo libro como La cara oculta de delphi.

[agustin173]

casimiro dejame ver si entendi

update itebis set itebis = editebisbuscar where itebis = editebisbuscar

casimiro hermano no entiendo puedes hacer el codigo para verificar mejor excusame es que no se mucho de programacion

[Casimiro Noteví]

Empezado por agustin173

casimiro dejame ver si entendi

update itebis set itebis = editebisbuscar where itebis = editebisbuscar

¿Yo he puesto eso?

Empezado por agustin173

casimiro hermano no entiendo puedes hacer el codigo para verificar mejor excusame es que no se mucho de programacion

Te aconsejo encarecidamente un tutorial de SQL y además la lectura de un estupendo libro como La cara oculta de delphi.


Creo que primero de todo debes aclarar PERFECTAMENTE una cosa: ¿Tú qué quieres hacer?