ACCESS½¨±íÎÊÌâ
m_pConnect->BeginTrans();
strSql.Format("CREATE TABLE SysUser(lsh AUTOINCREMENT NOT NULL UNIQUE,PRIMARY KEY(lsh),userType BYTE)");
m_pConnect->Execute((_bstr_t)strSql,NULL, adExecuteNoRecords);
ÕâÑù½¨±í¾Í³É¹¦£¬
°ÑsqlÓï¾ä»»³É
strSql.Format("CREATE TABLE SysUser(lsh AUTOINCREMENT NOT NULL UNIQUE,PRIMARY KEY(lsh),UserID VARCHAR(50),UserName VARCHAR(50),Password VARCHAR(50),userType BYTE)");
m_pConnect->Execute((_bstr_t)strSql,NULL, adExecuteNoRecords);Ö´ÐоʹíÎóÁË ¡£¡£¡£
ÓôÃÆËÀÁË¡£
SQL code:
'AccessÖÐûÓÐvarcharÀàÐÍ£¬ÓÃTEXTÀàÐÍ´úÌæ¡£
CREATE TABLE SysUser(lsh AUTOINCREMENT NOT NULL UNIQUE,PRIMARY KEY(lsh),UserID TEXT,UserName TEXT,Password TEXT,userType BYTE
µ«ÊÇÄǸöÓï¾äÔÚaccessµÄ²éѯ£ºÊý×Ö¶¨Òå²éѯÀïÃæÊÇ¿ÉÒԳɹ¦´´½¨µÄ¡£
°ÑVARCHAR»»³ÉTEXTÒ²ÊÇͬÑùµÄ´íÎ󣬵±Óöµ½´íÎóʱ³ÌÐòÔËÐеÀ
inline _RecordsetPtr Connection15::Execute ( _bstr_t CommandText, VARIANT * RecordsAffected, long Options ) {
struct _Recordset * _result = 0;
HRESULT _hr = raw_Execute(CommandText, RecordsAffected, Options, &_result);
if (FAILED(_hr)) _com_issue_errorex(_hr, this, __uuidof(this));
return _RecordsetPtr(_result, false);
}----------------------------------------------------------------msado1
Ïà¹ØÎÊ´ð£º
CatalogClass cat=new CatalogClass();
cat.Creat(@"provider=microsoft.jet.oledb.4.0;data source="+path+";");
ÓÃÒÔÉÏ´úÂë´´½¨Îļþ³É¹¦ÁË£¬ÕÒµ½Îļþºó´ò¿ª£¬Ìáʾ²»¿Éʶ±ðµÄÊý¾ ......
access±íÖÐÓÐ3¸ö×ֶΣ¬starttime£¬endtime£¬timespan£¬
ÊäÈëǰÁ½¸öÖµºóÔõô×Ô¶¯Éú³ÉtimespanÄØ
´´½¨²éѯ¡£
select *, endtime-starttime from your table
»òÕßÔÚÄãµÄÊäÈë´°ÌåÖÐÓÃVBA´úÂëʵÏÖ¡ ......
ÔÚaccessÖÐÔõôִÐÐselect TOP (@size) * from table1
Õâ¸öTOPÔõô´ø²ÎÊý²éѯ°¡
ÓÃVBA¶¯Ì¬Éú³ÉSQLÓï¾ä£¬ÔÙÖ´ÐÐ
²»ÄÜÖ±½ÓÓÃSQLÓï¾ä£¬ÓÃ×Ö·û´®ÀÛ¼ÓÉú³ÉSQLÓï¾äµÄ·½·¨À´Ö´ÐÐSQLÓï¾ä
top n Õâ¸öûÓа취ʹÓò ......
¸øaccessÊý¾Ý¿â¼ÓÃܵIJ½ÖèÈçÏ£º
£¨1£©´ò¿ªaccessÈí¼þ£¬½çÃæÈçͼ1Ëùʾ
......
´ÓÀàÐÍ"DBNULL" µ½ÀàÐÍ¡°Double¡±µÄת»»ÎÞЧ£¨Êý¾Ý¿âÖжÔÓ¦µÄ a3 »òa5 ûÓÐÊý¾ÝÊÇΪ¿Õ£©
,ÇëÎÊÎÒÔõô´¦Àí£¡
VB.NET code:
Dim a1 As String = Nothing
Dim a2 As S ......