Eliminar Registro Con ADODataSet

[[oscarac]]

en lugar del active usa execsql
para cuando abras el query

[ecfisa]

Hola.

No soy experto en ADO pero el componente TADoDataSet tiene el método Delete que cumple el cometido que estás buscando mediante la sentencia SQL.

Código Delphi [-]
  ADODataSet1.Delete;

Y no necesita ser cerrado y abierto para ejecutarlo


Saludos.

[ecfisa]

Hola de nuevo.

El equivalente a lo que buscas hacer sería:

Código Delphi [-]
  with ADODataSet1 do
  begin
    Close;
    CommandText:= 'SELECT * FROM ' + TABLA + ' WHERE OrderNo = ' + DATO;
    Open;
    Delete;
  end;

En este caso sí es necesario cerrarlo y abrirlo pero por la búsqueda, el método Delete en sí no lo requiere, solo elimina el dato previamente seleccionado.

Un saludo.

[mellomda]

Muchisimas gracias!!!!! lo voy a probar mañana y les comento. Disculpen la demora, no sabia que me ivan a contestar tan rapido, gracias...

[[oscarac]]

pues aqui tienes una idea de la frecuencia en la que entran las personas y saques tus conclusiones

[mellomda]

Genteee, muchisimas gracias a todos, me anduvo de lujo el codigo que me pasaron. Espero no molestarlos, pero ahora me surgio otro problema, quizas me puedan ayudar. Cuando levanto los datos de las tablas SQL (Con el ADODataSet), lo hago mediante una consulta SQL, pero uso el 'As' Para que los titulos de los campos se muestren diferente

Ejemplo: Select ID As Codigo, RacSoc As [Razon Social].....Etc).

Loa Datos Se muestran bien, las consultas se realizan bien, pero a la hora de eliminar un registro Con las siguientes instrucciones (Gracias ecfisa):

Código Delphi [-]
  with ADODataSet1 do   
  begin     
     Close;     
     CommandText:= 'SELECT * FROM ' + TABLA + ' WHERE OrderNo = ' + DATO; 
     Open;     
     Delete;   
  end;

Me dice que no encuentra el Campo 'Codigo'.

Nota: En El DataSet tengo los campos agregados como persistentes (Add All Fields) y estos campos se agregan pero con el alias (Codigo, Razon Social, etc.). El problema queda resuelto cuando saco 'TODOS' los As de la consulta SQL, pero los titulos de las columnas en el DBGid quedan feos (ID, RacSoc, Etc.).

Espero que me hayan entendido, y espero no molestarlos, desde ya muchas gracias, por ayuda...

[ecfisa]

El problema queda resuelto cuando saco 'TODOS' los As de la consulta SQL, pero los titulos de las columnas en el DBGid quedan feos (ID, RacSoc, Etc.).

Hola mellomda.

Si tenés los agregados los campos persistentes hacé lo siguiente: Abrí el Fields Editor y en la propiedad DisplayLabel de cada uno de los campos, ingresá el texto que deseas que se muestre.

De no tenerlos agregados (o sí), también podés indicarle (en el evento OnShow del form por ejemplo) el texto a mostrar de este modo:

Código Delphi [-]
  ADODataSet1.FieldByName('NOMBRE_DEL_CAMPO').DisplayLabel:= 'LO QUE QUIERO QUE MUESTRE';
  ...

Saludos.