]> git.saurik.com Git - wxWidgets.git/blob - demos/dbbrowse/browsedb.cpp
clipboard reading
[wxWidgets.git] / demos / dbbrowse / browsedb.cpp
1 //----------------------------------------------------------------------------------------
2 // Name: BrowserDB.h,cpp
3 // Purpose: a wxDB class
4 // Author: Mark Johnson
5 // Modified by:
6 // Created: 19991127.mj10777
7 // Copyright: (c) Mark Johnson
8 // Licence: wxWindows license
9 // RCS-ID: $Id$
10 //----------------------------------------------------------------------------------------
11 //-- 1)
12 //----------------------------------------------------------------------------------------
13 //-- all #ifdefs that the whole Project needs. -------------------------------------------
14 //----------------------------------------------------------------------------------------
15 #ifdef __GNUG__
16 #pragma implementation
17 #pragma interface
18 #endif
19 //----------------------------------------------------------------------------------------
20 // For compilers that support precompilation, includes "wx/wx.h".
21 #include "wx/wxprec.h"
22 //----------------------------------------------------------------------------------------
23 #ifdef __BORLANDC__
24 #pragma hdrstop
25 #endif
26 //----------------------------------------------------------------------------------------
27 #ifndef WX_PRECOMP
28 #include "wx/wx.h"
29 #endif
30 //----------------------------------------------------------------------------------------
31 #include "std.h"
32 //----------------------------------------------------------------------------------------
33 // Global structure for holding ODBC connection information
34 // - darf nur einmal im Projekte definiert werden ?? Extra Databasse Klasse ?
35 wxDbConnectInf DbConnectInf; // Für DBase
36
37 #if !wxUSE_ODBC
38 #error Demo cannot be compiled unless setup.h has wxUSE_ODBC set to 1
39 #endif
40
41 //----------------------------------------------------------------------------------------
42 extern WXDLLEXPORT_DATA(wxDbList*) PtrBegDbList; /* from db.cpp, used in getting back error results from db connections */
43
44 //----------------------------------------------------------------------------------------
45 char *GetExtendedDBErrorMsg(char *ErrFile, int ErrLine)
46 {
47 static wxString msg;
48 wxString tStr;
49 if (ErrFile || ErrLine)
50 {
51 msg += "File: ";
52 msg += ErrFile;
53 msg += " Line: ";
54 tStr.Printf("%d",ErrLine);
55 msg += tStr.GetData();
56 // msg += "\n";
57 }
58 msg.Append ("\nODBC errors:\n");
59 // msg += "\n";
60 /* Scan through each database connection displaying
61 * any ODBC errors that have occured. */
62 wxDbList *pDbList;
63 for (pDbList = PtrBegDbList; pDbList; pDbList = pDbList->PtrNext)
64 {
65 // Skip over any free connections
66 if (pDbList->Free)
67 continue;
68 // Display errors for this connection
69 for (int i = 0; i < DB_MAX_ERROR_HISTORY; i++)
70 {
71 if (pDbList->PtrDb->errorList[i])
72 {
73 msg.Append(pDbList->PtrDb->errorList[i]);
74 if (strcmp(pDbList->PtrDb->errorList[i],"") != 0)
75 msg.Append("\n");
76 }
77 }
78 }
79 msg += "\n";
80 return (char*) (const char*) msg;
81 } // GetExtendedDBErrorMsg
82
83 //----------------------------------------------------------------------------------------
84 BrowserDB::BrowserDB()
85 {
86 PointerToNULL(0);
87 ODBCSource = ""; // ODBC data source name (created with ODBC Administrator under Win95/NT)
88 UserName = ""; // database username - must already exist in the data source
89 Password = ""; // password database username
90 OnFillSqlTyp();
91 OnFilldbTyp();
92 } // BrowserDB Constructor
93
94 //----------------------------------------------------------------------------------------
95 BrowserDB::~BrowserDB()
96 {
97 PointerToNULL(1); // Clean up Tables and Databases (Commit, Close and delete)
98 } // BrowserDB destructor
99
100 //----------------------------------------------------------------------------------------
101 bool BrowserDB::Initialize(int Quiet)
102 {
103 if (!OnStartDB(Quiet))
104 {
105 wxLogMessage(_("\n\n-E-> BrowserDB::OnStartDB(%s) : Failed ! "),ODBCSource.c_str());
106 return FALSE;
107 }
108 return TRUE;
109 } // BrowserDB:Initialize
110
111 //----------------------------------------------------------------------------------------
112 bool BrowserDB::OnStartDB(int Quiet)
113 {
114 wxStopWatch sw;
115 if (!Quiet)
116 wxLogMessage(_("\n-I-> BrowserDB::OnStartDB(%s) : Begin "),ODBCSource.c_str());
117 if (db_BrowserDB != NULL)
118 {
119 if (!Quiet)
120 wxLogMessage(_("\n-I-> BrowserDB::OnStartDB() : DB is already open."));
121 return TRUE;
122 }
123
124 DbConnectInf.AllocHenv();
125
126 //---------------------------------------------------------------------------------------
127 // Connect to datasource
128 //---------------------------------------------------------------------------------------
129 DlgUser *p_Dlg;
130 p_Dlg = new DlgUser(pDoc->p_MainFrame,pDoc,"");
131 p_Dlg->s_DSN = ODBCSource;
132 p_Dlg->s_User = UserName;
133 p_Dlg->s_Password = Password;
134 p_Dlg->OnInit();
135 p_Dlg->Fit();
136
137 bool OK = FALSE;
138 if (p_Dlg->ShowModal() == wxID_OK)
139 {
140 (pDoc->p_DSN+i_Which)->Usr = p_Dlg->s_User;
141 (pDoc->p_DSN+i_Which)->Pas = p_Dlg->s_Password;
142 UserName = p_Dlg->s_User;
143 Password = p_Dlg->s_Password;
144 OK = TRUE;
145 }
146 delete p_Dlg;
147 if (OK)
148 {
149 //--------------------------------------------------------------------------------------
150 DbConnectInf.SetDsn(ODBCSource); // ODBC data source name (created with ODBC Administrator under Win95/NT)
151 DbConnectInf.SetUserID(UserName); // database username - must already exist in the data source
152 DbConnectInf.SetPassword(Password); // password database username
153 db_BrowserDB = wxDbGetConnection(&DbConnectInf);
154 // wxLogMessage(">>>%s<<<>>>%s<<<",UserName.c_str(),Password.c_str());
155 if (db_BrowserDB == NULL)
156 {
157 DbConnectInf.SetDsn(wxT(""));
158 DbConnectInf.SetUserID(wxT(""));
159 DbConnectInf.SetPassword(wxT(""));
160 if (!Quiet)
161 {
162 wxLogMessage(_("\n-E-> BrowserDB::OnConnectDataSource() DB CONNECTION ERROR : Unable to connect to the data source.\n\nCheck the name of your data source to verify it has been correctly entered/spelled.\n\nWith some databases, the user name and password must\nbe created with full rights to the table prior to making a connection\n(using tools provided by the database manufacturer)"));
163 wxLogMessage(_("-I-> BrowserDB::OnStartDB(%s) : End - Time needed : %ld ms"),ODBCSource.c_str(),sw.Time());
164 }
165 DbConnectInf.FreeHenv();
166 return FALSE;
167 }
168 //--------------------------------------------------------------------------------------
169 if (!Quiet)
170 {
171 Temp1 = db_BrowserDB->GetDatabaseName();
172 Temp2 = db_BrowserDB->GetDataSource();
173 wxLogMessage(_("-I-> BrowserDB::OnGetDataSourceODBC() - DatabaseName(%s) ; DataSource(%s)"),Temp1.c_str(),Temp2.c_str());
174 wxLogMessage(_("-I-> BrowserDB::OnStartDB(%s) : End - Time needed : %ld ms"),ODBCSource.c_str(),sw.Time());
175 }
176 return TRUE;
177 }
178 else
179 {
180 DbConnectInf.FreeHenv();
181 return FALSE;
182 }
183 }
184
185 //----------------------------------------------------------------------------------------
186 bool BrowserDB::OnCloseDB(int Quiet)
187 {
188 if (!Quiet)
189 wxLogMessage(_("-I-> BrowserDB::OnCloseDB() : Begin "));
190 if (db_BrowserDB)
191 {
192 // db_BrowserDB->Close();
193 wxDbFreeConnection(db_BrowserDB);
194
195 DbConnectInf.FreeHenv();
196
197 db_BrowserDB = NULL;
198 }
199 if (!Quiet)
200 wxLogMessage(_("\n-I-> BrowserDB::OnCloseDB() : End "));
201 return TRUE;
202 }
203
204 //----------------------------------------------------------------------------------------
205 bool BrowserDB::OnGetNext(int Cols,int Quiet)
206 {
207 SDWORD cb;
208 int i_dbDataType;
209 int i=0;
210 char s_temp[1024+1];
211 long l_temp;
212 double f_temp;
213 int AnzError=0;
214 TIMESTAMP_STRUCT t_temp;
215 wxString Temp0;
216 //-----------------------------
217 if (!db_BrowserDB->GetNext())
218 {
219 return FALSE;
220 Temp0.Printf(_("\n-E-> BrowserDB::OnGetNext - ODBC-Error with GetNext \n-E-> "));
221 Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
222 wxLogMessage(Temp0);
223 wxMessageBox(Temp0);
224 }
225 else
226 {
227 for (i=0;i<Cols;i++)
228 {
229 strcpy((cl_BrowserDB+i)->tableName,"-E->");
230 i_dbDataType = (cl_BrowserDB->pColFor+i)->i_dbDataType;
231 if (i_dbDataType == 0) // Filter unsupported dbDataTypes
232 {
233 if (((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_VARCHAR) || ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_LONGVARCHAR))
234 i_dbDataType = DB_DATA_TYPE_VARCHAR;
235 if ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_C_DATE)
236 i_dbDataType = DB_DATA_TYPE_DATE;
237 if ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_C_BIT)
238 i_dbDataType = DB_DATA_TYPE_INTEGER;
239 if ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_NUMERIC)
240 i_dbDataType = DB_DATA_TYPE_VARCHAR;
241 if ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_REAL)
242 i_dbDataType = DB_DATA_TYPE_FLOAT;
243 }
244 if ((i_dbDataType == DB_DATA_TYPE_INTEGER) && ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_C_DOUBLE))
245 { // DBASE Numeric
246 i_dbDataType = DB_DATA_TYPE_FLOAT;
247 }
248 switch(i_dbDataType)
249 {
250 case DB_DATA_TYPE_VARCHAR:
251 strcpy(s_temp,"");
252 if (!db_BrowserDB->GetData(i+1,(cl_BrowserDB->pColFor+i)->i_dbDataType,&s_temp,sizeof(s_temp), &cb))
253 {
254 Temp0.Printf(_("\n-E-> BrowserDB::OnGetNext - ODBC-Error with GetNext of >%s<.\n-E-> "),(cl_BrowserDB+i)->tableName);
255 Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
256 wxLogMessage(Temp0);
257 }
258 Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,s_temp);
259 strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
260 break;
261 case DB_DATA_TYPE_INTEGER:
262 l_temp = 0;
263 if (!db_BrowserDB->GetData(i+1,(cl_BrowserDB->pColFor+i)->i_sqlDataType,&l_temp,sizeof(l_temp), &cb))
264 {
265 Temp0.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
266 Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
267 }
268 else
269 {
270 Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,l_temp);
271 strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
272 }
273 break;
274 case DB_DATA_TYPE_FLOAT:
275 f_temp = 0;
276 if (!db_BrowserDB->GetData(i+1,(cl_BrowserDB->pColFor+i)->i_sqlDataType,&f_temp,sizeof(f_temp), &cb))
277 {
278 Temp0.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
279 Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
280 wxMessageBox(Temp0);
281 }
282 else
283 {
284 Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,f_temp);
285 strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
286 }
287 break;
288 case DB_DATA_TYPE_DATE:
289 t_temp.day = t_temp.month = t_temp.year = t_temp.hour = t_temp.minute = t_temp.second = t_temp.fraction = 0;
290 if (!db_BrowserDB->GetData(i+1,(cl_BrowserDB->pColFor+i)->i_sqlDataType,&t_temp,sizeof(t_temp), &cb))
291 {
292 Temp0.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
293 Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
294 }
295 else
296 {
297 // i_Nation = 0 = timestamp , 1=EU, 2=UK, 3=International, 4=US
298 if (((cl_BrowserDB->pColFor+i)->i_Nation == 0) || // TS YYYY-MM-DD
299 ((cl_BrowserDB->pColFor+i)->i_Nation == 3)) // IT YYYY-MM-DD
300 {
301 Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,t_temp.year,t_temp.month,t_temp.day,
302 t_temp.hour, t_temp.minute, t_temp.second, t_temp.fraction);
303 strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
304 }
305 if (((cl_BrowserDB->pColFor+i)->i_Nation == 1) || // EU DD.MM.YYYY
306 ((cl_BrowserDB->pColFor+i)->i_Nation == 2)) // UK DD/MM/YYYY
307 {
308 Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,t_temp.day,t_temp.month,t_temp.year,
309 t_temp.hour, t_temp.minute, t_temp.second, t_temp.fraction);
310 strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
311 }
312 if ((cl_BrowserDB->pColFor+i)->i_Nation == 3) // US MM/DD/YYYY
313 {
314 Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,t_temp.month,t_temp.day,t_temp.year,
315 t_temp.hour, t_temp.minute, t_temp.second, t_temp.fraction);
316 strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
317 }
318 }
319 break;
320 default:
321 AnzError++;
322 if (AnzError <= 100)
323 {
324 Temp0 = (cl_BrowserDB+i)->colName;
325 wxLogMessage(_("-E-> BrowserDB::OnGetNext - DB_DATA_TYPE_?? (%d) in Col(%s)"),(cl_BrowserDB->pColFor+i)->i_dbDataType,Temp0.c_str());
326 }
327 else
328 return TRUE;
329 Temp0.Printf(_("-E-> unknown Format(%d) - sql(%d)"),(cl_BrowserDB->pColFor+i)->i_dbDataType,(cl_BrowserDB->pColFor+i)->i_sqlDataType);
330 strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
331 break;
332 }; // switch
333 } // for
334 } // else
335
336 return TRUE;
337 }
338
339 //----------------------------------------------------------------------------------------
340 bool BrowserDB::OnSelect(wxString tb_Name, int Quiet)
341 {
342 wxStopWatch sw;
343 wxString SQLStmt;
344 i_Records = 0;
345 //---------------------------------------------------------------------------------------
346 SQLStmt.sprintf("SELECT * FROM %s",tb_Name.c_str());
347 if (!db_BrowserDB->ExecSql((char *)(SQLStmt.GetData())))
348 {
349 Temp0.Printf(_("\n-E-> BrowserDB::OnSelect - ODBC-Error with ExecSql of >%s<.\n-E-> "),tb_Name.c_str());
350 Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
351 wxLogMessage(Temp0);
352 wxMessageBox("-E-> BrowserDB::OnSelect - GetData()");
353 return FALSE;
354 }
355 //---------------------------------------------------------------------------------------
356 while (db_BrowserDB->GetNext())
357 {
358 i_Records++;
359 }
360 //---------------------------------------------------------------------------------------
361 if (!db_BrowserDB->ExecSql((char *)(SQLStmt.GetData())))
362 {
363 Temp0.Printf(_("\n-E-> BrowserDB::OnSelect - ODBC-Error with ExecSql of >%s<.\n-E-> "),tb_Name.c_str());
364 Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
365 wxLogMessage(Temp0);
366 return FALSE;
367 }
368 //---------------------------------------------------------------------------------------
369 // SetColDefs ( 0,"NAME", DB_DATA_TYPE_VARCHAR, Name, SQL_C_CHAR, sizeof(Name), TRUE, TRUE); // Primary index
370 //---------------------------------------------------------------------------------------
371 if (!Quiet)
372 {
373 wxLogMessage(_("\n-I-> BrowserDB::OnSelect(%s) Records(%d): End - Time needed : %ld ms"),tb_Name.c_str(),i_Records,sw.Time());
374 }
375 return TRUE;
376 }
377
378 //----------------------------------------------------------------------------------------
379 bool BrowserDB::OnExecSql(wxString SQLStmt, int Quiet)
380 {
381 //---------------------------------------------------------------------------------------
382 if (!db_BrowserDB->ExecSql((char *)(SQLStmt.GetData())))
383 {
384 Temp0.Printf(_("\n-E-> BrowserDB::OnExecSQL - ODBC-Error with ExecSql of >%s<.\n-E-> "),SQLStmt.c_str());
385 Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
386 if (!Quiet)
387 wxLogMessage(Temp0);
388 else
389 wxMessageBox("-E-> BrowserDB::OnExecSql - ExecSql()");
390 return FALSE;
391 }
392 if (!Quiet)
393 {
394 // wxLogMessage(_("\n-I-> BrowserDB::OnExecSql(%s) - End - Time needed : %ld ms"),SQLStmt.c_str(),sw.Time());
395 }
396 return TRUE;
397 }
398
399 //----------------------------------------------------------------------------------------
400 wxDbInf* BrowserDB::OnGetCatalog(int Quiet)
401 {
402 char UName[255];
403 strcpy(UName,UserName);
404 ct_BrowserDB = db_BrowserDB->GetCatalog(UName);
405 return ct_BrowserDB;
406 }
407
408 //----------------------------------------------------------------------------------------
409 wxDbColInf* BrowserDB::OnGetColumns(char *tableName, UWORD numCols, int Quiet)
410 {
411 char UName[255];
412 int i;
413 strcpy(UName,UserName);
414 cl_BrowserDB = db_BrowserDB->GetColumns(tableName,&numCols,UName);
415 cl_BrowserDB->pColFor = new wxDbColFor[numCols];
416 for (i=0;i<numCols;i++)
417 {
418 (cl_BrowserDB->pColFor+i)->Format(1,(cl_BrowserDB+i)->dbDataType,(cl_BrowserDB+i)->sqlDataType,
419 (cl_BrowserDB+i)->columnSize, (cl_BrowserDB+i)->decimalDigits);
420 }
421 return cl_BrowserDB;
422 }
423
424 //----------------------------------------------------------------------------------------
425 void BrowserDB::PointerToNULL(int Art)
426 {
427 if (Art == 1) // Löschen
428 {
429 if (cl_BrowserDB != NULL)
430 { // Destroy the memory
431 delete [] cl_BrowserDB;
432 }
433 if (ct_BrowserDB != NULL)
434 { // Destroy the memory
435 delete [] ct_BrowserDB;
436 }
437 if (db_BrowserDB != NULL)
438 {
439 db_BrowserDB->CommitTrans();
440 db_BrowserDB->Close();
441 wxDbCloseConnections();
442 delete db_BrowserDB;
443 }
444 }
445 cl_BrowserDB = NULL;
446 ct_BrowserDB = NULL;
447 db_BrowserDB = NULL;
448 p_LogWindow = NULL;
449 }
450
451 //----------------------------------------------------------------------------------------
452 void BrowserDB::OnFillSqlTyp()
453 {
454 i_SqlTyp[1] = SQL_C_BINARY; s_SqlTyp[1] = "SQL_C_BINARY";
455 i_SqlTyp[2] = SQL_C_BIT; s_SqlTyp[2] = "SQL_C_BIT";
456 i_SqlTyp[3] = SQL_C_BOOKMARK; s_SqlTyp[3] = "SQL_C_BOOKMARK";
457 i_SqlTyp[4] = SQL_C_CHAR; s_SqlTyp[4] = "SQL_C_CHAR";
458 i_SqlTyp[5] = SQL_C_DATE; s_SqlTyp[5] = "SQL_C_DATE";
459 i_SqlTyp[6] = SQL_C_DEFAULT; s_SqlTyp[6] = "SQL_C_DEFAULT";
460 i_SqlTyp[7] = SQL_C_DOUBLE; s_SqlTyp[7] = "SQL_C_DOUBLE";
461 i_SqlTyp[8] = SQL_C_FLOAT; s_SqlTyp[8] = "SQL_C_FLOAT";
462 i_SqlTyp[9] = SQL_C_LONG; s_SqlTyp[9] = "SQL_C_LONG";
463 i_SqlTyp[10] = SQL_C_SHORT; s_SqlTyp[10] = "SQL_C_SHORT";
464 i_SqlTyp[11] = SQL_C_SLONG; s_SqlTyp[11] = "SQL_C_SLONG";
465 i_SqlTyp[12] = SQL_C_SSHORT; s_SqlTyp[12] = "SQL_C_SSHORT";
466 i_SqlTyp[13] = SQL_C_STINYINT; s_SqlTyp[13] = "SQL_C_STINYINT";
467 i_SqlTyp[14] = SQL_C_TIME; s_SqlTyp[14] = "SQL_C_TIME";
468 i_SqlTyp[15] = SQL_C_TIMESTAMP; s_SqlTyp[15] = "SQL_C_TIMESTAMP";
469 i_SqlTyp[16] = SQL_C_TINYINT; s_SqlTyp[16] = "SQL_C_TINYINT";
470 i_SqlTyp[17] = SQL_C_ULONG; s_SqlTyp[17] = "SQL_C_ULONG";
471 i_SqlTyp[18] = SQL_C_USHORT; s_SqlTyp[18] = "SQL_C_USHORT";
472 i_SqlTyp[19] = SQL_C_UTINYINT; s_SqlTyp[19] = "SQL_C_UTINYINT";
473 i_SqlTyp[20] = SQL_VARCHAR; s_SqlTyp[20] = "SQL_VARCHAR";
474 i_SqlTyp[21] = SQL_NUMERIC; s_SqlTyp[21] = "SQL_NUMERIC";
475 i_SqlTyp[22] = SQL_LONGVARCHAR; s_SqlTyp[22] = "SQL_LONGVARCHAR";
476 i_SqlTyp[23] = SQL_REAL; s_SqlTyp[23] = "SQL_REAL";
477 i_SqlTyp[0] = 23; s_SqlTyp[0] = "";
478 }
479
480 //----------------------------------------------------------------------------------------
481 void BrowserDB::OnFilldbTyp()
482 {
483 i_dbTyp[1] = DB_DATA_TYPE_VARCHAR; s_dbTyp[1] = "DB_DATA_TYPE_VARCHAR";
484 i_dbTyp[2] = DB_DATA_TYPE_INTEGER; s_dbTyp[2] = "DB_DATA_TYPE_INTEGER";
485 i_dbTyp[3] = DB_DATA_TYPE_FLOAT; s_dbTyp[3] = "DB_DATA_TYPE_FLOAT";
486 i_dbTyp[4] = DB_DATA_TYPE_DATE; s_dbTyp[4] = "DB_DATA_TYPE_DATE";
487 i_dbTyp[0] = 4; s_dbTyp[0] = "";
488 }
489 //----------------------------------------------------------------------------------------