ADO连接数据库读出正常，但写入数据库失败？

[Wenxy1]

Access2000数据库,vc6
//////////////////////
void CStudentDlg::writeDataBase(CString id, CString studentName, CString studentClass, CString money)
{
HRESULT hr;
if( id.IsEmpty() )
return;
try
{
hr = m_pConnection.CreateInstance("ADODB.Connection"); //创建Connection对象
if(SUCCEEDED(hr))
{
//AfxMessageBox("create ok");
hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mysoft.mdb","","",adModeUnknown);///连接数据库
//AfxMessageBox("Open ok");
}
}
catch(_com_error e)
{
CString errormessage;
errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage());
AfxMessageBox(errormessage); ///显示错误信息
return ;
}
//---------------------------------------------------------------------
try
{
if(! m_pRecordset.CreateInstance("ADODB.Recordset"))
{
_variant_t RecordsAffected;
m_pRecordset = m_pConnection->Execute("INSERT INTO student(ID, student_name, student_class, money, all_time) VALUES (id, studentName, class,'money,'')",&RecordsAffected,adCmdText);
m_pRecordset->Close(); ///关闭记录集
m_pConnection->Close();
}
}
catch(_com_error e)///捕捉异常
{
AfxMessageBox("写入数据库失败!"); ///显示错误信息
}
}

[快乐鹦鹉]

m_pRecordset = m_pConnection->Execute("INSERT INTO student(ID, student_name, student_class, money, all_time) VALUES (id, studentName, class,'money,'')",&RecordsAffected,adCmdText);
-----------------------------------------------------
这句话错了。SQL语句写错了。你将变量名称写到字符串中了。相当于向ID字段中写入字符串"id"，而非变量id
CString sSql = 'INSERT INTO student(ID, student_name, student_class, money,
all_time) VALUES (";
sSql += id +"," + studentName+","+class + ","+money+")";

[Wenxy1]

CString sSql = "INSERT INTO student(ID, student_name, student_class, money, all_time) VALUES (";
sSql += id +"," + studentName+ "," + studentClass + "," + "money" + ")";

m_pRecordset = m_pConnection->Execute( (_bstr_t)sSql, &RecordsAffected, adCmdText );
//这样做，还是写入数据库失败