求救 VB代码高手 谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/21 21:50:26
帮我翻译下 下面的代码
期末的作业 真的不大会 做的是个计帐本
小弟分不算多 翻译的好 可是还会再加的 谢谢了

Private Sub MoneyTotal()
Dim sqlDr As SqlDataReader
Dim sqlcmd As New SqlCommand

sqlcmd.Connection = Me.SqlConnection1
sqlcmd.CommandText = "SELECT Sum(金额) As TOTAL FROM MoneyOut"
sqlcmd.CommandType = CommandType.Text

Try
SqlConnection1.Open() '打开连接
sqlDr = sqlcmd.ExecuteReader(CommandBehavior.SingleResult)
If (sqlDr.Read) Then
lbltotal.Text = "开支总额为:" & sqlDr.Item("Total").ToString()
End If
Catch ex As Exception
'这里输入一些错误代码
Finally

If Me.SqlConnection1.State <> ConnectionState.Closed Then
Me.SqlConnection1.Close()
End If

End Try

SqlConnection1.Close() '关闭连接

这是.net 的代码

Private Sub MoneyTotal() '过程名
Dim sqlDr As SqlDataReader
Dim sqlcmd As New SqlCommand '检索SQL声明

sqlcmd.Connection = Me.SqlConnection1 '连接方式
sqlcmd.CommandText = "SELECT Sum(金额) As TOTAL FROM MoneyOut" '查询具体内容的SQL 语句
sqlcmd.CommandType = CommandType.Text '检索类型

Try 'Try 相对VB6的更安全出来判断方式

SqlConnection1.Open() '打开连接
sqlDr = sqlcmd.ExecuteReader(CommandBehavior.SingleResult)
If (sqlDr.Read) Then '简写的 可以写为 if sqlDr.Read=true then
lbltotal.Text = "开支总额为:" & sqlDr.Item("Total").ToString() 'lbltotal应该是个标签控件 sqlDr.Item("Total").ToString() 查询后返回的汇总结果
End If
Catch ex As Exception '出错后的处理
'这里输入一些错误代码
Finally

If Me.SqlConnection1.State <> ConnectionState.Closed Then '如果连接状态是打开的 就关闭 可以写为 If Me.SqlConnection1.State=1 then Me.SqlConnection1.Close()
Me.SqlCo