Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎͨ¹ýADOʹÓþۺϺ¯ÊýÀ´²éѯ(Êý¾Ý¿âΪACCESS)

_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
    int ret = 0;
  _RecordsetPtr pset;
CString  sql;
    VARIANT  count;
count.vt = VT_INT;
ret = OpenDB();
if( ret == 1 )
return -1;                    //´´½¨¶ÔÏóʧ°Ü
else if( ret == 2 )
  return -2;                    //Êý¾Ý¿â´ò¿ªÊ§°Ü
try
{

    sql.Format("select count(*) from %s", tablename.c_str() );

    /*if( way == 0 )          //²éѯȫ²¿
{
sql.Format("select  * from %s", tablename.c_str() );
    TRACE("sql = %s\n",sql);
}
else if( way == 1 )      //°´×ֶβéѯ
sql.Format("select %s from %s", field.c_str(), tablename.c_str() );
else if( way == 2 )      //°´Ìõ¼þÈ«²¿²éѯ
{

}
else if( way == 3 )      //°´Ìõ¼þºÍ×Ö¶ÎÁªºÏ²éѯ
{

}*/
pset = m_dbptr->Execute((_bstr_t)sql.GetBuffer(sql.GetLength()),&count,adCmdUnknown);
if( pset != NULL && !pset->ADOEOF )
retu


Ïà¹ØÎÊ´ð£º

access ÖÐÖ´ÐÐsqlÓï¾äupdate²»³É¹¦£¬ÇóÖú£¡£¡£¡

access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôԭÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ

sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£

ÊÇ ......

Access導³öExecl

VB+Access×öµÄϵ統£¬
Ôõ樣°Ñ數據庫Access內ÈÝ導³öexecl£¿
ÏÖÔÚû¶«Î÷ÊÔ£¬´ÓÍøÉÏÕÒÁ˶δúÂëÄã¿´¿´
VB code:

Private Sub ExportOneTable()
'EXPORTS TABLE IN ......

Access´ø²ÎÊýµÄ²éѯ

ÔÚaccessÖÐÔõôִÐÐselect TOP (@size) * from table1
Õâ¸öTOPÔõô´ø²ÎÊý²éѯ°¡
ÓÃVBA¶¯Ì¬Éú³ÉSQLÓï¾ä£¬ÔÙÖ´ÐÐ

²»ÄÜÖ±½ÓÓÃSQLÓï¾ä£¬ÓÃ×Ö·û´®ÀÛ¼ÓÉú³ÉSQLÓï¾äµÄ·½·¨À´Ö´ÐÐSQLÓï¾ä

top n Õâ¸öûÓа취ʹÓò ......

ÈçºÎΪaccessÊý¾Ý¿â¼ÓÃÜ

¸øaccessÊý¾Ý¿â¼ÓÃܵIJ½ÖèÈçÏ£º

£¨1£©´ò¿ªaccessÈí¼þ£¬½çÃæÈçͼ1Ëùʾ

       

                        ......

Çë½ÌaccessÊý¾Ý¿â¶¯Ì¬Éú³ÉµÄÎÊÌâ

//**********************************
//³ÌÐò¹¦ÄÜ£º´´½¨AccessÊý¾Ý¿âºÍÊý¾Ý±í
//**********************************
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ