VB.NET操作SQL Server完全模块

        Finally

            sqlConnection.Close()

        End Try

        Return rowsAffected

    End Function

    Function GetMinField(ByVal TableName As String, ByVal FieldName As String) As Integer

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

        Dim queryString As String = "SELECT Min(" & FieldName & ") AS MaxField FROM  " & TableName

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), 0, sqlCommand.ExecuteScalar)

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18