VC+ADO+Access 使用相同的绑定类,进行出库操作没问题,入库操作就是过不去.

carek 2004-12-22 05:12:02
我是初学者,想用VC+ADO+Access 做一个系统.可是编译完成后,进行入库操作 跳出"未知错误" 然后vc也提示出错,程序被强行关掉了.可是入库就不会啊.操作的都是一个表.大虾,高手指点啊~
出库:
void CDlgDevOut::OnBtnDoadd()
{
if (m_devs.GetCurSel()==CB_ERR)
{
MessageBox("请选择一个设备");
return;
}

if (!UpdateData())
return;

if ((m_max>0.0f) && (m_number>m_max))
{
MessageBox("超过最大限量!");
return;
}

_RecordsetPtr pRst = NULL;
CDevOutRs rs; // 这是跟表绑定的类

try
{
TESTHR(pRst.CreateInstance(__uuidof(Recordset)));

pRst->Open("device_out",_variant_t((IDispatch *) m_DBCnt, true),adOpenKeyset,adLockOptimistic,adCmdTable);

m_devs.GetWindowText(rs.m_sz_code,11);
sprintf(rs.m_sz_date,"%d-%d-%d %d:%d:%d",
m_date.GetYear(), m_date.GetMonth(), m_date.GetDay(),
m_time.GetHour(), m_time.GetMinute(), m_time.GetSecond());
strcpy(rs.m_sz_dept, m_dept);
sprintf(rs.m_sz_state, "%d", m_state);
strcpy(rs.m_sz_keeper, m_keeper);
rs.m_f_number = m_number;
strcpy(rs.m_sz_taker, m_taker);
strcpy(rs.m_sz_usage, m_usage);

COleSafeArray vaFieldlist, vaValuelist;
rs.FillFieldsArray(vaFieldlist,vaValuelist);
TESTHR(pRst->AddNew(vaFieldlist, vaValuelist));
pRst->Close();

CString sql_;
sql_.Format("SELECT * FROM device WHERE code='%s'", rs.m_sz_code);
_bstr_t sql = sql_;
pRst->Open(sql, _variant_t((IDispatch *) m_DBCnt, true),adOpenKeyset,adLockOptimistic,adCmdText);
if (pRst->GetRecordCount()==1)
{
CDevRs rsDev;
IADORecordBinding *picRs = NULL; //Interface Pointer declared.(VC++ Extensions)
TESTHR(pRst->QueryInterface(__uuidof(IADORecordBinding),(LPVOID*)&picRs));
TESTHR(picRs->BindToRecordset(&rsDev));

strcpy(rsDev.m_sz_code, rs.m_sz_code);
rsDev.m_f_cur = rsDev.m_f_cur - rs.m_f_number;

TESTHR(picRs->Update(&rsDev));
picRs->Release();
}
pRst->Close();
}
catch(_com_error& e)
{
AfxMessageBox(e.ErrorMessage());
return;
}

MessageBox("完成操作!");
m_log->AddLog("添加出库信息");

EndDialog(0);
}
----------------------------------------------------------------

入库:
void CDlgDevIn::OnBtnDiadd()
{
if (m_devs.GetCurSel()==CB_ERR)
{
MessageBox("请选择一个设备");
return;
}

if (!UpdateData())
return;

_RecordsetPtr pRst = NULL;
CDevInRs rs;

try
{
TESTHR(pRst.CreateInstance(__uuidof(Recordset)));

pRst->Open("device_in",_variant_t((IDispatch *) m_DBCnt, true),adOpenKeyset,adLockOptimistic,adCmdTable);

m_devs.GetWindowText(rs.m_sz_code,11);
sprintf(rs.m_sz_date,"%d-%d-%d %d:%d:%d",
m_date.GetYear(), m_date.GetMonth(), m_date.GetDay(),
m_time.GetHour(), m_time.GetMinute(), m_time.GetSecond());
strcpy(rs.m_sz_provider, m_provider);
strcpy(rs.m_sz_tel, m_tel);
rs.m_f_number = m_number;
rs.m_f_price = m_price;
strcpy(rs.m_sz_buyer, m_buyer);

COleSafeArray vaFieldlist, vaValuelist;
rs.FillFieldsArray(vaFieldlist,vaValuelist);

m_DBCnt->BeginTrans();

TESTHR(pRst->AddNew(vaFieldlist, vaValuelist));
pRst->Close();

CString sql_;
sql_.Format("SELECT * FROM device_in WHERE code='%s'", rs.m_sz_code);
_bstr_t sql = sql_;

pRst->Open(sql, _variant_t((IDispatch *) m_DBCnt, true),adOpenKeyset,adLockOptimistic,adCmdText);
if (pRst->GetRecordCount()==0)找不到到相同的设备号,就添加新记录
{
CDevRs rsDev;
IADORecordBinding *picRs = NULL; //Interface Pointer declared.(VC++ Extensions)
TESTHR(pRst->QueryInterface(__uuidof(IADORecordBinding),(LPVOID*)&picRs));
TESTHR(picRs->BindToRecordset(&rsDev));

strcpy(rsDev.m_sz_code, rs.m_sz_code);

rsDev.m_f_cur = rs.m_f_number;
rsDev.m_f_total = rs.m_f_number;
rsDev.m_f_max = 1;
rsDev.m_f_min = 1;

COleSafeArray vaFields, vaValues;
rsDev.FillFieldsArray(vaFields,vaValues);
TESTHR(pRst->AddNew(vaFields, vaValues));
} else 找到,则修改库存量
{
CDevRs rsDev;
IADORecordBinding *picRs = NULL; //Interface Pointer declared.(VC++ Extensions)
TESTHR(pRst->QueryInterface(__uuidof(IADORecordBinding),(LPVOID*)&picRs));
TESTHR(picRs->BindToRecordset(&rsDev));

strcpy(rsDev.m_sz_code, rs.m_sz_code);
rsDev.m_f_cur = rs.m_f_number + rsDev.m_f_cur;
rsDev.m_f_total = rs.m_f_number + rsDev.m_f_total;

TESTHR(picRs->Update(&rsDev));
picRs->Release();
}
pRst->Close();

m_DBCnt->CommitTrans();
}
catch(_com_error& e)
{
AfxMessageBox(e.ErrorMessage());
m_DBCnt->RollbackTrans();
return;
}

MessageBox("完成操作!");
m_log->AddLog("添加入库信息");

EndDialog(0);
}
...全文
176 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
carek 2004-12-24
  • 打赏
  • 举报
回复
把begintrans提到try语句体的最前面看,提示IDispatch error #3101.不过程序没被强行关闭,不出runtime error!了.各位大虾再帮帮忙啊.谢谢啊~实在不行明天只好结帖了.555,这可是第一次在这提问啊.
carek 2004-12-24
  • 打赏
  • 举报
回复
问题找到了,弹出未知错误是因为事务事情, llm06大哥说的,解决了这个问题,IDispatch error #3101是因为数据表名字错了.晕死了~入库时,写入入库帐单进device_in,写入库存时把表的名字写错,又写成device_in,改了就没事了.老以为时语句出错了,没想到是自己把表名给弄错了.谢谢大家的帮助了.
Roy_Sashulin 2004-12-24
  • 打赏
  • 举报
回复
我不知道你为什么偏偏要绑定咯。
TESTHR(pRst.CreateInstance(__uuidof(Recordset)));

pRst->Open("device_out",_variant_t((IDispatch *) m_DBCnt, true),adOpenKeyset,adLockOptimistic,adCmdTable);

这些你应该放在程序入口处,因为它在程序中只能用一次,如果多次使用就会出错。

sdgzhk 2004-12-24
  • 打赏
  • 举报
回复
记录新数据时用EXECUTE()
llm06 2004-12-23
  • 打赏
  • 举报
回复
我认为可能是你的pRst导致的问题,你的事务加在了open与close之间。你把begintrans提到try语句体的最前面看看
carek 2004-12-22
  • 打赏
  • 举报
回复
oyljerry大哥好像说对了,我把事务去掉,程序就没问题了.难道我的使用事务的方法有错了?怎么改啊?
Hendy_So 2004-12-22
  • 打赏
  • 举报
回复
看看在哪句出问题了。
carek 2004-12-22
  • 打赏
  • 举报
回复
日期加#还是一样,绑定字段顺序没问题.
字段顺序 code now_number high_number low_number total_number 除code是文本型,其他都是数字型单精度
class CDevRs : public CADORecordBinding
{
BEGIN_ADO_BINDING(CDevRs)

ADO_VARIABLE_LENGTH_ENTRY2(1, adVarChar, m_sz_code,
sizeof(m_sz_code), m_sts_code, TRUE)

ADO_VARIABLE_LENGTH_ENTRY2(2, adSingle, m_f_cur,
sizeof(m_f_cur), m_sts_cur, TRUE)

ADO_VARIABLE_LENGTH_ENTRY2(3, adSingle, m_f_max,
sizeof(m_f_max), m_sts_max, TRUE)

ADO_VARIABLE_LENGTH_ENTRY2(4, adSingle, m_f_min,
sizeof(m_f_min), m_sts_min, TRUE)

ADO_VARIABLE_LENGTH_ENTRY2(5, adSingle, m_f_total,
sizeof(m_f_total), m_sts_total, TRUE)

END_ADO_BINDING()

public:

CHAR m_sz_code[10];
float m_f_cur;
float m_f_max;
float m_f_min;
float m_f_total;

ULONG m_sts_code;
ULONG m_sts_cur;
ULONG m_sts_max;
ULONG m_sts_min;
ULONG m_sts_total;

public:
void FillFieldsArray(COleSafeArray& fields, COleSafeArray& values);
};
Kudeet 2004-12-22
  • 打赏
  • 举报
回复
绑定的时候添加要注意字段的顺序!
oyljerry 2004-12-22
  • 打赏
  • 举报
回复
是不是事务处理没有用,还是异常了
Henry0 2004-12-22
  • 打赏
  • 举报
回复
不知道为什么,多的代码我不想看

要改改
oyljerry 2004-12-22
  • 打赏
  • 举报
回复
日期要加上#
carek 2004-12-22
  • 打赏
  • 举报
回复
没用啊~还是一样~ 未知错误,然后runtime error,强行关掉了.可以再加分啊~谁帮帮忙,郁闷两天了.
wlzqi 2004-12-22
  • 打赏
  • 举报
回复
在格式化SQL时试试在日期两侧加#,例如:

sprintf(rs.m_sz_date,"#%d-%d-%d %d:%d:%d#",
"m_date.GetYear(), m_date.GetMonth(), m_date.GetDay(),
m_time.GetHour(), m_time.GetMinute(), m_time.GetSecond());

4,018

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC 数据库
社区管理员
  • 数据库
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧