New test.
[mono.git] / mcs / class / System.Data / System.Data.Odbc / OdbcError.cs
1 //
2 // System.Data.Odbc.OdbcError
3 //
4 // Author:
5 //   Brian Ritchie (brianlritchie@hotmail.com) 
6 //
7 // Copyright (C) Brian Ritchie, 2002
8 //
9
10 //
11 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
12 //
13 // Permission is hereby granted, free of charge, to any person obtaining
14 // a copy of this software and associated documentation files (the
15 // "Software"), to deal in the Software without restriction, including
16 // without limitation the rights to use, copy, modify, merge, publish,
17 // distribute, sublicense, and/or sell copies of the Software, and to
18 // permit persons to whom the Software is furnished to do so, subject to
19 // the following conditions:
20 // 
21 // The above copyright notice and this permission notice shall be
22 // included in all copies or substantial portions of the Software.
23 // 
24 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
25 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
26 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
27 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
28 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
29 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
30 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
31 //
32
33 using System.Collections;
34 using System.ComponentModel;
35 using System.Data;
36 using System.Data.Common;
37
38 namespace System.Data.Odbc
39 {
40         [Serializable]
41         public sealed class OdbcError
42         {
43                 string _message;
44                 string _source;
45                 string _state;
46                 int _nativeerror;
47
48                 #region Constructors
49
50                 internal OdbcError(string Source)
51                 {
52                         _nativeerror = 1;
53                         _source = Source;
54                         _message = "Error in " + _source;
55                         _state = "";
56                 }
57
58                 internal OdbcError(string Source, OdbcHandleType HandleType, IntPtr Handle)
59                 {
60                         short buflen=256,txtlen=0;
61                         OdbcReturn ret=OdbcReturn.Success;
62                         byte[] buf_MsgText=new byte[buflen];
63                         byte[] buf_SqlState=new byte[buflen];
64                         bool NeedsDecode=true;
65                         _source = Source;
66                         switch (HandleType)
67                         {
68                                 case OdbcHandleType.Dbc:
69                                         ret=libodbc.SQLError(IntPtr.Zero,Handle,IntPtr.Zero, buf_SqlState,
70                                                 ref _nativeerror, buf_MsgText, buflen, ref txtlen);
71                                         break;
72                                 case OdbcHandleType.Stmt:
73                                         ret=libodbc.SQLError(IntPtr.Zero,IntPtr.Zero,Handle, buf_SqlState,
74                                                 ref _nativeerror, buf_MsgText, buflen, ref txtlen);
75                                         break;
76                                 case OdbcHandleType.Env:
77                                         ret=libodbc.SQLError(Handle,IntPtr.Zero,IntPtr.Zero, buf_SqlState,
78                                                 ref _nativeerror, buf_MsgText, buflen, ref txtlen);
79                                         break;
80                                 default:
81                                         _nativeerror = 1;
82                                         _source = Source;
83                                         _message = "Error in " + _source;
84                                         _state = "";
85                                         NeedsDecode=false;
86                                         break;
87                         }
88                         if (NeedsDecode)
89                         {
90                                 if (ret!=OdbcReturn.Success)
91                                 {
92                                         _nativeerror = 1;
93                                         _source = Source;
94                                         _message = "Unable to retreive error information from ODBC driver manager";
95                                         _state = "";
96                                 }
97                                 else
98                                 {
99                                         _state = System.Text.Encoding.Default.GetString (buf_SqlState).Replace ((char) 0, ' ').Trim ();
100                                         _message = System.Text.Encoding.Default.GetString (buf_MsgText).Replace ((char) 0, ' ').Trim ();
101                                 }
102                         }
103                 }
104
105                 #endregion // Constructors
106                 
107                 #region Properties
108
109                 public string Message
110                 {
111                         get
112                         {
113                                 return _message;
114                         }
115                 }
116
117                 public int NativeError
118                 {
119                         get
120                         {
121                                 return _nativeerror;
122                         }
123                 }
124
125                 public string Source
126                 {
127                         get
128                         {
129                                 return _source;
130                         }
131                 }
132
133                 public string SQLState
134                 {
135                         get
136                         {
137                                 return _state;
138                         }
139                 }
140
141                 #endregion // Properties
142                 
143                 #region methods
144                 
145                 public override string ToString () 
146                 {
147                         return Message;
148                 }       
149                         
150                 #endregion
151
152         }
153
154 }