из Excle через Delphi в Mysql

[diman_never]

Люди добрые, помогите разобраться с кодом...не могу никак нормально привести в порядок..в общем нужно таблицу из Excel через DbGred перекинуть на удаленый сервак Mysql на Ubunte.вот в нете нашел ссылку как это реализовать http://www.webdelphi.ru/2010/03/obme...excel-i-mysql/ вот именно тут все работет..у меня же намного больше таблица ...я сделал несколько циклов

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var product_price_id: integer;
    product_id:integer;
    product_price:integer;
    product_currency:string;
    product_price_vdate:integer;
    product_price_edate:integer;
    cdate:integer;
    mdate:integer;
    shopper_group_id:integer;
    price_quantity_start:integer;
    price_quntity_end:integer;

begin
MySQLQuery.Last; //переходим к последнему элементу
product_price_id:=MySQLQuery.FieldByName('product_price_id').AsInteger;
inc(product_price_id);//наращиваем номер на 1
product_id:=ExcelQuery.FieldByName('product_id').AsInteger;
product_price:=ExcelQuery.FieldByName('product_price').AsInteger;
product_currency:=ExcelQuery.FieldByName('product_currency').AsString;
product_price_vdate:=ExcelQuery.FieldByName('product_price_vdate').AsInteger;
product_price_edate:=ExcelQuery.FieldByName('product_price_edate').AsInteger;
cdate:=ExcelQuery.FieldByName('cdate').AsInteger;
mdate:=ExcelQuery.FieldByName('mdate').AsInteger;
shopper_group_id:=ExcelQuery.FieldByName('shopper_group_id').AsInteger;
price_quantity_start:=ExcelQuery.FieldByName('price_quantity_start').AsInteger;
price_quntity_end:=ExcelQuery.FieldByName('price_quntity_end').AsInteger;

with MySQLQuery do
  begin
    SQL.Clear;
    SQL.Add('INSERT INTO jos_vm_product_price');
    SQL.Add('VALUES ('+IntToStr(product_price_id)+',"'+IntTostr(product_id)+'",'+IntTostr(product_price)+',"'+product_currency+',"'+IntTostr(product_price_vdate)+'","'+IntTostr(product_price_edate)+'","'+IntTostr(cdate)+'","'+IntTostr(mdate)+'","'+IntTostr(shopper_group_id)+'","'+IntTostr(price_quantity_start)+',"'+IntTostr(price_quntity_end)+')');
    ExecSQL;
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM jos_vm_product_price');
    Open;
  end;
end;
end. 


при нажатии на кнопку перекинуть данные у меня ругаеться то что нужны ковычки и запятые...но фаил Excel сохранял уже всеми возможными способами и кодировку как в базе менял так и в самой таблице...
P.S извените если не четко все написано..думаю знающие люди поймут..заранее спасибо))