读写SQL+ADO的datetime

工作中需要在VC中将日期时间写入数据库SQL中，总结了一点技巧，在此留存。

---

VC中写日期时间

COleDateTime oleDate = COleDateTime::GetCurrentTime();

_variant_t vtFld;

vtFld.vt = VT_DATE;

vtFld.date = oleDate;

m_pRecordset->PutCollect("date", vtFld); //记录指针

读时间值

_bstr_t TheValue=m_pset->Fields->GetItem("出生年月")->Value;

temp=(char *)TheValue;

COleVariant vtime(temp);

vtime.ChangeType(VT_DATE);

COleDateTime time4=vtime;//读出的是COleDateTime

用下面的方法转换 COleDateTime time1(1977,4,16,2,2,2);

//COleDataTime--->CTime SYSTEMTIME systime;

VariantTimeToSystemTime(time1, &systime);

CTime tm(systime);