바람처럼

예전에 ASP 프로그램에서는 ADODB.Recordset을 굉장히 편하게 사용하였었다. 그런데 C++에서는 모두 ADO 사용을 어려워하고, 어떤이는 IDispatch 인터페이스로 ADO를 접근하고 있었다.

사실 IDispatch 인터페이스는 VB등(스크립트 포함)을 위한 인터페이스이고 IUnknown으로 직접 접근하는 것에 비하여 성능적으로 떨어진다.
그래서 C++을 처럼 COM의 IUnknown 인터페이스로 직접 접근할 수 있다면 직접 접근하여 사용하는 것이 좋은 방법이다.
또한 생각보다 편하게 사용할 수 있다. 단지 방법을 모를 뿐이지.

아래의 C++과 ASP에서의 사용법을 비교해 보라. 완전히 똑같지 않은가!!!

C++ 에서 Recordset 을 사용하는 방법이다.
 #include <iostream> #include <string> #import "c:\Program Files\Common Files\system\ado\msado15.dll" rename("EOF", "adoEOF") #pragma comment(lib, "comsuppw") void SetLastError(_com_error& e); int main(int argc, char* argv[]) { CoInitialize( NULL ); // COM 초기화 ADODB::_RecordsetPtr pAdoRs; pAdoRs.CreateInstance(__uuidof(ADODB::Recordset)); _bstr_t bstrSqlConn = "Provider=SQLOLEDB.1" ";Password=" ";Persist Security Info=True" ";User ID=sa" ";Initial Catalog=tempdb" ";Data Source="; _bstr_t bstrSQLText = " SELECT name, id, xtype, uid, info, status" " FROM dbo.sysobjects"; try { pAdoRs->Open(bstrSQLText, bstrSqlConn, ADODB::adOpenForwardOnly, ADODB::adLockReadOnly, ADODB::adCmdText); while (!pAdoRs->adoEOF) { _bstr_t name = pAdoRs->Fields->Item["name"]->Value.bstrVal; long Id = pAdoRs->Fields->Item["id"]->Value.lVal; _bstr_t xtype = pAdoRs->Fields->Item["xtype"]->Value.bstrVal; std::cout << (char*)name << " : " << Id << " : " << (char*)xtype << std::endl; pAdoRs->MoveNext(); } pAdoRs->Close(); pAdoRs = NULL; // Release } catch (_com_error& e) { SetLastError(e); } CoUninitialize(); // COM 해제 return 0; } void SetLastError(_com_error& e) { std::cout << "------------------------------" << std::endl << "ADODB Error" << std::endl << "------------------------------" << std::endl << "Error Code : " << e.Error() << std::endl << "Source : " << (char*)e.Source() << std::endl << "Description : " << (char*)e.Description() << std::endl << "------------------------------" << std::endl; }

ASP 에서 Recordset 을 사용하는 방법이다.
 Dim AdoRs Set AdoRs = Server.CreateObject("ADODB.Recordset") Dim SqlConn, SQLText SqlConn = "Provider=SQLOLEDB.1" & _ ";Password=" & _ ";Persist Security Info=True" & _ ";User ID=sa" & _ ";Initial Catalog=tempdb" & _ ";Data Source=." SQLText = " SELECT name, id, xtype, uid, info, status" & _ " FROM sysobjects" AdoRs.Open( bstrSQLText, bstrSqlConn, adOpenForwardOnly, adLockReadOnly, adCmdText ) Dim Name, Id, Xtype Do While AdoRs.EOF Name = AdoRs.Fields("name").Value Id = AdoRs.Fields("id").Value Xtype = AdoRs.Fields("xtype").Value Response.Write Name & " : " & Id & " : " & Xtype & "<br />" AdoRs.MoveNext() Loop AdoRs.Close() Set AdoRs = Nothing