Hola que tal. Mi problema es el siguiente Tengo un formulario el cual se trata de incluir nuevos datos dentro de una base de datos, en el cual por obligacion debo tener Tedit, y estos a su vez conectarlos a Un query y a un datasource los cuales estan dirigidos hacia mi base de datos. El problema es que me tira un error al pulsar el boton aceptar (el cual me deberia ingresar automaticamente los valores insertados a mano),me dice que al 'field' en este caso '@codigopostal' no le inclui los suficientes parametros, siendo que el formulario esta hecho para incluir los datos de codigo postal, en el tedit, y lo mismo pasa con cada uno de los 'field'. ademas le tengo este codigo
Código Delphi
[-]
procedure TForm11.BB_AceptarClick(Sender: TObject);
var
query:string;
begin
query := 'SP_AGREGAR_EMPLEADO ' +
chr(39) + ED_idEmployee.text + chr(39) + ',' +
chr(39) + ED_LastName.text + chr(39) + ',' +
chr(39) + ED_FirstName.text + chr(39) + ',' +
chr(39) + ED_Title.text + chr(39) + ',' +
chr(39) + ED_TitleofCourtesy.text + chr(39) + ',' +
chr(39) + ED_BirthDate.text + chr(39) + ',' +
chr(39) + ED_HireDate.text + chr(39) + ',' +
chr(39) + ED_Adress.text + chr(39) + ',' +
chr(39) + ED_City.Text + chr(39) + ',' +
chr(39) + ED_Region.Text + chr(39) + ',' +
chr(39) + ED_PostalCode.text + chr(39) + ',' +
chr(39) + ED_Country.text + chr(39) + ',' +
chr(39) + ED_HomePhone.text + chr(39) + ',' +
chr(39) + ED_Extension.text + chr(39);
if Messagedlg('Está seguro de guardar este registro?', mtwarning, [mbYes,mbNo],0) = mrYes then
begin
Query2.SQL.Clear;
Query2.SQL.Add(query);
Query2.ExecSQL;
Showmessage('Registro guardado en forma correcta');
close
end;
end;
Si alguien me puede ayudar, bienvenido sea.