Eliminar Registro Con ADODataSet

[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.

[mellomda]

Perfecto!!!!! Gracias ecfisa. Todo anduvo perfecto, muchisimas gracias por tu ayuda y tu tiempo...