ÈçºÎͨ¹ý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Óï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
VB+Access×öµÄϵ統£¬
Ôõ樣°Ñ數據庫Access內ÈÝ導³öexecl£¿
ÏÖÔÚû¶«Î÷ÊÔ£¬´ÓÍøÉÏÕÒÁ˶δúÂëÄã¿´¿´
VB code:
Private Sub ExportOneTable()
'EXPORTS TABLE IN ......
ÔÚaccessÖÐÔõôִÐÐselect TOP (@size) * from table1
Õâ¸öTOPÔõô´ø²ÎÊý²éѯ°¡
ÓÃVBA¶¯Ì¬Éú³ÉSQLÓï¾ä£¬ÔÙÖ´ÐÐ
²»ÄÜÖ±½ÓÓÃSQLÓï¾ä£¬ÓÃ×Ö·û´®ÀÛ¼ÓÉú³ÉSQLÓï¾äµÄ·½·¨À´Ö´ÐÐSQLÓï¾ä
top n Õâ¸öûÓа취ʹÓò ......
¸øaccessÊý¾Ý¿â¼ÓÃܵIJ½ÖèÈçÏ£º
£¨1£©´ò¿ªaccessÈí¼þ£¬½çÃæÈçͼ1Ëùʾ
......
//**********************************
//³ÌÐò¹¦ÄÜ£º´´½¨AccessÊý¾Ý¿âºÍÊý¾Ý±í
//**********************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, ......