1 //----------------------------------------------------------------------------------------
2 // Name: BrowserDB.h,cpp
3 // Purpose: a wxDB class
4 // Author: Mark Johnson
6 // Created: 19991127.mj10777
7 // Copyright: (c) Mark Johnson
8 // Licence: wxWindows license
10 //----------------------------------------------------------------------------------------
12 //----------------------------------------------------------------------------------------
13 //-- all #ifdefs that the whole Project needs. -------------------------------------------
14 //----------------------------------------------------------------------------------------
16 #pragma implementation
19 //----------------------------------------------------------------------------------------
20 // For compilers that support precompilation, includes "wx/wx.h".
21 #include "wx/wxprec.h"
22 //----------------------------------------------------------------------------------------
26 //----------------------------------------------------------------------------------------
30 //----------------------------------------------------------------------------------------
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
38 #error Demo cannot be compiled unless setup.h has wxUSE_ODBC set to 1
41 //----------------------------------------------------------------------------------------
42 extern WXDLLEXPORT_DATA(wxDbList
*) PtrBegDbList
; /* from db.cpp, used in getting back error results from db connections */
44 //----------------------------------------------------------------------------------------
45 char *GetExtendedDBErrorMsg(char *ErrFile
, int ErrLine
)
49 if (ErrFile
|| ErrLine
)
54 tStr
.Printf("%d",ErrLine
);
55 msg
+= tStr
.GetData();
58 msg
.Append ("\nODBC errors:\n");
60 /* Scan through each database connection displaying
61 * any ODBC errors that have occured. */
63 for (pDbList
= PtrBegDbList
; pDbList
; pDbList
= pDbList
->PtrNext
)
65 // Skip over any free connections
68 // Display errors for this connection
69 for (int i
= 0; i
< DB_MAX_ERROR_HISTORY
; i
++)
71 if (pDbList
->PtrDb
->errorList
[i
])
73 msg
.Append(pDbList
->PtrDb
->errorList
[i
]);
74 if (strcmp(pDbList
->PtrDb
->errorList
[i
],"") != 0)
80 return (char*) (const char*) msg
;
81 } // GetExtendedDBErrorMsg
83 //----------------------------------------------------------------------------------------
84 BrowserDB::BrowserDB()
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
92 } // BrowserDB Constructor
94 //----------------------------------------------------------------------------------------
95 BrowserDB::~BrowserDB()
97 PointerToNULL(1); // Clean up Tables and Databases (Commit, Close and delete)
98 } // BrowserDB destructor
100 //----------------------------------------------------------------------------------------
101 bool BrowserDB::Initialize(int Quiet
)
103 if (!OnStartDB(Quiet
))
105 wxLogMessage(_("\n\n-E-> BrowserDB::OnStartDB(%s) : Failed ! "),ODBCSource
.c_str());
109 } // BrowserDB:Initialize
111 //----------------------------------------------------------------------------------------
112 bool BrowserDB::OnStartDB(int Quiet
)
116 wxLogMessage(_("\n-I-> BrowserDB::OnStartDB(%s) : Begin "),ODBCSource
.c_str());
117 if (db_BrowserDB
!= NULL
)
120 wxLogMessage(_("\n-I-> BrowserDB::OnStartDB() : DB is already open."));
124 DbConnectInf
.AllocHenv();
126 //---------------------------------------------------------------------------------------
127 // Connect to datasource
128 //---------------------------------------------------------------------------------------
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
;
138 if (p_Dlg
->ShowModal() == wxID_OK
)
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
;
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
)
157 DbConnectInf
.SetDsn(wxT(""));
158 DbConnectInf
.SetUserID(wxT(""));
159 DbConnectInf
.SetPassword(wxT(""));
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());
165 DbConnectInf
.FreeHenv();
168 //--------------------------------------------------------------------------------------
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());
180 DbConnectInf
.FreeHenv();
185 //----------------------------------------------------------------------------------------
186 bool BrowserDB::OnCloseDB(int Quiet
)
189 wxLogMessage(_("-I-> BrowserDB::OnCloseDB() : Begin "));
192 // db_BrowserDB->Close();
193 wxDbFreeConnection(db_BrowserDB
);
195 DbConnectInf
.FreeHenv();
200 wxLogMessage(_("\n-I-> BrowserDB::OnCloseDB() : End "));
204 //----------------------------------------------------------------------------------------
205 bool BrowserDB::OnGetNext(int Cols
,int Quiet
)
214 TIMESTAMP_STRUCT t_temp
;
216 //-----------------------------
217 if (!db_BrowserDB
->GetNext())
220 Temp0
.Printf(_("\n-E-> BrowserDB::OnGetNext - ODBC-Error with GetNext \n-E-> "));
221 Temp0
+= GetExtendedDBErrorMsg(__FILE__
,__LINE__
);
229 strcpy((cl_BrowserDB
+i
)->tableName
,"-E->");
230 i_dbDataType
= (cl_BrowserDB
->pColFor
+i
)->i_dbDataType
;
231 if (i_dbDataType
== 0) // Filter unsupported dbDataTypes
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
;
244 if ((i_dbDataType
== DB_DATA_TYPE_INTEGER
) && ((cl_BrowserDB
->pColFor
+i
)->i_sqlDataType
== SQL_C_DOUBLE
))
246 i_dbDataType
= DB_DATA_TYPE_FLOAT
;
250 case DB_DATA_TYPE_VARCHAR
:
252 if (!db_BrowserDB
->GetData(i
+1,(cl_BrowserDB
->pColFor
+i
)->i_dbDataType
,&s_temp
,sizeof(s_temp
), &cb
))
254 Temp0
.Printf(_("\n-E-> BrowserDB::OnGetNext - ODBC-Error with GetNext of >%s<.\n-E-> "),(cl_BrowserDB
+i
)->tableName
);
255 Temp0
+= GetExtendedDBErrorMsg(__FILE__
,__LINE__
);
258 Temp0
.Printf((cl_BrowserDB
->pColFor
+i
)->s_Field
,s_temp
);
259 strcpy((cl_BrowserDB
+i
)->tableName
,Temp0
.c_str());
261 case DB_DATA_TYPE_INTEGER
:
263 if (!db_BrowserDB
->GetData(i
+1,(cl_BrowserDB
->pColFor
+i
)->i_sqlDataType
,&l_temp
,sizeof(l_temp
), &cb
))
265 Temp0
.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
266 Temp0
+= GetExtendedDBErrorMsg(__FILE__
,__LINE__
);
270 Temp0
.Printf((cl_BrowserDB
->pColFor
+i
)->s_Field
,l_temp
);
271 strcpy((cl_BrowserDB
+i
)->tableName
,Temp0
.c_str());
274 case DB_DATA_TYPE_FLOAT
:
276 if (!db_BrowserDB
->GetData(i
+1,(cl_BrowserDB
->pColFor
+i
)->i_sqlDataType
,&f_temp
,sizeof(f_temp
), &cb
))
278 Temp0
.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
279 Temp0
+= GetExtendedDBErrorMsg(__FILE__
,__LINE__
);
284 Temp0
.Printf((cl_BrowserDB
->pColFor
+i
)->s_Field
,f_temp
);
285 strcpy((cl_BrowserDB
+i
)->tableName
,Temp0
.c_str());
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
))
292 Temp0
.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
293 Temp0
+= GetExtendedDBErrorMsg(__FILE__
,__LINE__
);
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
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());
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
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());
312 if ((cl_BrowserDB
->pColFor
+i
)->i_Nation
== 3) // US MM/DD/YYYY
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());
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());
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());
339 //----------------------------------------------------------------------------------------
340 bool BrowserDB::OnSelect(wxString tb_Name
, int Quiet
)
345 //---------------------------------------------------------------------------------------
346 SQLStmt
.sprintf("SELECT * FROM %s",tb_Name
.c_str());
347 if (!db_BrowserDB
->ExecSql((char *)(SQLStmt
.GetData())))
349 Temp0
.Printf(_("\n-E-> BrowserDB::OnSelect - ODBC-Error with ExecSql of >%s<.\n-E-> "),tb_Name
.c_str());
350 Temp0
+= GetExtendedDBErrorMsg(__FILE__
,__LINE__
);
352 wxMessageBox("-E-> BrowserDB::OnSelect - GetData()");
355 //---------------------------------------------------------------------------------------
356 while (db_BrowserDB
->GetNext())
360 //---------------------------------------------------------------------------------------
361 if (!db_BrowserDB
->ExecSql((char *)(SQLStmt
.GetData())))
363 Temp0
.Printf(_("\n-E-> BrowserDB::OnSelect - ODBC-Error with ExecSql of >%s<.\n-E-> "),tb_Name
.c_str());
364 Temp0
+= GetExtendedDBErrorMsg(__FILE__
,__LINE__
);
368 //---------------------------------------------------------------------------------------
369 // SetColDefs ( 0,"NAME", DB_DATA_TYPE_VARCHAR, Name, SQL_C_CHAR, sizeof(Name), TRUE, TRUE); // Primary index
370 //---------------------------------------------------------------------------------------
373 wxLogMessage(_("\n-I-> BrowserDB::OnSelect(%s) Records(%d): End - Time needed : %ld ms"),tb_Name
.c_str(),i_Records
,sw
.Time());
378 //----------------------------------------------------------------------------------------
379 bool BrowserDB::OnExecSql(wxString SQLStmt
, int Quiet
)
381 //---------------------------------------------------------------------------------------
382 if (!db_BrowserDB
->ExecSql((char *)(SQLStmt
.GetData())))
384 Temp0
.Printf(_("\n-E-> BrowserDB::OnExecSQL - ODBC-Error with ExecSql of >%s<.\n-E-> "),SQLStmt
.c_str());
385 Temp0
+= GetExtendedDBErrorMsg(__FILE__
,__LINE__
);
389 wxMessageBox("-E-> BrowserDB::OnExecSql - ExecSql()");
394 // wxLogMessage(_("\n-I-> BrowserDB::OnExecSql(%s) - End - Time needed : %ld ms"),SQLStmt.c_str(),sw.Time());
399 //----------------------------------------------------------------------------------------
400 wxDbInf
* BrowserDB::OnGetCatalog(int Quiet
)
403 strcpy(UName
,UserName
);
404 ct_BrowserDB
= db_BrowserDB
->GetCatalog(UName
);
408 //----------------------------------------------------------------------------------------
409 wxDbColInf
* BrowserDB::OnGetColumns(char *tableName
, UWORD numCols
, int Quiet
)
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
++)
418 (cl_BrowserDB
->pColFor
+i
)->Format(1,(cl_BrowserDB
+i
)->dbDataType
,(cl_BrowserDB
+i
)->sqlDataType
,
419 (cl_BrowserDB
+i
)->columnSize
, (cl_BrowserDB
+i
)->decimalDigits
);
424 //----------------------------------------------------------------------------------------
425 void BrowserDB::PointerToNULL(int Art
)
427 if (Art
== 1) // Löschen
429 if (cl_BrowserDB
!= NULL
)
430 { // Destroy the memory
431 delete [] cl_BrowserDB
;
433 if (ct_BrowserDB
!= NULL
)
434 { // Destroy the memory
435 delete [] ct_BrowserDB
;
437 if (db_BrowserDB
!= NULL
)
439 db_BrowserDB
->CommitTrans();
440 db_BrowserDB
->Close();
441 wxDbCloseConnections();
451 //----------------------------------------------------------------------------------------
452 void BrowserDB::OnFillSqlTyp()
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] = "";
480 //----------------------------------------------------------------------------------------
481 void BrowserDB::OnFilldbTyp()
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] = "";
489 //----------------------------------------------------------------------------------------