ADO: Compacting Microsoft Access Database Through OLE DB

Reference:
How To Compacting Microsoft Access Database Through OLE DB

Wie Komprimieren von Microsoft Access-Datenbank über ADO

_variant_t 到 CString 转换

数据类型转换函数

CString CZjyDlg::VariantToString(VARIANT var)
{

CString strValue;
_variant_t var_t;
_bstr_t bstr_t;
time_t cur_time;
CTime time_value;
COleCurrency var_currency;
switch(var.vt)
{

case VT_EMPTY:
case VT_NULL:strValue=_T("");break;
case VT_UI1:strValue.Format("%d",var.bVal);break;
case VT_I2:strValue.Format("%d",var.iVal);break;
case VT_I4:strValue.Format("%d",var.lVal);break;
case VT_R4:strValue.Format("%f",var.fltVal);break;
case VT_R8:strValue.Format("%f",var.dblVal);break;
case VT_CY:

var_currency=var;
strValue=var_currency.Format(0);

break;
case VT_BSTR:

var_t =var;
bstr_t=var_t;
strValue.Format("%s",(const char *)bstr_t);

break;
case VT_DATE:

cur_time=var.date;
time_value=cur_time;
strValue.Format("%A,%B,%d,%Y");

break;
case VT_BOOL:strValue.Format("%d",var.boolVal);break;
default:strValue=_T("");break;

}
return strValue;

}

使用Adox取得MS Access 的table信息

1. import msadox.dll

#import "C:\Programme\Gemeinsame Dateien\System\ado\msadox.dll"

Problem:

Kompilierung läuft...
ADOBase.cpp
d:\project\dbinfo2\debug\msadox.tli(246) : error C2511: 'long __thiscall ADOX::Columns::Append(const class _variant_t &,enum ADOX::DataTypeEnum,long)' : Überladene Member-Funktion nicht in '' gefunden
d:\project\dbinfo2\debug\msadox.tli(346) : error C2556: 'enum ADOX::DataTypeEnum __thiscall ADOX::_Column::GetType(void)' : Überladene Funktion unterscheidet sich nur hinsichtlich des Rückgabetyps von 'enum DataTypeEnum __thiscall ADOX::_Column::Get
Type(void)'
d:\project\dbinfo2\debug\msadox.tlh(444) : Siehe Deklaration von 'GetType'
d:\project\dbinfo2\debug\msadox.tli(346) : error C2371: 'GetType' : Neudefinition; unterschiedliche Basistypen
d:\project\dbinfo2\debug\msadox.tlh(444) : Siehe Deklaration von 'GetType'
d:\project\dbinfo2\debug\msadox.tli(348) : error C2664: 'get_Type' : Konvertierung des Parameters 1 von 'enum ADOX::DataTypeEnum *' in 'enum DataTypeEnum *' nicht moeglich
Die Typen, auf die verwiesen wird, sind nicht verwandt; die Konvertierung erfordert einen reinterpret_cast-Operator oder eine Typumwandlung im C- oder Funktionsformat
d:\project\dbinfo2\debug\msadox.tli(353) : error C2511: 'void __thiscall ADOX::_Column::PutType(enum ADOX::DataTypeEnum)' : Überladene Member-Funktion nicht in '' gefunden
Fehler beim Ausführen von cl.exe.

ADOBase.obj - 5 Fehler, 0 Warnung(en)

问题原因：

与Dao冲突定义了同名的"DataTypeEnum" and "EOF"

解决方案：

#import "C:\Programme\Gemeinsame Dateien\System\ado\msadox.dll" rename("EOF", "adoXEOF") rename("DataTypeEnum","adoXDataTypeEnum")

2. use _CatalogPtr 取得Table Information
in ADOBase.h:

#import "C:\Programme\Gemeinsame Dateien\System\ado\msadox.dll" rename("EOF", "adoXEOF") rename("DataTypeEnum","adoXDataTypeEnum")
using namespace ADOX;
ADOX::_CatalogPtr m_pCatalog;
BOOL existTable(CString sTable);

in ADOBase.cpp:

BOOL ADOBase::existTable(CString sTable)
{

try
{

m_pCatalog.CreateInstance(__uuidof(Catalog));
m_pCatalog->PutActiveConnection(_variant_t((IDispatch *) m_pConnectionSpecial));

TablesPtr m_pTables = m_pCatalog->GetTables();

_Table* m_pTable = NULL;
//m_pTables = cat->Tables->Item[sTable];

if (m_pTables->get_Item(_variant_t(sTable), &m_pTable) == S_OK)
{

return true;

}
else
return false;

}
catch (_com_error &e)
{

m_nLastError=ADOLE_OPEN_FAILED;
HandleErrorAB(e, "existTable (DB", sTable);
PROTOCOL_ENTRY(0,0,"END (_com_error) ADOBase::existTable")
return false;

}
catch(...)
{

m_nLastError=ADOLE_OPEN_FAIL_UNHANDLED;
m_sLastError = "**** Unhandled exception! **** in Open";
HandleErrorAB();
PROTOCOL_ENTRY(0,0,"END (...error) ADOBase::existTable")
return false;

}

}

C++ Linux 中mencpy(),get(),strcpy(),strcmp()....的函数原型

1 /*
2 * linux/lib/string.c
3 *
4 * Copyright (C) 1991, 1992 Linus Torvalds
5 */
6
7 /*
8 * stupid library routines.. The optimized versions should generally be found
9 * as inline code in
10 *
11 * These are buggy as well..
12 */
13
14 #include
15
16 char * ___strtok = NULL;
17
18 char * strcpy(char * dest,const char *src)
19 {
20 char *tmp = dest;
21
22 while ((*dest++ = *src++) != '\0')
23 /* nothing */;
24 return tmp;
25 }
26
27 char * strncpy(char * dest,const char *src,size_t count)
28 {
29 char *tmp = dest;
30
31 while (count-- && (*dest++ = *src++) != '\0')
32 /* nothing */;
33
34 return tmp;
35 }
36
37 char * strcat(char * dest, const char * src)
38 {
39 char *tmp = dest;
40
41 while (*dest)
42 dest++;
43 while ((*dest++ = *src++) != '\0')
44 ;
45
46 return tmp;
47 }
48
49 char * strncat(char *dest, const char *src, size_t count)
50 {
51 char *tmp = dest;
52
53 if (count) {
54 while (*dest)
55 dest++;
56 while ((*dest++ = *src++)) {
57 if (--count == 0)
58 break;
59 }
60 }
61
62 return tmp;
63 }
64
65 int strcmp(const char * cs,const char * ct)
66 {
67 register signed char __res;
68
69 while (1) {
70 if ((__res = *cs - *ct++) != 0 || !*cs++)
71 break;
72 }
73
74 return __res;
75 }
76
77 int strncmp(const char * cs,const char * ct,size_t count)
78 {
79 register signed char __res = 0;
80
81 while (count) {
82 if ((__res = *cs - *ct++) != 0 || !*cs++)
83 break;
84 count--;
85 }
86
87 return __res;
88 }
89
90 char * strchr(const char * s,char c)
91 {
92 for(; *s != c; ++s)
93 if (*s == '\0')
94 return NULL;
95 return (char *) s;
96 }
97
98 size_t strlen(const char * s)
99 {
100 const char *sc;
101
102 for (sc = s; *sc != '\0'; ++sc)
103 /* nothing */;
104 return sc - s;
105 }
106
107 size_t strnlen(const char * s, size_t count)
108 {
109 const char *sc;
110
111 for (sc = s; *sc != '\0' && count--; ++sc)
112 /* nothing */;
113 return sc - s;
114 }
115
116 size_t strspn(const char *s, const char *accept)
117 {
118 const char *p;
119 const char *a;
120 size_t count = 0;
121
122 for (p = s; *p != '\0'; ++p) {
123 for (a = accept; *a != '\0'; ++a) {
124 if (*p == *a)
125 break;
126 }
127 if (*a == '\0')
128 return count;
129 ++count;
130 }
131
132 return count;
133 }
134
135 char * strpbrk(const char * cs,const char * ct)
136 {
137 const char *sc1,*sc2;
138
139 for( sc1 = cs; *sc1 != '\0'; ++sc1) {
140 for( sc2 = ct; *sc2 != '\0'; ++sc2) {
141 if (*sc1 == *sc2)
142 return (char *) sc1;
143 }
144 }
145 return NULL;
146 }
147
148 char * strtok(char * s,const char * ct)
149 {
150 char *sbegin, *send;
151
152 sbegin = s ? s : ___strtok;
153 if (!sbegin) {
154 return NULL;
155 }
156 sbegin += strspn(sbegin,ct);
157 if (*sbegin == '\0') {
158 ___strtok = NULL;
159 return( NULL );
160 }
161 send = strpbrk( sbegin, ct);
162 if (send && *send != '\0')
163 *send++ = '\0';
164 ___strtok = send;
165 return (sbegin);
166 }
167
168 void * memset(void * s,char c,size_t count)
169 {
170 char *xs = (char *) s;
171
172 while (count--)
173 *xs++ = c;
174
175 return s;
176 }
177
178 char * bcopy(const char * src, char * dest, int count)
179 {
180 char *tmp = dest;
181
182 while (count--)
183 *tmp++ = *src++;
184
185 return dest;
186 }
187
188 void * memcpy(void * dest,const void *src,size_t count)
189 {
190 char *tmp = (char *) dest, *s = (char *) src;
191
192 while (count--)
193 *tmp++ = *s++;
194
195 return dest;
196 }
197
198 void * memmove(void * dest,const void *src,size_t count)
199 {
200 char *tmp, *s;
201
202 if (dest <= src) {
203 tmp = (char *) dest;
204 s = (char *) src;
205 while (count--)
206 *tmp++ = *s++;
207 }
208 else {
209 tmp = (char *) dest + count;
210 s = (char *) src + count;
211 while (count--)
212 *--tmp = *--s;
213 }
214
215 return dest;
216 }
217
218 int memcmp(const void * cs,const void * ct,size_t count)
219 {
220 const unsigned char *su1, *su2;
221 signed char res = 0;
222
223 for( su1 = cs, su2 = ct; 0 < count; ++su1, ++su2, count--)
224 if ((res = *su1 - *su2) != 0)
225 break;
226 return res;
227 }
228
229 /*
230 * find the first occurrence of byte 'c', or 1 past the area if none
231 */
232 void * memscan(void * addr, unsigned char c, size_t size)
233 {
234 unsigned char * p = (unsigned char *) addr;
235
236 while (size) {
237 if (*p == c)
238 return (void *) p;
239 p++;
240 size--;
241 }
242 return (void *) p;
243 }

20.03.2008 Aufgabe: Exclusiv Connection Access DB with Ado

1. Korrektur von Access Dantenbank verbindung mit Ado.Um Exception von DB_Close() zu überwinden,vor "if ( m_pADOpaelogbuch->bConnectionIsOpen() )" addiere "if (m_pADOpaelogbuch != NULL)", erst prüft mal die Abwesenheit der Pointobjekte "m_pADOpaelogbuch":

if (m_pADOpaelogbuch != NULL)
{

if ( m_pADOpaelogbuch->bConnectionIsOpen() )
{

if( m_pADOpaelogbuch->CloseRecordsetAdoDB() ||
m_pADOpaelogbuch->CloseConnections() )
{

delete m_pADOpaelogbuch;
m_pADOpaelogbuch = NULL;
error = NOT_ERROR;

}
else
{

error = ADO_DISCONNECT_ERROR;

}

}else
{
AddStringError((LPCTSTR)(CString("connect from paelogbuch to ") + plc.tgDB + CString(" has not been opend.")) );
error = ADO_CONNECT_ERROR;
}

}

2. Bei DB_Open():

if (!( m_pADOpaelogbuch = new ADOpaelogbuch((LPCTSTR)plc.tgDB) ))
{

error = ADO_CONNECT_ERROR;

}

ist "if (!( m_pADOpaelogbuch = new ADOpaelogbuch((LPCTSTR)plc.tgDB) ))" ungültig, weil "ADOpaelogbuch(tgDB)" kein returned Value.
Codes:

//////////////////////////////////////////////////////////////////////
// *
// * Editor: zengzn@gmail.com 20.03.2008
// * after testing is known, that "CAdoExternDB *m_pExternDB;"
// * makes m_pExternDB not NULL, exceptions will only been thrown by
// * "m_pExternDB->bConnectionIsOpen()" if "new CAdoExternDB((LPCTSTR)sDB,nMode)"
// * tries to connect a unexsiting file.
// * It does not matter if the exlusive connection fails
// * or opens a wrong file(.txt or others), no exception throws out.
// *
//////////////////////////////////////////////////////////////////////
if (plc.existFile(sDB))
{

m_pExternDB = new CAdoExternDB( (LPCTSTR)sDB, nMode );
if (m_pExternDB != NULL)
{

if (m_pExternDB->bConnectionIsOpen() )

error = NOT_ERROR;

else

error = ADO_CONNECT_ERROR;

}
else

error = ADO_CONNECT_ERROR;

}
else
{

error = OPEN_FILE_FAILED;

}

3. Exclusive connection to Access DB with Ado:
in ADOBase.cpp:

OpenAdoDB(AdoNs::_ConnectionPtr& pConnDB, const char* sDatabasePath, AdoNs::ConnectModeEnum nMode)
...
pConnDB->Mode = nMode;

nMode can be:

msado15.tlh
enum ConnectModeEnum
{

adModeUnknown = 0,
adModeRead = 1,
adModeWrite = 2,
adModeReadWrite = 3,
adModeShareDenyRead = 4,
adModeShareDenyWrite = 8,
adModeShareExclusive = 12,
adModeShareDenyNone = 16,
adModeRecursive = 4194304

};

4. Versuche die Möglichkeit die DB Einspielung mit ADO-Exclusive Connection,wenn andere Client verbindung nach DB-Server hat, warte mal kurz(1 min ? ) und versucht nochmal, sonst "adModeUnknown" und alert den Benutzer ob weiter geht.

Fehler Meldung bei unpack.exe (1)

Vermutliche Fehlerpunte:

Bei remote access von ferner Client kann diese Fehler erscheinen. Weil die Pfad"C:\Dokumente und Einstellung\LocalService\Desktop" enthält kein Benutzer, welche Benutzer-name kann auf remote computer eingelogen? anonymouse? Guest? oder "LocalService"?

Mögliche Lösung:

in Public.cpp add:

CPublic::CPublic()
{

...
CPublic::sSicherungDir = ( ( CPublic::sSicherungDir == _T("") || !existsDir(CPublic::sSicherungDir) ) ? _T("C:\\") : CPublic::sSicherungDir );

}

in CUnpackView.cpp CALLBACK CUnpackView::BrowseCallbackProc() ändert:

////////////////////////////////////////////////////////
//'d:\\' can not be recognised by SHGetPathFromIDList()
// must be changed into 'd:\'
////////////////////////////////////////////////////////
dir.Replace("\\\\","\\");
...
switch(uMsg)
{

case BFFM_INITIALIZED: //initial

hasInitial =true;
::SendMessage(hwnd,BFFM_SETSELECTION,TRUE,(LPARAM)(LPCTSTR)dir ); //"d:\\datenversicherung"
//AfxMessageBox("BFFM_INITIALIZED");

break;

case BFFM_SELCHANGED: //path changed
{

/////////////////////////////////////////////////////
// * modified by zengzn@gmail.com on 14.03.08
// * to avoid SHGetPathFromIDList()twice running
// * before "case BFFM_INITIALIZED" has been done
/////////////////////////////////////////////////////
if (hasInitial)
{

char curr[MAX_PATH];

SHGetPathFromIDList((LPCITEMIDLIST)lParam,curr);

//CString s;
//s.Format("BFFM_SELCHANGED, curr: %s",curr);
//AfxMessageBox(s);

if(curr[strlen(curr)-1]==92)
sprintf(curr,"%s",curr);
else
sprintf(curr,"%s\\",curr);

::SendMessage(hwnd,BFFM_SETSTATUSTEXT,0,(LPARAM)curr);

}

}
break;

VC++: Accelerator 快捷键

In datei Project.rc:
Mansche wenn Projekte Verzeichniss direkt kopiert aus war, könnte diese Accelerator disable sein. Die lösung ist so wie ""C",ID_EDIT_COPY,..." auszukommentieren.

/////////////////////////////////////////////////////////////////////////////
//
// Accelerator
//

IDR_MAINFRAME ACCELERATORS PRELOAD MOVEABLE PURE
BEGIN
"N", ID_FILE_NEW, VIRTKEY,CONTROL
"O", ID_FILE_OPEN, VIRTKEY,CONTROL
"S", ID_FILE_SAVE, VIRTKEY,CONTROL
"P", ID_FILE_PRINT, VIRTKEY,CONTROL
"Z", ID_EDIT_UNDO, VIRTKEY,CONTROL
"X", ID_EDIT_CUT, VIRTKEY,CONTROL
"C", ID_EDIT_COPY, VIRTKEY,CONTROL
"V", ID_EDIT_PASTE, VIRTKEY,CONTROL
VK_BACK, ID_EDIT_UNDO, VIRTKEY,ALT
VK_DELETE, ID_EDIT_CUT, VIRTKEY,SHIFT
VK_INSERT, ID_EDIT_COPY, VIRTKEY,CONTROL
VK_INSERT, ID_EDIT_PASTE, VIRTKEY,SHIFT
VK_F6, ID_NEXT_PANE, VIRTKEY
VK_F6, ID_PREV_PANE, VIRTKEY,SHIFT
END