Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

        Return rowsAffected

    End Function

    Function GetFieldCount(ByVal TableName As String, ByVal ParaSQL As String) As Integer

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

        Dim queryString As String = "SELECT COUNT(*) AS FieldCount FROM " & TableName & " where " & ParaSQL

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

        Dim rowsAffected As Integer

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteScalar

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