关于ADO做入出库的问题

gggggame 2003-12-17 08:53:12

ADO做入出库的时候我就不会写了
请大家帮忙啊
void CWz2Dlg::OnSave()
{ CString str,Vid,Vname,Vmodel,Vnum,Vprice;
m_id.GetWindowText(Vid);
m_name.GetWindowText(Vname);
m_model.GetWindowText(Vmodel);
m_price.GetWindowText(Vprice);
m_num.GetWindowText(Vnum);
_RecordsetPtr pRs2;
int i;
pRs2->Open("select count(*) as i from info where Name=Vname and Model=Vmodel ",(IDispatch*)theApp.con,adOpenDynamic,adLockOptimistic,adCmdText);先查找有没有类型和名子和要入库或出库的东西一样的有的话标记i
if(i==0)
{
str="insert into info (ID,Name,Model,Num,Price) values ("+Vid+",'"+Vname+"','"+Vmodel+"','"+Vnum+"','"+Vprice+"')";
pCmd->CommandText=(_bstr_t)str;
MessageBox(str);
pCmd->Execute(NULL,NULL,1);
MessageBox(str);
pRs->Requery(0);
display();
}
else
{
if(fill=='+')//到这里就不行了当入库时只在num里加但不知道怎么做类型转换啊
{
str="update info set ID ='"+Vid+"',Name='"+Vname+"',Model='"+Vmodel+"',Price='"+Vprice+"',Num='"+Vnum+"' where Name=='"+Vname+"' and Model=='"+Vmodel+"';
pCmd->CommandText=(_bstr_t)str;
pCmd->Execute(NULL,NULL,1);
pRs->Requery(0);
display();
}
}
}

...全文

29 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

gggggame 2003-12-20

打赏
举报

怎么没有人回贴啊自己顶

gggggame 2003-12-19

打赏
举报

主要不是那个SQL语句可能我的编程思想不正确现在做个仓库管理系统 (只说出入库那部分)
物品入库和出库不是只把数量num做加或减的操作再更新到数据库就行了吗我是这么想的：在入库和出库BUTTON里加个变量当入库时为‘+’，出库时为‘-’ 然后在保存按钮里选判断他是入库还是出库然后再在数据库里找库中有没有这个同样的型号的物品 (name,model和输入的是否相等)
如果没有就添加如下：str="insert into info (ID,Name,Model,Num,Price) values ("+Vid+",'"+Vname+"','"+Vmodel+"','"+Vnum+"','"+Vprice+"')";(这部分现在运行没错误)
如果有就要把有的那条记录的数量num‘+’或'-'再更新，这里还要把提出来的数量做类型转换吧就这里不知道怎么写。

DebugXP 2003-12-19

打赏
举报

字段都是字符型的？？
重申 where Name='"+Vname+"' and Model='"+Vmodel+"';
不要==

gggggame 2003-12-19

打赏
举报

str="update info set ID ='"+Vid+"',Name='"+Vname+"',Model='"+Vmodel+"',Price='"+Vprice+"',Num='"+Vnum+"' where Name=='"+Vname+"' and Model=='"+Vmodel+"';
应该是这样的我乱改给乱错了

DebugXP 2003-12-19

打赏
举报

你还== ？？
where Name='"+Vname+"' and Model='"+Vmodel+"';

DebugXP 2003-12-19

打赏
举报

如果是CString str,Vid,Vname,Vmodel,Vnum,Vprice; 不用""
str="update info set ID ='+Vid+',Name='+Vname+',Model='+Vmodel+',Price='+Vprice+',Num='+Vnum+' where Name=='+Vname+' and Model=='+Vmodel+';

建议改成_bstr_t str,Vid,Vname,Vmodel,Vnum,Vprice;
str="update info set ID ='"+Vid+"',Name='"+Vname+"',Model='"+Vmodel+"',Price='"+Vprice+"',Num='"+Vnum+"' where Name=='"+Vname+"' and Model=='"+Vmodel+"';

gggggame 2003-12-19