Yo utilizo la siguiente forma para insertar con ADO
Código Delphi
[-]
AQ_Actualiza.Close;
AQ_Actualiza.SQL.Clear;
AQ_Actualiza.SQL.Add('Insert Into Cliente(Cli_Rut, Cli_Razon, Cli_Fecha)');
AQ_Actualiza.SQL.Add('Values (:v01, :v02, :v03)');
AQ_Actualiza.Parameters[0].Value := vRut.Text;
AQ_Actualiza.Parameters[1].Value := vRaz.Text;
AQ_Actualiza.Parameters[2].Value := vFecha.Date;
AQ_Actualiza.ExecSQL;
Salu2
Editado: se me fue.. era seleccion no insercción
Código Delphi
[-]
Datos.AQ_Horario.Close;
Datos.AQ_Horario.SQL.Clear;
Datos.AQ_Horario.SQL.Add('Select Personal.Per_Nro, Personal.Per_Nombre, Personal.Per_Paterno, Personal.Per_Materno, Horario.Hor_Tipo, Horario.Hor_Fecha');
Datos.AQ_Horario.SQL.Add('FROM Horario INNER JOIN Personal ON Horario.Per_Nro = Personal.Per_Nro');
Datos.AQ_Horario.SQL.Add('And Horario.Per_Nro=:Var1');
Datos.AQ_Horario.SQL.Add('And Horario.Hor_Fecha Between :Var2 And :Var3');
Datos.AQ_Horario.Parameters[0].Value := vFic.Text;
Datos.AQ_Horario.Parameters[1].Value := vFecD.Date;
Datos.AQ_Horario.Parameters[2].Value := vFecH.Date;
Datos.AQ_Horario.Open;
Salu2