求四大天王在香港红馆开演唱会记录?

发布网友发布时间：2022-04-14 17:20

共3个回答

懂视网时间：2022-04-14 21:41

/pre 1、基础介绍p/ppspan style=color:rgb(51,51,51); font-family:arial,宋体,sans-serif; line-height:24px; text-indent:28pxspan style=font-size:18px SqlHelper是一个基于NET Framework的数据库操作组件。组件中包含数据库操作方法。SqlHelper用于简

1、基础介绍

SqlHelper是一个基于·NET Framework的数据库操作组件。组件中包含数据库操作方法。SqlHelper用于简化你重复的去写那些数据库连接（SqlConnection）,SqlCommand,SqlDataReader等等。SqlHelper 封装过后通常是只需要给方法传入一些参数如数据库连接字符串，SQL参数等，就可以访问数据库了，很方便。

简单的讲，就是将“四大天王”中具有共性的东西，封装起来，从而让我们的代码变得简单，易于扩展。

2、实现方法（Vb.Net版）

（1）配制文件（U层）

在建立的应用窗体项目下，有一个App.Config文件，打开，然后在后边添加如下代码

添加完以后，如下图

其他方法另外参照 VB.Net—配置文件

（2）实现SqlHelper类（D层）

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration  '添加必要引用

Public Class SqlHelper

 '定义变量
 '获得数据库链接字符串
 Private ReadOnly strConnection As String = ("ConnStr")
 '设置链接
 Dim conn As SqlConnection = New SqlConnection(strConnection)
 '定义Command命令
 Dim cmd As New SqlCommand

 '  
 ' 执行增删改三个操作,(有参)返回值为Boolean类型,确认是否执行成功 
 '  
 ' 需要执行语句,一般是Sql语句,也有存储过程 
 ' 判断Sql语句的类型,一般都不是存储过程 
 ' 参数数组,无法确认有多少参数 
 '  
 ' 
 Public Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As Integer

 '将传入的值，分别为cmd的属性赋值
 cmd.Parameters.AddRange(paras) '将参数传入
 cmd.CommandType = cmdType  '设置一个值，解释cmdText
 cmd.Connection = conn   '设置连接，全局变量
 cmd.CommandText = cmdText  '设置SQL语句

 Try
  conn.Open()   '打开链接
  Return cmd.ExecuteNonQuery() '执行增删改操作
  cmd.Parameters.Clear()  '清除参数
 Catch ex As Exception
  Return 0    '如果出错就返回0
 Finally
  Call CloseConn(conn)
  Call CloseCmd(cmd)
 End Try
 End Function

 '  
 ' 执行增删改三个操作,(无参) 
 '  
 ' 需要执行语句,一般是Sql语句,也有存储过程 
 ' 判断Sql语句的类型,一般都不是存储过程 
 ' Interger,受影响的行数 
 ' 2013年2月2日8:19:59 

 Public Function ExecAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Integer

 '为要执行的命令cmd赋值
 cmd.CommandText = cmdText  '传入查询语句
 cmd.CommandType = cmdType  '设置Sql语句如何解释
 cmd.Connection = conn   '设置连接

 '执行操作
 Try
  conn.Open()
  Return cmd.ExecuteNonQuery
 Catch ex As Exception
  Return 0
 Finally
  Call CloseConn(conn)
  Call CloseCmd(cmd)
 End Try

 End Function
 '  
 ' 执行查询的操作,(有参),参数不限 
 '  
 ' 需要执行语句,一般是Sql语句,也有存储过程 
 ' 判断Sql语句的类型,一般都不是存储过程 
 ' 传入的参数 
 '  
 '  

 Public Function ExecSeletct(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable

 Dim sqlAdpter As SqlDataAdapter  '是 DataSet和 SQL Server之间的桥接器，用于检索和保存数据
 Dim dt As New DataTable
 Dim ds As New DataSet

 '还是给cmd赋值
 cmd.CommandText = cmdText   '设置查询语句
 cmd.CommandType = cmdType   '设置Cmd对象的类型
 cmd.Connection = conn   '数据库连接语句
 cmd.Parameters.AddRange(paras)  '传入参数
 sqlAdpter = New SqlDataAdapter(cmd) '实例化适配器

 Try
  sqlAdpter.Fill(ds)   '用adapter将dataSet填充
  dt = ds.Tables(0)   'dataTable是dataSet的第一个表
  cmd.Parameters.Clear()   '清除参数
 Catch ex As Exception
  MsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告！")
 Finally
  Call CloseCmd(cmd)   '最后一定要释放cmd
 End Try

 Return dt '返回查到的数据

 End Function

 '  
 ' 执行查询的操作,(无参) 
 '  
 ' 需要执行语句,一般是Sql语句,也有存储过程 
 ' 判断Sql语句的类型,一般都不是存储过程 
 ' dataTable,查询到的表格 
 '  

 Public Function ExecSelectNo(ByVal cmdText As String, ByVal cmdType As CommandType) As DataTable

 Dim sqlAdapter As SqlDataAdapter
 Dim ds As New DataSet

 '给cmd赋值
 cmd.CommandText = cmdText
 cmd.CommandType = cmdType
 cmd.Connection = conn

 sqlAdapter = New SqlDataAdapter(cmd)  '实例化适配器

 Try
  sqlAdapter.Fill(ds)   '用adapter将dataSet填充
  Return ds.Tables(0)   '返回dataSet的第一个表
 Catch 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

热心网友时间：2022-04-14 18:49

四大天王红磡体育馆全部记录：
*1993年：刘德华《93真我的风采演唱会》 (20场)
*1994年：粟一烧狂野郭富城*演唱会（由十四场加至十六场）
*1995年3月16日黎明香港红勘体育馆“阳光之家黎明慈善夜”
*1996年10月：黎明香港红勘体育馆举办的“叱吒万人帮黎明音乐会”
*1996年：刘德华《96反转红馆倒转地球演唱会> （20场）
*1997年：黎明的“Live Version”红馆演唱会（20场
*1997年由张学友主演的音乐剧《雪狼湖》连续不间断的上演42场，至今保持香港舞台剧演出场次记录。
*1998年：百事郭富城一变倾城演唱会（一开始由二十场加至二十二场，后来再加至二十五场）
*1999年：黎明“Leon Live 99红馆演唱会 (23场)
*1999年8月7-21日刘德华《99爱你一万年演唱会》（15场）
*2000年12月-2001年1月：百事郭富城LIVE ON STAGE演唱会（十六场加至二十场，再加至二十二场，后来宣布加开农历新年六场，共二十八场
*2001年8月17~31日，刘德华《夏日fiesta演唱会》 (15场)
*2004年，刘德华《2004 Vision Tour演唱会》（15场）
*2005年：舒适堡郭富城舞台宝典@飞越舞林（四场加至五场，后再加一场至六场）红馆
*2007年11月17-25日郭富城舞林正传演唱会该演唱会舞台并获得世界演唱会中最大的旋转舞台吉尼斯世界纪录奖状。
*2007年12月~2008年1月，刘德华《wonderful world演唱会》（15场）两个卡通儿子，安逗和黑仔能歌善舞兼搞笑，high翻全场。
*2010年12月-2011年1月刘德华“Unforgettable”香港跨年个唱 20场
2010--2011年，刘德华香港红磡连开20场！之后张学友延续*，也开了二十场，两位香港顶级巨星！
*2011年4月张学友2分之1 演唱会 20场
*2011年12月5日-11日黎明LEON X红馆演唱会 7场。
*2011年12月18日-2012年1月3日郭富城舞临盛宴演唱会 17场变形金刚舞台制作费创红馆最高纪录。
2013年3月17-25日郭富城《舞临盛宴》演唱会香港站安可篇《舞临盛宴》演唱会系列二部曲共九场

热心网友时间：2022-04-14 20:07

黎明1992年第一个开演唱会的