Query1 cannot modify a read-only dataset

[javiermorales]

Suponiendo que el ADOCommand se llame ADOCommand1 y el DBGrid está asociado al DataSource de nombre DataSource1, el texto a poner es como te había comentado Nbull y completo podría ser:

Código Delphi [-]
ADOCommand1.CommandText:='DELETE * FROM agenda WHERE nombre=:nombre';
ADOCommand1.Parameters.Paramvalues['nombre'] := QuotedStr(DataSource1.DataSet.FieldByName('nombrecampo').asString);
ADOCommand1.Execute;

Por supuesto, debes tener configurada la propiedad "Connection" del ADOCommand, para poder conectarte a la BD.

Un saludo.

[[Nbull]]

Pues muchas Gracias Javier, pero, ahora no me da error pero no me borra elregistro seleccionado, no me hace nada, lo he puesto conforme tu me has dicho la conexion la hago bien,pero el ca... no me borra el registro, no se como lo podre solucionar.

Si sabes lo que le puede pasar cuentamelo, muchas gracias de todos modos.

[javiermorales]

Hola, te recomiendo que traces la ejecución, parándote en la línea de la instrucción Execute, en ese momento vas al menú "Run" y con la opción Evaluate o Inspect, le pides que te de el contenido de "ADOCommand1.CommandText", así podrás ver la instrucción con la sustitución del parámetro "nombre" y podrás copiarla y llevártela a Access para probarla.

Un saludo.

[[Nbull]]

Hola Javier, al final ya lo solucione, el problema es que no me cogia el parametro 'nombre' cuando tu ponias:

ADOCommand1.CommandText:='DELETE * FROM agenda WHERE nombre=:nombre';

no me ponia el registro seleccionado, lo solucione asi:

Código Delphi [-]
 
ADOCommand1.CommandText:='DELETE * FROM agenda WHERE Nombre='+ QuotedStr(DataSource3.DataSet.FieldByName('Nombre').asString);

Ahora solo me falta que me refresque la tabla cuando borro el registro, pero eso ya se hacerlo, Muchas gracias por tu ayuda.

[javiermorales]

La solución es correcta, pero si quieres utilizar de todas maneras el parámetro, solo debes darle un espacio entre el nombre del parámetro y la comilla simple

Código Delphi [-]
ADOCommand1.CommandText:='DELETE * FROM agenda WHERE nombre=:nombre ';

Un saludo.