ADOÎÞ·¨Á¬½ÓaccessÊý¾Ý¿âÎÊÌâ
ÎÒдÁËÒ»¸ömfc³ÌÐò£¬ÊÇsdiµÄ¡£ÊÓͼÊÇCformviewµÄÅÉÉúÀà¡£
ÎÒÏëʵÏÖÈÎÒâÁ¬½ÓÊý¾Ý¿âµÄ¹¦ÄÜ¡£ËùÒÔÔÚÊÓͼÉÏÌí¼ÓÁËÒ»¸ö°´Å¥¡£µã»÷°´Å¥£¬´ò¿ª¶Ô»°¿òÑ¡ÔñÊý¾Ý¿â½øÐÐÁ¬½Ó¡£´úÂëÈçÏÂËùʾ:
ÎÒÏÈÔÚstdafx.hÎļþÖмÓÁËÕâ¾ä´úÂ룺
#import "c:\program files\common files\system\ado\msado15.dll" \
no_namespace \
rename ("EOF", "adoEOF")
½Ó×ÅÎÒÔÚCFormViewµÄÅÉÉúÀàÖж¨Òå
// ¶¨ÒåADOÁ¬½Ó¡¢ÃüÁî¡¢¼Ç¼¼¯±äÁ¿Ö¸Õë
_ConnectionPtr m_pConnection;
_CommandPtr m_pCommand;
_RecordsetPtr m_pRecordset;
È»ºóÔÚCMy3AppÖж¨Òå
// ¶¨ÒåADOÁ¬½Ó±äÁ¿Ö¸Õë
_ConnectionPtr m_pConnection;
½Ó×ÅÔÚBOOL CMy3App::InitInstance()ÖÐÌí¼ÓÈçÏ´úÂ룺
// ³õʼ»¯COM,´´½¨ADOÁ¬½ÓµÈ²Ù×÷
AfxOleInit();
m_pConnection.CreateInstance(__uuidof(Connection));
// ÔÚADO²Ù×÷Öн¨ÒéÓï¾äÖÐÒª³£ÓÃtry...catch()À´²¶»ñ´íÎóÐÅÏ¢£¬
// ÒòΪËüÓÐʱ»á¾³£³öÏÖһЩÏë²»µ½µÄ´íÎó¡£jingzhou xu
if(SUCCEEDED(m_pConnection.CreateInstance(__uuidof(Connection) )))
{
m_pConnection->CursorLocation=adUseClient; //ÓαêÀàÐÍ
}
×îºóÔÚÊÓͼÀàµÄonbuttonʼþÖÐÌí¼ÓÈçÏ´úÂ룺
void CMy3View::Onbutton()
{
CString dstSrc,Src,trc;
Src="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&
Ïà¹ØÎÊ´ð£º
ÎÒдÁ˸ö²É¼¯³ÌÐò£¬Ôڲɼ¯µÄʱºò´ò¿ª²»ÁËÍøÕ¾£¬²É¼¯ÍêÁËÊý¾Ý¿âÊÍ·ÅÁ˲ſÉÒÔ´ò¿ª
ÇëÎÊÈçºÎ×öµ½²É¼¯ºÍä¯ÀÀ²»³åÍ»£¬Ò²¾ÍÊÇ˵²É¼¯Ê±ÍùÊý¾Ý¿âдÊý¾Ýʱ£¬Í¬Ñù¿ÉÒÔÕý³£¶ÁÈ¡Êý¾Ý £¿
ллÄãµÄ½¨Ò飬²»¹ý²»ÊʺÏÎÒÓà ......
Dim datatable As New DataTable ½¨Á¢µÄÒ»¸öÄÚ´æ±í¡£
ÈçºÎ°Ñdatatable ±íÖеÄÊý¾Ý£¬±£´æµ½ACCESSÊý¾Ý¿â¡£×îºÃÓÐÀý×ÓºÍÔ´Âë
ÓÃoledbµÄÊý¾Ý¿âÁ¬½Ó¶ÔÏóºÍÊý¾ÝÊÊÅäÆ÷µÈ¶ÔÏó£¬Àý
string&nbs ......
Dim searchKW As String = txtbxSearch.Text
Dim cmdSearch = New OleDb.OleDbCommand
cmdSearch.CommandText = " ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......