用ado+acess+bcb做数据的插入操作,速度很慢,请帮忙,谢谢!
用ado+acess+bcb做数据的插入操作,速度很慢,请帮忙,谢谢!
void __fastcall TSql::InserSgyd(AnsiString cpzh,AnsiString cpfl,AnsiString jszh,AnsiString rq,AnsiString sj,int sd,float x,AnsiString rqd,AnsiString clsbh,AnsiString s)
{
TADOQuery *adoInserSgyd;
try
{
adoInserSgyd = new TADOQuery(NULL);
adoInserSgyd->Connection=mainfrm->ADOConnection2;
adoInserSgyd->Close();
adoInserSgyd->SQL->Clear();
adoInserSgyd->SQL->Add("insert into sgydb (cpzh,cpfl,jszh,rq,sj,sd,x,zdxh,zdxh1,rqd,clsbh,jjd,jjd1,yjd,yjd1,zd,zd1,yd,yd1,kmxh,kmxh1,wd,wd1,cs,cs1)");
adoInserSgyd->SQL->Add("values(:cpzh,:cpfl,:jszh,:rq,:sj,:sd,:x,:zdxh,:zdxh1,:rqd,:clsbh,:jjd,:jjd1,:yjd,:yjd1,:zd,:zd1,:yd,:yd1,:kmxh,:kmxh1,:wd,:wd1,:cs,:cs1)");
adoInserSgyd->Parameters->ParamByName("cpzh")->Value=cpzh;
adoInserSgyd->Parameters->ParamByName("cpfl")->Value=cpfl;
//adoInserSgyd->Parameters->ParamByName("sjdm")->Value=sjdm;
adoInserSgyd->Parameters->ParamByName("jszh")->Value=jszh;
adoInserSgyd->Parameters->ParamByName("rq")->Value=rq;
adoInserSgyd->Parameters->ParamByName("sj")->Value=sj;
adoInserSgyd->Parameters->ParamByName("sd")->Value=sd;
adoInserSgyd->Parameters->ParamByName("x")->Value=x;
if(s.SubString(1,1)=="1")
{
adoInserSgyd->Parameters->ParamByName("zdxh")->Value=290;
adoInserSgyd->Parameters->ParamByName("zdxh1")->Value=true;
}
else if(s.SubString(1,1)=="0")
{
adoInserSgyd->Parameters->ParamByName("zdxh")->Value=0;
adoInserSgyd->Parameters->ParamByName("zdxh1")->Value=false;
}
adoInserSgyd->Parameters->ParamByName("rqd")->Value=rqd;
adoInserSgyd->Parameters->ParamByName("clsbh")->Value=clsbh;
if(s.SubString(2,1)=="1")
{
adoInserSgyd->Parameters->ParamByName("jjd")->Value=160;
adoInserSgyd->Parameters->ParamByName("jjd1")->Value=true;
}
else if(s.SubString(2,1)=="0")
{
adoInserSgyd->Parameters->ParamByName("jjd")->Value=0;
adoInserSgyd->Parameters->ParamByName("jjd1")->Value=false;
}
if(s.SubString(3,1)=="1")
{
adoInserSgyd->Parameters->ParamByName("yjd")->Value=180;
adoInserSgyd->Parameters->ParamByName("yjd1")->Value=true;
}
else if(s.SubString(3,1)=="0")
{
adoInserSgyd->Parameters->ParamByName("yjd")->Value=0;
adoInserSgyd->Parameters->ParamByName("yjd1")->Value=false;
}
if(s.SubString(4,1)=="1")
{
adoInserSgyd->Parameters->ParamByName("zd")->Value=200;
adoInserSgyd->Parameters->ParamByName("zd1")->Value=true;
}
else if(s.SubString(4,1)=="0")
{
adoInserSgyd->Parameters->ParamByName("zd")->Value=0;
adoInserSgyd->Parameters->ParamByName("zd1")->Value=false;
}
if(s.SubString(5,1)=="1")
{
adoInserSgyd->Parameters->ParamByName("yd")->Value=220;
adoInserSgyd->Parameters->ParamByName("yd1")->Value=true;
}
else if(s.SubString(5,1)=="0")
{
adoInserSgyd->Parameters->ParamByName("yd")->Value=0;
adoInserSgyd->Parameters->ParamByName("yd1")->Value=false;
}
if(s.SubString(6,1)=="1")
{
adoInserSgyd->Parameters->ParamByName("kmxh")->Value=240;
adoInserSgyd->Parameters->ParamByName("kmxh1")->Value=true;
}
else if(s.SubString(6,1)=="0")
{
adoInserSgyd->Parameters->ParamByName("kmxh")->Value=0;
adoInserSgyd->Parameters->ParamByName("kmxh1")->Value=false;
}
if(s.SubString(7,1)=="1")
{
adoInserSgyd->Parameters->ParamByName("wd")->Value=260;
adoInserSgyd->Parameters->ParamByName("wd1")->Value=true;
}
else if(s.SubString(7,1)=="0")
{
adoInserSgyd->Parameters->ParamByName("wd")->Value=0;
adoInserSgyd->Parameters->ParamByName("wd1")->Value=false;
}
if(s.SubString(8,1)=="1")
{
adoInserSgyd->Parameters->ParamByName("cs")->Value=280;
adoInserSgyd->Parameters->ParamByName("cs1")->Value=true;
}
else if(s.SubString(8,1)=="0")
{
adoInserSgyd->Parameters->ParamByName("cs")->Value=0;
adoInserSgyd->Parameters->ParamByName("cs1")->Value=false;
}
adoInserSgyd->ExecSQL();
}
__finally
{
adoInserSgyd->Free();
}
}