I have Error when i click for save button to insert data
here is my code:
SqlCompany.SQL.Clear;
SqlCompany.SQL.Add('insert into Ms_Company (CompanyID,CompanyName,Address,Director,Occupation,Nationality,Commodity,MineLocation,Village,District,City,Province,AreaCode,Wide,Note,del) ');
SqlCompany.SQL.Add('values (:CompanyID,:CompanyName,:Address,:Director,:Occupation,:Nationality,:Commodity,:MineLocation,:Village,:District,:City,:Province,:AreaCode,:Wide,:Note,:del)');
SqlCompany.Params.ParamByName('CompanyID').AsString:=trim(ci.Text);
SqlCompany.Params.ParamByName('CompanyName').AsString:=trim(cn.Text);
SqlCompany.Params.ParamByName('Address').AsString:=trim(A.Text);
SqlCompany.Params.ParamByName('Director').AsString:=trim(Dr.Text);
SqlCompany.Params.ParamByName('Occupation').AsString:=trim(Oc.Text);
SqlCompany.Params.ParamByName('Nationality').AsString:=trim(N.Text);
SqlCompany.Params.ParamByName('Commudity').AsString:=trim(Co.Text);
SqlCompany.Params.ParamByName('MineLocation').AsString:=trim(ML.Text);
SqlCompany.Params.ParamByName('Village').AsString:=trim(V.Text);
SqlCompany.Params.ParamByName('District').AsString:=trim(D.Text);
SqlCompany.Params.ParamByName('City').AsString:=trim(C.Text);
SqlCompany.Params.ParamByName('Province').AsString:=trim(P.Text);
SqlCompany.Params.ParamByName('AreaCode').AsString:=trim(AC.Text);
SqlCompany.Params.ParamByName('Wide').AsString:=trim(W.Text);
SqlCompany.Params.ParamByName('Note').AsFloat:=strtofloat(trim(Nw.Text));
SqlCompany.Params.ParamByName('del').AsString:='F';
SqlCompany.ExecSQL;
Please help me to solve this problem.
Thanks