1.提取单条记录/*#import "c:\Program Files\Common Files\System\ADO\msado15.dll" \no_namespace rename("EOF", "EndOfFile")*/CoInitialize(NULL);_bstr_t varSource="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%%0"; //*.mdb//_bstr_t varSource="Data Source=127.0.0.1;Initial Catalog=db2;User Id=;Password=;"_ConnectionPtr m_pConnection(_uuidof(Connection));m_pConnection->Open(varSource,"","",adModeUnknow);_RecordsetPtr m_pSet(_uuidof(Recordset));try {m_pSet->Open(%%1,m_pConnection.GetInterfacePtr()adOpenDynamic,adLockPessimistic,adCmdText);}catch(_com_error *e){{AfxMessageBox(e->ErrorMessage());return;}_variant_t var;CString %%2="";long fldc=m_pSet->GetFields()->GetCount();long i=0;try {m_pSet->MoveFirst();if(!m_pSet->adoEOF){for(i=0;iGetCollect((long)i);var.ChangeType(VT_BSTR);%%2+=var.bstrVal;%%2+=" ";}//m_pSet->MoveNext();}}catch(_com_error *e){AfxMessageBox(e->ErrorMessage());delete e;}//m_pSet->MoveFirst();CoUninitialize();7.执行命令/*#import "c:\Program Files\Common Files\System\ADO\msado15.dll" \no_namespace rename("EOF", "EndOfFile")*/if(m_pConnection==NULL) return;_variant RecordAffected;try{m_pConnection->Execute((_bstr_t)%%1,&RecordAffected,adCmdText);}catch(_com_error ce){//执行SQL失败}
|