hola:
espero y puedas ayudar utilize tu ejemplo pero yo utilize un query y este es mi codigo:
procedure TForm4.Button1Click(Sender: TObject);
begin
with form1 do
begin
if Form4.ModalResult = mrOK then begin
DBGrid1.DataSource.DataSet.First;
While not (DBGrid1.DataSource.DataSet.Eof) Do
Begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO cliente (clavecliente, nombre, apellido,direccion,telefono,CP,RFC,clavemaquinaria');
Query1.SQL.Add('VALUES (:cla, :nom, :ape, :dir, :tel, :c, :r, :ma');
Query1.ParamByName('cla').Value:=DBGrid1.DataSource.DataSet.FieldByName('clavecliente').value;
Query1.ParamByName('nom').Value:=DBGrid1.DataSource.DataSet.FieldByName('nombre').value;
Query1.ParamByName('ape').Value:=DBGrid1.DataSource.DataSet.FieldByName('apellido').value;
Query1.ParamByName('dir').Value:=DBGrid1.DataSource.DataSet.FieldByName('direccion').value;
Query1.ParamByName('tel').Value:=DBGrid1.DataSource.DataSet.FieldByName('telefono').value;
Query1.ParamByName('c').Value:=DBGrid1.DataSource.DataSet.FieldByName('CP').value;
Query1.ParamByName('r').Value:=DBGrid1.DataSource.DataSet.FieldByName('RFC').value;
Query1.ParamByName('ma').Value:=DBGrid1.DataSource.DataSet.FieldByName('clavemaquinaria').value;
Query1.ExecSQL;
DBGrid1.DataSource.DataSet.Next;
End;
end;
end;
end;
end.
pero al momento de ejecutarlo me sale un error de sintaxis de mysql.
ojala y me puedas responder lo mas pronto posible te lo agradeceria demasiado.
gracias por la ayuda . Saludos
|