1![](/Images/OutliningIndicators/None.gif)
2
'-------------------------------------------------------
3
'
4
' 获取数据库连接状态
5
'
6
'
7
'-------------------------------------------------------
8![](/Images/OutliningIndicators/None.gif)
9![](/Images/OutliningIndicators/None.gif)
10![](/Images/OutliningIndicators/None.gif)
11
Public Shared Function GetSQLConnectStatus(ByVal connStr As String) As String
12![](/Images/OutliningIndicators/InBlock.gif)
13
Dim connectStatus As String
14
Dim DeconnectionString As String = WebSecurity.DeCryptString(connStr)
15![](/Images/OutliningIndicators/InBlock.gif)
16![](/Images/OutliningIndicators/InBlock.gif)
17
connectStatus = DeconnectionString
18![](/Images/OutliningIndicators/InBlock.gif)
19
Return connectStatus
20
End Function
21![](/Images/OutliningIndicators/None.gif)
22
'-------------------------------------------------------
23
'
24
'处理SQL语句
25
'插入、更新、删除
26
'-------------------------------------------------------
27
Public Shared Function ExecuteNonQuery(ByVal InsertSQL As String) As Integer
28
Dim connStrClass As New connStr
29
Dim connStr As String = connStrClass.ConnectString
30![](/Images/OutliningIndicators/InBlock.gif)
31
Dim con As New OleDbConnection(connStr)
32
Dim cmd As New OleDbCommand(InsertSQL, con)
33![](/Images/OutliningIndicators/InBlock.gif)
34![](/Images/OutliningIndicators/InBlock.gif)
35
Dim Added As Integer
36
Try
37
con.Open()
38![](/Images/OutliningIndicators/InBlock.gif)
39
Added = cmd.ExecuteNonQuery
40![](/Images/OutliningIndicators/InBlock.gif)
41![](/Images/OutliningIndicators/InBlock.gif)
42
Catch err As Exception
43
'lblInfo.Text = "Insert_delay()" & err.Message
44
Finally
45
If (Not con Is Nothing) Then
46
con.Close()
47![](/Images/OutliningIndicators/InBlock.gif)
48
End If
49
End Try
50![](/Images/OutliningIndicators/InBlock.gif)
51
Return Added
52![](/Images/OutliningIndicators/InBlock.gif)
53
End Function
54![](/Images/OutliningIndicators/None.gif)
55
'-------------------------------------------------------
56
'
57
'处理SQL语句
58
'查询行数
59
'-------------------------------------------------------
60
Public Shared Function ExecuteQuery(ByVal QuerySQL As String) As Integer
61
Dim connStrClass As New connStr
62
Dim connStr As String = connStrClass.ConnectString
63![](/Images/OutliningIndicators/InBlock.gif)
64
Dim con As New OleDbConnection(connStr)
65
Dim cmd As New OleDbCommand(QuerySQL, con)
66
Dim DataReader As OleDbDataReader
67![](/Images/OutliningIndicators/InBlock.gif)
68![](/Images/OutliningIndicators/InBlock.gif)
69
Dim Result As Integer = 0
70
Try
71
con.Open()
72![](/Images/OutliningIndicators/InBlock.gif)
73
DataReader = cmd.ExecuteReader()
74![](/Images/OutliningIndicators/InBlock.gif)
75![](/Images/OutliningIndicators/InBlock.gif)
76
Do While DataReader.Read()
77
Result += 1
78
Loop
79
Catch err As Exception
80
Result = 0
81
Finally
82
If (Not con Is Nothing) Then
83
con.Close()
84![](/Images/OutliningIndicators/InBlock.gif)
85
End If
86
End Try
87![](/Images/OutliningIndicators/InBlock.gif)
88
Return Result
89
End Function
90![](/Images/OutliningIndicators/None.gif)
91
'-------------------------------------------------------
92
'
93
'处理SQL语句
94
'查询
95
'-------------------------------------------------------
96![](/Images/OutliningIndicators/None.gif)
97
Public Shared Function ExecuteDataReaderQuery(ByVal QuerySQL As String) As OleDbDataReader
98![](/Images/OutliningIndicators/InBlock.gif)
99
Dim connStrClass As New connStr
100
Dim connStr As String = connStrClass.ConnectString
101![](/Images/OutliningIndicators/InBlock.gif)
102
Dim con As New OleDbConnection(connStr)
103
Dim cmd As New OleDbCommand(QuerySQL, con)
104
Dim DataReader As OleDbDataReader
105![](/Images/OutliningIndicators/InBlock.gif)
106![](/Images/OutliningIndicators/InBlock.gif)
107![](/Images/OutliningIndicators/InBlock.gif)
108![](/Images/OutliningIndicators/InBlock.gif)
109
'Try
110
con.Open()
111![](/Images/OutliningIndicators/InBlock.gif)
112
Return cmd.ExecuteReader(CommandBehavior.CloseConnection)
113![](/Images/OutliningIndicators/InBlock.gif)
114
'DataReader.Close()
115
'con.Close()
116![](/Images/OutliningIndicators/InBlock.gif)
117![](/Images/OutliningIndicators/InBlock.gif)
118![](/Images/OutliningIndicators/InBlock.gif)
119![](/Images/OutliningIndicators/InBlock.gif)
120
End Function
121![](/Images/OutliningIndicators/None.gif)
122![](/Images/OutliningIndicators/None.gif)
123![](/Images/OutliningIndicators/None.gif)
124
'-------------------------------------------------------
125
'
126
'处理SQL语句
127
'查询
128
'-------------------------------------------------------
129
Public Shared Function ExecuteDataAdapter(ByVal QuerySQL As String) As DataSet
130![](/Images/OutliningIndicators/InBlock.gif)
131
Dim connStrClass As New connStr
132
Dim connStr As String = connStrClass.ConnectString
133
Dim con As New OleDbConnection(connStr)
134
Dim cmd As New OleDbCommand(QuerySQL, con)
135
Dim dtAdapter As New OleDbDataAdapter(cmd)
136
Dim ds As New DataSet
137![](/Images/OutliningIndicators/InBlock.gif)
138
dtAdapter.Fill(ds)
139![](/Images/OutliningIndicators/InBlock.gif)
140![](/Images/OutliningIndicators/InBlock.gif)
141
con.Close()
142
con.Dispose()
143![](/Images/OutliningIndicators/InBlock.gif)
144
Return ds
145
End Function
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/None.gif)
4
![](/Images/OutliningIndicators/None.gif)
5
![](/Images/OutliningIndicators/None.gif)
6
![](/Images/OutliningIndicators/None.gif)
7
![](/Images/OutliningIndicators/None.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/None.gif)
10
![](/Images/OutliningIndicators/None.gif)
11
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
12
![](/Images/OutliningIndicators/InBlock.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/InBlock.gif)
16
![](/Images/OutliningIndicators/InBlock.gif)
17
![](/Images/OutliningIndicators/InBlock.gif)
18
![](/Images/OutliningIndicators/InBlock.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
21
![](/Images/OutliningIndicators/None.gif)
22
![](/Images/OutliningIndicators/None.gif)
23
![](/Images/OutliningIndicators/None.gif)
24
![](/Images/OutliningIndicators/None.gif)
25
![](/Images/OutliningIndicators/None.gif)
26
![](/Images/OutliningIndicators/None.gif)
27
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
28
![](/Images/OutliningIndicators/InBlock.gif)
29
![](/Images/OutliningIndicators/InBlock.gif)
30
![](/Images/OutliningIndicators/InBlock.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/InBlock.gif)
33
![](/Images/OutliningIndicators/InBlock.gif)
34
![](/Images/OutliningIndicators/InBlock.gif)
35
![](/Images/OutliningIndicators/InBlock.gif)
36
![](/Images/OutliningIndicators/InBlock.gif)
37
![](/Images/OutliningIndicators/InBlock.gif)
38
![](/Images/OutliningIndicators/InBlock.gif)
39
![](/Images/OutliningIndicators/InBlock.gif)
40
![](/Images/OutliningIndicators/InBlock.gif)
41
![](/Images/OutliningIndicators/InBlock.gif)
42
![](/Images/OutliningIndicators/InBlock.gif)
43
![](/Images/OutliningIndicators/InBlock.gif)
44
![](/Images/OutliningIndicators/InBlock.gif)
45
![](/Images/OutliningIndicators/InBlock.gif)
46
![](/Images/OutliningIndicators/InBlock.gif)
47
![](/Images/OutliningIndicators/InBlock.gif)
48
![](/Images/OutliningIndicators/InBlock.gif)
49
![](/Images/OutliningIndicators/InBlock.gif)
50
![](/Images/OutliningIndicators/InBlock.gif)
51
![](/Images/OutliningIndicators/InBlock.gif)
52
![](/Images/OutliningIndicators/InBlock.gif)
53
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
54
![](/Images/OutliningIndicators/None.gif)
55
![](/Images/OutliningIndicators/None.gif)
56
![](/Images/OutliningIndicators/None.gif)
57
![](/Images/OutliningIndicators/None.gif)
58
![](/Images/OutliningIndicators/None.gif)
59
![](/Images/OutliningIndicators/None.gif)
60
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
61
![](/Images/OutliningIndicators/InBlock.gif)
62
![](/Images/OutliningIndicators/InBlock.gif)
63
![](/Images/OutliningIndicators/InBlock.gif)
64
![](/Images/OutliningIndicators/InBlock.gif)
65
![](/Images/OutliningIndicators/InBlock.gif)
66
![](/Images/OutliningIndicators/InBlock.gif)
67
![](/Images/OutliningIndicators/InBlock.gif)
68
![](/Images/OutliningIndicators/InBlock.gif)
69
![](/Images/OutliningIndicators/InBlock.gif)
70
![](/Images/OutliningIndicators/InBlock.gif)
71
![](/Images/OutliningIndicators/InBlock.gif)
72
![](/Images/OutliningIndicators/InBlock.gif)
73
![](/Images/OutliningIndicators/InBlock.gif)
74
![](/Images/OutliningIndicators/InBlock.gif)
75
![](/Images/OutliningIndicators/InBlock.gif)
76
![](/Images/OutliningIndicators/InBlock.gif)
77
![](/Images/OutliningIndicators/InBlock.gif)
78
![](/Images/OutliningIndicators/InBlock.gif)
79
![](/Images/OutliningIndicators/InBlock.gif)
80
![](/Images/OutliningIndicators/InBlock.gif)
81
![](/Images/OutliningIndicators/InBlock.gif)
82
![](/Images/OutliningIndicators/InBlock.gif)
83
![](/Images/OutliningIndicators/InBlock.gif)
84
![](/Images/OutliningIndicators/InBlock.gif)
85
![](/Images/OutliningIndicators/InBlock.gif)
86
![](/Images/OutliningIndicators/InBlock.gif)
87
![](/Images/OutliningIndicators/InBlock.gif)
88
![](/Images/OutliningIndicators/InBlock.gif)
89
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
90
![](/Images/OutliningIndicators/None.gif)
91
![](/Images/OutliningIndicators/None.gif)
92
![](/Images/OutliningIndicators/None.gif)
93
![](/Images/OutliningIndicators/None.gif)
94
![](/Images/OutliningIndicators/None.gif)
95
![](/Images/OutliningIndicators/None.gif)
96
![](/Images/OutliningIndicators/None.gif)
97
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
98
![](/Images/OutliningIndicators/InBlock.gif)
99
![](/Images/OutliningIndicators/InBlock.gif)
100
![](/Images/OutliningIndicators/InBlock.gif)
101
![](/Images/OutliningIndicators/InBlock.gif)
102
![](/Images/OutliningIndicators/InBlock.gif)
103
![](/Images/OutliningIndicators/InBlock.gif)
104
![](/Images/OutliningIndicators/InBlock.gif)
105
![](/Images/OutliningIndicators/InBlock.gif)
106
![](/Images/OutliningIndicators/InBlock.gif)
107
![](/Images/OutliningIndicators/InBlock.gif)
108
![](/Images/OutliningIndicators/InBlock.gif)
109
![](/Images/OutliningIndicators/InBlock.gif)
110
![](/Images/OutliningIndicators/InBlock.gif)
111
![](/Images/OutliningIndicators/InBlock.gif)
112
![](/Images/OutliningIndicators/InBlock.gif)
113
![](/Images/OutliningIndicators/InBlock.gif)
114
![](/Images/OutliningIndicators/InBlock.gif)
115
![](/Images/OutliningIndicators/InBlock.gif)
116
![](/Images/OutliningIndicators/InBlock.gif)
117
![](/Images/OutliningIndicators/InBlock.gif)
118
![](/Images/OutliningIndicators/InBlock.gif)
119
![](/Images/OutliningIndicators/InBlock.gif)
120
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
121
![](/Images/OutliningIndicators/None.gif)
122
![](/Images/OutliningIndicators/None.gif)
123
![](/Images/OutliningIndicators/None.gif)
124
![](/Images/OutliningIndicators/None.gif)
125
![](/Images/OutliningIndicators/None.gif)
126
![](/Images/OutliningIndicators/None.gif)
127
![](/Images/OutliningIndicators/None.gif)
128
![](/Images/OutliningIndicators/None.gif)
129
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
130
![](/Images/OutliningIndicators/InBlock.gif)
131
![](/Images/OutliningIndicators/InBlock.gif)
132
![](/Images/OutliningIndicators/InBlock.gif)
133
![](/Images/OutliningIndicators/InBlock.gif)
134
![](/Images/OutliningIndicators/InBlock.gif)
135
![](/Images/OutliningIndicators/InBlock.gif)
136
![](/Images/OutliningIndicators/InBlock.gif)
137
![](/Images/OutliningIndicators/InBlock.gif)
138
![](/Images/OutliningIndicators/InBlock.gif)
139
![](/Images/OutliningIndicators/InBlock.gif)
140
![](/Images/OutliningIndicators/InBlock.gif)
141
![](/Images/OutliningIndicators/InBlock.gif)
142
![](/Images/OutliningIndicators/InBlock.gif)
143
![](/Images/OutliningIndicators/InBlock.gif)
144
![](/Images/OutliningIndicators/InBlock.gif)
145
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)