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

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

添加：
’下面这句连接数据库指定表的所有字段
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

####上楼提供的思路是可行的，只是离实际解决问题还有些距离。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 ; Cstring str_Date ; // 与控件关联的字符串 // 关键步骤**************************************** str_Date = “2008-3-31” ; pOleDate = new COleDateTime( time_t( atoi(str_Date.GetBuffer(0) ) ) ) ; // 关键步骤**************************************** db_RecordsetTemp->AddNew(); Cstring str_FieldName ; db_RecordsetTemp.SetFieldValue( str_FieldName, * pOleDate) ; db_RecordsetTemp.Update();

'在你要进行插入操作的事件中插入如下代码，以学生信息表为例' dim rs as new adodb.recordset dim conn as new adodb.connection set rs = nothing sql = "insert into 学生信息表(学号,姓名,性别,年龄,电话号码,成绩)values('" & text1.text & "','" & text2.text & "','" & combo1.text & "','" & combo2.text & "','" & text4.text & "','" & text5.text & "')" conn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\数据库名.mdb;persist security info=false" rs.open sql, conn msgbox "插入成功" '在你要进行修改操作的事件中插入如下代码' dim rs as new adodb.recordset dim conn as new adodb.connection set rs = nothing sql = "update 学生信息表 set 性别 = '男' where 学号 = '" & text1.text & "'" conn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\数据库名.mdb;persist security info=false" rs.open sql, conn msgbox "修改成功"

表的字段定义为：日期/时间类型 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();