四大天王之变形金刚（SqlHelper) - 数据库编程

atch ex As Exception Return Nothing Finally Call CloseCmd(cmd) '关闭cmd End Try End Function '

' 关闭连接 '

' 需要关闭的连接 ' Public Sub CloseConn(ByVal conn As SqlConnection) If (conn.State <> ConnectionState.Closed) Then '如果没有关闭 conn.Close() '关闭连接 conn = Nothing '不指向原对象 End If End Sub '

' 关闭命令 '

' 需要关闭的命令 ' Public Sub CloseCmd(ByVal cmd As SqlCommand) If Not IsNothing(cmd) Then '如果cmd命令还存在 cmd.Dispose() '释放资源 cmd = Nothing '不指向原对象 End If End Sub End Class

四大天王之变形金刚（SqlHelper)(二)