ado如何向access数据库中插入时间

Question

界面上接收一个时间字符型的时间值，请问如何向access数据test表中添加这一条时间记录...
使用的事ado连接数据库 vc++/mfc 编程

Answer 1

####上楼提供的思路是可行的，只是离实际解决问题还有些距离。ado和adox提供的都是些智能指针*Ptr，同行一般都会对它们进行再次封装，封装后主要的几个类有class CADODatabase、class CADORecordset、class CADOCommand。提问者可以试试我的方法，我用ado、adox做过些工程。这些封装好的类在四个文件里，ado.h/cpp、adox.h/cpp，需要的话可以EMAIL给你。以下是用这些类实现你的功能需求。

CString str_Database, str_Table ;
str_Database = “数据库名字.mdb”;
str_Table = “表名字”;

CString strConnection = “Microsoft.Jet.OLEDB.4.0;Data Source=" ;
strConnection += str_Database ;

CADODatabase db_DatabaseTemp ;
db_DatabaseTemp.Open(strConnection); /* 连接数据库文件 */

CADORecordset db_RecordsetTemp(db_DatabaseTemp );
db_RecordsetTemp.Open( str_Table.GetBuffer(0), CADORecordset::openTable) ; // 打开表

COleDateTime *pOleDate ; /* ado支持的日期/时间数据类型 */
Cstring str_Date ; // 与控件关联的字符串

// 关键步骤****************************************
str_Date = “2008-3-31” ;/* YYYY-MM-DD 年-月-日格式 实际由控件输入 执行 Update(true)完成 */
pOleDate = new COleDateTime( time_t( atoi(str_Date.GetBuffer(0) ) ) ) ; /*atoi字符转整形，time_t格式化整形为long */
// 关键步骤****************************************

db_RecordsetTemp->AddNew();
Cstring str_FieldName ;
db_RecordsetTemp.SetFieldValue( str_FieldName, * pOleDate) ; /* 写时间字段，接着写其它字段，完成整体记录 */

db_RecordsetTemp.Update();

参考资料：本人自己琢磨的。

Answer 2

日期/时间 字段需要用 以下格式插入时间，例如： #12:00:00 PM#

Answer 3

表的字段定义为：日期/时间类型
hr = Recordsetptr->Open("select * from t1",_variant_t((IDispatch*)m_pConnection,TRUE),
adOpenDynamic,adLockOptimistic,adCmdText);//查询数据集
Recordsetptr->AddNew();
COleDateTime t1 = COleDateTime::GetCurrentTime();
//固定插入
Recordsetptr->PutCollect("date",(_variant_t)t1);
Recordsetptr->Update();

Answer 4

添加：
’下面这句连接数据库指定表的所有字段
Adodc1.RecordSource = "select * from 库存表"
’下面这句添加记录
Adodc1.Recordset.AddNew
下面4句就是通过4个TEXTBOX控件输入字段的数据，如果是数字类型可以加VAL
Adodc1.Recordset.Fields("货物编号") = Text1.Text
Adodc1.Recordset.Fields("货物名称") = Text2.Text
Adodc1.Recordset.Fields("库存量") = Text3.Text
Adodc1.Recordset.Fields("单位") = Text4.Text
’下面这个是修改后更新
Adodc1.Recordset.Update
修改：
'通过主键指定要修改的记录
Adodc1.RecordSource = "select * from 库存表 where 货物编号 = " & Text1.Text
Adodc1.Refresh
Adodc1.Recordset.Fields("货物编号") = Text1.Text
Adodc1.Recordset.Fields("货物名称") = Text2.Text
Adodc1.Recordset.Fields("库存量") = Text3.Text
Adodc1.Recordset.Fields("单位") = Text4.Text